Скачать: CL | DM;

How to make TKOlLabel really autosized ?   Найти похожие ветки 

← →
Boguslaw   (2005-01-23 18:24) [0]

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) [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 при изменении размеров панели, на которую он помещен
отображается нормально. Если надпись не влазит в одну строку
она "заворачивается" в несколько :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c