OnMouseOver Effect (TKOLBitBtn.Flat) missing in 2.08

← →
rofl (2005-05-24 23:47) [0]

is there any new property i have to use to get the highlight effect when moving the mouse over a flat bitbutton, such as in kol 2.0 ?
thanks in advance !

← →
ECM © (2005-05-25 10:46) [1]

Use OnTestMouseOver,OnMouseEnter,OnMouseLeave - it`s work on KOL 2.08 (BitBtn.Flat = TRUE)

← →
rofl (2005-05-25 12:53) [2]

thanks, now it works like this
procedure TForm1.dummyFlatProc(sender: pobj); begin pcontrol(sender).invalidate; end; ... buttons[i] := NewBitBtn( parctr, "", [], glyphLeft, Loadproc(HInstance, siz, pchar(s2), form1).handle, 0 ).SetPosition( l, t ).SetSize( siz, siz ); buttons[i].TextShiftX := 1; buttons[i].TextShiftY := 1; buttons[i].flat := true; buttons[i].tag := i; buttons[i].onmouseleave:= dummyFlatProc; buttons[i].onmouseenter:= dummyFlatProc;
hopefully this work-around is not more required in next kol release 0o

OnMouseOver Effect (TKOLBitBtn.Flat) missing in 2.08 Найти похожие ветки