TScrollBar. Создаю, но надо Max, Min и Position.

← →
RA (2003-11-07 13:04) [0]

TScrollBar. Создаю, но надо Max, Min и Position . А событие
onScroll срабатывает только когда перетягиваешь полосу прокрутки,
а когда пользуешься стрелками, то оно не возникает. И когда преретягиваешь полосу, то все равно она становится обратно.

← →
BelchonokH © (2003-11-07 18:35) [1]

Я в похожей ситуации ручками делал, через onMessage...

← →
zeze (2003-11-07 21:38) [2]

Application.OnIdle := DrawIt;

what"s the equivalent KOL event ?
onMessage doesn"t seem to work.

thanks!
(english please)

← →
SPeller © (2003-11-08 06:49) [3]

> zeze (07.11.03 21:38) [2]

Make new topic with your question.

← →
Gandalf © (2003-11-08 19:27) [4]

Replace standart Run but own...
For example add in proj_1.inc like run:

// AppletWnd = Form1.Form //procedure Run( var AppletWnd: PControl ); //begin AppletRunning := True; Applet := AppletWnd; AppletWnd.CreateWindow; //virtual!!! while not AppletTerminated do begin WaitMessage; if AppletWnd.ProcessMessages not then // New begin // Your Idle code here end; if AppletWnd <> nil then TerminateExecution( AppletWnd ); //end;

Dont forget exit after it (because real Run needn"t). This is MCK Method. In pure KOL simply use your Run.

See full discussion here (Russion) http://delphimaster.net/view/11-1045034380/

And of cause you cant use RegisterIdleHandler (KOL>=1.85)

Насчет бара - видимо руками.

TScrollBar. Создаю, но надо Max, Min и Position. Найти похожие ветки