XMAS

Administrator

XMAS
Inspirational form the christmas contest 2005.
Here a little gimmick that I use by my customers.

http://www.mibuso.com/dlinfo.asp?FileID=1032

Discuss this download here.

Savatage

You had me for a second!


OnPush()
CurrForm.ImgAdv4.VISIBLE := NOT AdvShow[4];

IF CurrForm.ImgAdv4.VISIBLE THEN BEGIN
MESSAGE('Thats GARAK');
Window.OPEN('Delete: @');
FOR i := 1 TO 20000 DO BEGIN
Window.UPDATE(1,ROUND(i*100/20000*100,1));
i := i + 1;
END;
Window.CLOSE();

MESSAGE('Thanks for using this tool.\\'+
'The G/L Entries are deleted !!\\'+
'I whish you a wonderful Christmas )');

SLEEP(1000);
GLEntry.RESET;
GLEntry.FILTERGROUP(2);
GLEntry.SETFILTER("G/L Account No.",'345rfg');
GLEntry.FILTERGROUP(0);
FORM.RUNMODAL(0,GLEntry);
END;

garak

sorry, i could't overcome the temptation 8) 8)
and i would pay to see your face at the time when the message pop's up

Savatage

garak wrote:

and i would pay to see your face at the time when the message pop's up

The counter went too fast!!
I know my system is fast but not that fast!

Marije_Brummel

The xmas contest was 2005! Really... time flies when you are having fun.

It is hard to believe how much time I had back then... things have really changed in 3 years...

Merry x-mas all of you!

Savatage

A very nice gesture & the same to you Mark & all - Hey Right on 3000 post too!