How to make TKOlLabel really autosized ?
Boguslaw © (2005-01-23 18:24:00)
TKOLLabel behaviour is different then oridanary VCL Label with
AutoSize.If I put some multiline string (with #13#10) I wish to
have TKOLabel properly sized to show all text with proper word
breaks.Instead I have only first line visible. Please,help me fix
this, I must use this autosized label to create replacement for
balloon window (when not available IE6). The problem is that this
label is not autosized and I can't fix form size based on this
label size. In VCL it's working good
:-(
ECM (2005-01-23 20:52:00) [1]
Я делал это так (без переделки КОЛ). Можно и встроить, но руки
пока не доходят попробовать...:(
Принцип такой - ширину считаем уже установленной и вычисляем
высоту многострочного текста и меняем Height у Label
procedure TMainForm.Label2Paint(Sender: PControl; DC: HDC);
var
OldFnt: HFONT;
R: TRect;
H: Integer;
begin
OldFnt := SelectObject(DC,Sender.Font.Handle);
SetBkMode(DC,TRANSPARENT);
R := Sender.ClientRect;
SetTextColor(DC,Sender.Font.Color);
H :=
DrawText(DC,@Sender.Caption[1],Length(Sender.Caption),R,DT_CENTER
or DT_WORDBREAK or DT_CALCRECT);
if H <> (Sender.Height+3) then Sender.Height :=
H+3; //
DrawText(DC,@Sender.Caption[1],Length(Sender.Caption),R,DT_CENTER
or DT_WORDBREAK);
SelectObject(DC,OldFnt);
end;
Возможно текст не точен (я повыбрасывал лишнее из своего
кода) - но у меня работает... Во всяком случае Label
с caTop при изменении размеров панели, на которую он помещен
отображается нормально. Если надпись не влазит в одну строку
она "заворачивается" в несколько :)
Наверх 
ЧАТ |
Орешник |
|
