1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
procedure TForm3.cxButton2Click(Sender: TObject);
Var
R: TRect;
Par: TDrawTextParams;
Format: Cardinal;
Bitmap: TBitmap;
begin
Bitmap := TBitmap.Create;
Par.cbSize := SizeOf(Par);
Par.uiLengthDrawn := Length(cxLabel1.Caption);
Par.iTabLength := 8;
Par.iLeftMargin := 0;
Par.iRightMargin := 0;
Format := DT_EDITCONTROL or DT_CENTER or DT_VCENTER or DT_NOPREFIX or DT_WORDBREAK or DT_NOCLIP;
Bitmap.Width := cxImage1.Picture.Width;
Bitmap.Height := cxImage1.Picture.Height;
caption := Bitmap.Width.ToString + '/' + Bitmap.Height.ToString;
R := Rect(0, 0, Bitmap.Width, Bitmap.Height);
Bitmap.Canvas.Font := cxLabel1.Style.Font;
DrawTextEx(Bitmap.Canvas.Handle, PChar(cxLabel1.Caption), -1, R, Format, @Par);
cxImage3.Picture.Bitmap.Width := Bitmap.Width;
cxImage3.Picture.Bitmap.Height := Bitmap.Height;
cxImage3.Picture.Bitmap.Assign(Bitmap);
Bitmap.DisposeOf;
Self.Invalidate;
end;
текст без cleartype рисуется :(
а у cxLabel1 красивый шрифт
