16. November 2007 22:39
16. November 2007 22:47
16. November 2007 23:13
16. November 2007 23:16
16. November 2007 23:29
16. November 2007 23:37
17. November 2007 00:10
17. November 2007 00:11
17. November 2007 00:18
17. November 2007 00:23
17. November 2007 00:28
17. November 2007 00:35
17. November 2007 10:45
PROPERTIES
{
[...]
TimerInterval=150;
[...]
}
OnAfterGetCurrRecord=BEGIN
UpdateInfoPanel;
AllowFormRedraw := TRUE;
END;
OnTimer=BEGIN
IF AllowFormRedraw THEN BEGIN
CurrForm.SalesLines.WIDTH(CurrForm.SalesLines.WIDTH - 20);
CurrForm.SalesLines.WIDTH(CurrForm.SalesLines.WIDTH + 20);
AllowFormRedraw := FALSE;
END;
END;
AllowFormRedraw@1140000 : Boolean;
17. November 2007 16:58