KOLToolbar s tboflat handle the height to a fix value?

← →
azsd © (2004-04-21 07:46) [0]

Hi,all

I use 32x32 ImageList for KOLToolbar.
I place the text at bottom,
after add tboflat to Toolbar"s options,
the toolbar command button"s text come to right and the toolbar"s height change to different by designed value---seems like 16x16 imagelists toolbar"s height.
tboflat + tboTextRight takes same effect.
I think is it a bug?
or uncomplete owner draw function under tboflat options.

KOL 1.91,Delphi 6

by azsd 2004 4 21

← →
azsd © (2004-04-21 09:20) [1]

I use mousespy to detect it actual height fixed to 26,
design-height were 48.
none options can keep the design height.

← →
azsd © (2004-04-21 10:08) [2]

Faint......
I seach in mckctrls and found an heightauto attrib"s caluctor has fake function.
oh it mck"s fake,not kol.
had corroreted it.

and in mckctrl an other obscure codes (line 8490)

if (tboTextRight in Options) or FixFlatXP and {(Align in [caLeft, caRight]) and} (tboFlat in Options) then S := "tboTextRight";
I choice change it to
if (tboTextRight in Options) or FixFlatXP and not(tboTextbottom in Options) and {(Align in [caLeft, caRight]) and} (tboFlat in Options) then S := "tboTextRight";
to fix when set fixflatxp and tboflat,the tbobottom lose to right "s bug.

KOLToolbar s tboflat handle the height to a fix value? Найти похожие ветки