TempExtent);
J := Ceil(TempExtent.CX*Scaler);
if taRight in Aligns then
begin
TempExtent.CX := ARect.Right - J;
TempExtent.CY := Y + Ceil((TempExtent.CX - X ) * Tan(-Direction * Pi / 180));
end else if taHorzCenter in Aligns then
begin
TempExtent.CX := (ARect.Right + ARect.Left - J) shr 1;
TempExtent.CY := Y + Ceil((TempExtent.CX - X ) * Tan(-Direction * Pi / 180));
end else {if taLeft in Aligns then}
begin
TempExtent.CX := ARect.Left + 2;
TempExtent.CY := Y;
end;
if DitheredFlag then
DrawDitheredText(TempExtent.CX,TempExtent.CY,Texts[I])
else begin
//Windows.ExtTextOut(ACanvas.Handle,0,0,ETO_OPAQUE,@ARect, Nil,0,Nil);
Windows.ExtTextOut(ACanvas.Handle, TempExtent.CX, TempExtent.CY,{ETO_OPAQUE or} ETO_CLIPPED,
@ARect, PChar(Texts[I]), Length(Texts[I]),Nil);
end;
Inc(Y,Interval);
end;
end;
end;
// ACanvas.Brush.Style := OldBrushStyle;
end;
上一页 [1] [2] [3] [4] |
