ChiPnGo
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Решилось определением Align.
Почему при рисовании текста на внутренней кнопке не удаётся изменить шрифт?
procedure TInnerButton.DrawItem();
...
begin
R := self.clientRect;
DC := GetDC(self.Handle);
tempCanvas := TCanvas.Create;
tempCanvas.Handle := DC;
BeginPaint(self.Handle, ps);
with tempCanvas do
begin
Self.ParentFont := False;
Font := Self.Font;
Text := Self.Caption;
TextOut(tempCanvas.Handle, 0, 0, PChar(Text), Length(Text));
end;
...
end;
При конструировании шрифт такой, как надо. При выполнении - нет. |
Поэтому и спрошаю...
