|
wesleybobato
Brazil
367 Posts |
 Posted - Jan 09 2013 : 06:56:35
|
hello nigel follows a code for you to put in procedure
FillFromDirectory ();
var
j : integer;
begin
for j:=0 to 9999999 do
begin
Label1.Caption := IntToStr(j) ;
{.... loop main body here ...}
Application.ProcessMessages;
{ESC key stops the loop}
if GetKeyState(VK_Escape) AND 128 = 128 then break;
end;
end;
http://delphi.about.com/cs/adptips2000/a/bltip0700_5.htm
will be available when that'll be the next version, with full printing as the printing wizard windows? when you create a beta, please send me to test, because we really need it here at work, a big hug.
|
|
Search
Ability to stop loading thumbnails
