paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 10:39:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fix TCanvas.Clipping for fpc < 2.3.1 (issue #0013418)

Browse Source 
git-svn-id: trunk@20703 -
This commit is contained in:
paul 2009-06-22 03:13:00 +00:00
parent 5e0c647868
commit 2bbd8ddb40
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/graphics.pp
View File

@ -1118,6 +1118,9 @@ type
function HandleAllocated: boolean; virtual; function HandleAllocated: boolean; virtual;
function GetUpdatedHandle(ReqState: TCanvasState): HDC; virtual; function GetUpdatedHandle(ReqState: TCanvasState): HDC; virtual;
public public
{$ifndef OverrideClipping}
property Clipping : boolean read GetClipping write SetClipping;
{$endif}
property Pixels[X, Y: Integer]: TColor read GetPixel write SetPixel; property Pixels[X, Y: Integer]: TColor read GetPixel write SetPixel;
property Handle: HDC read GetHandle write SetHandle; property Handle: HDC read GetHandle write SetHandle;
property TextStyle: TTextStyle read FTextStyle write FTextStyle; property TextStyle: TTextStyle read FTextStyle write FTextStyle;