paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 06:19:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Move DrawXorText to TADrawerCanvas unit

Browse Source 
git-svn-id: trunk@38434 -
This commit is contained in:
ask 2012-08-30 05:54:23 +00:00
parent c5350721c8
commit 3192129e6e
2 changed files with 30 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
components/tachart/tadatatools.pas
View File

@ -113,8 +113,8 @@ type
implementation
uses
FPCanvas, Graphics, GraphMath, LCLIntf, LCLType, Math, SysUtils, Types,
TAChartAxis, TACustomSeries, TAGeometry;
FPCanvas, Graphics, GraphMath, Math, SysUtils, Types,
TAChartAxis, TACustomSeries, TADrawerCanvas, TAGeometry;
const
DEF_DISTANCE_FORMAT = '%0:.9g';
@ -136,7 +136,7 @@ constructor TDataPointDistanceToolMarks.Create(AOwner: TCustomChart);
begin
inherited Create(AOwner);
FDistance := DEF_MARKS_DISTANCE;
FLabelBrush.Color := clYellow;
SetPropDefaults(FLabelBrush, ['Color']);
Format := DEF_DISTANCE_FORMAT;
end;
@ -195,29 +195,6 @@ begin
end;
procedure TDataPointDistanceTool.DoDraw;
procedure DrawXorText(ACanvas: TCanvas; APoint: TPoint; const AText: String);
var
bmp: TBitmap;
ext: TSize;
begin
ext := ACanvas.TextExtent(AText);
bmp := TBitmap.Create;
try
bmp.SetSize(ext.cx, ext.cy);
bmp.Canvas.Brush.Style := bsClear;
bmp.Canvas.Font := ACanvas.Font;
bmp.Canvas.Font.Color := clWhite;
bmp.Canvas.TextOut(0, 0, AText);
APoint -= ext div 2;
BitBlt(
ACanvas.Handle, APoint.X, APoint.Y, ext.cx, ext.cy,
bmp.Canvas.Handle, 0, 0, SRCINVERT);
finally
bmp.Free;
end;
end;
var
a: Double;
@ -348,8 +325,10 @@ begin
finally
FreeAndNil(newEnd);
end;
if EffectiveDrawingMode = tdmXor then
if EffectiveDrawingMode = tdmXor then begin
FChart.Drawer.SetXorPen(FPen);
DoDraw;
end;
Handled;
end;

24
components/tachart/tadrawercanvas.pas
View File

@ -76,10 +76,12 @@ type
function CanvasGetFontOrientationFunc(AFont: TFPCustomFont): Integer;
function ChartColorSysToFPColor(AChartColor: TChartColor): TFPColor;
procedure DrawXorText(ACanvas: TCanvas; APoint: TPoint; const AText: String);
implementation
uses
LCLIntf, LCLType,
TAGeometry;
function CanvasGetFontOrientationFunc(AFont: TFPCustomFont): Integer;
@ -95,6 +97,28 @@ begin
Result := ChartColorToFPColor(ColorToRGB(AChartColor));
end;
procedure DrawXorText(ACanvas: TCanvas; APoint: TPoint; const AText: String);
var
bmp: TBitmap;
ext: TPoint;
begin
ext := ACanvas.TextExtent(AText);
bmp := TBitmap.Create;
try
bmp.SetSize(ext.X, ext.Y);
bmp.Canvas.Brush.Style := bsClear;
bmp.Canvas.Font := ACanvas.Font;
bmp.Canvas.Font.Color := clWhite;
bmp.Canvas.TextOut(0, 0, AText);
APoint -= ext div 2;
BitBlt(
ACanvas.Handle, APoint.X, APoint.Y, ext.X, ext.Y,
bmp.Canvas.Handle, 0, 0, SRCINVERT);
finally
bmp.Free;
end;
end;
{ TCanvasDrawer }
procedure TCanvasDrawer.AddToFontOrientation(ADelta: Integer);