[Vector]

function TsBitBtn.TextRectSize: TSize;

var

R: TRect;

DrawStyle: longint;

begin

if not ShowCaption then

begin

Result.cx := 0;

Result.cy := 0;

exit;

end;

…..

[Author]

Posts