paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 22:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazcanvas: Structural support for pen selecting

Browse Source 
git-svn-id: trunk@33724 -
This commit is contained in:
sekelsenmat 2011-11-23 14:24:53 +00:00
parent 1fb920a99c
commit 90b26076a8
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/lazcanvas.pas
View File

@ -52,13 +52,17 @@ type
TLazCanvas = class(TFPImageCanvas)
private
FAssignedBrush: TFPCustomBrush;
FAssignedPen: TFPCustomPen;
function GetAssignedBrush: TFPCustomBrush;
function GetAssignedPen: TFPCustomPen;
public
constructor create (AnImage : TFPCustomImage);
destructor destroy; override;
// Utilized by LCLIntf.SelectObject
procedure AssignPenData(APen: TFPCustomPen);
procedure AssignBrushData(ABrush: TFPCustomBrush);
// These properties are utilized to implement LCLIntf.SelectObject
property AssignedPen: TFPCustomPen read GetAssignedPen write FAssignedPen;
property AssignedBrush: TFPCustomBrush read GetAssignedBrush write FAssignedBrush;
end;
@ -74,6 +78,14 @@ begin
Result := FAssignedBrush;
end;
function TLazCanvas.GetAssignedPen: TFPCustomPen;
begin
if FAssignedPen = nil then
Result := TFPEmptyPen.Create
else
Result := FAssignedPen;
end;
constructor TLazCanvas.create(AnImage: TFPCustomImage);
begin
inherited Create(AnImage);
@ -85,9 +97,17 @@ begin
inherited destroy;
end;
procedure TLazCanvas.AssignPenData(APen: TFPCustomPen);
begin
Pen.FPColor := APen.FPColor;
Pen.Style := APen.Style;
Pen.Width := APen.Width;
end;
procedure TLazCanvas.AssignBrushData(ABrush: TFPCustomBrush);
begin
Brush.FPColor := ABrush.FPColor;
Brush.Style := ABrush.Style;
end;
{ TFPWindowsSharpInterpolation }