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

rename AutoReDraw to AutoRedraw, as "Re" is not a word

Browse Source 
git-svn-id: trunk@5992 -
This commit is contained in:
micha 2004-09-13 15:33:07 +00:00
parent 29b6b24632
commit 12030d9c62
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/graphics.pp
View File

@ -792,7 +792,7 @@ type
TCanvas = class(TPersistent)
private
FAutoReDraw: Boolean;
FAutoRedraw: Boolean;
FState: TCanvasState;
FFont: TFont;
FSavedFontHandle: HFont;
@ -821,7 +821,7 @@ type
function GetHandle: HDC;
Function GetPenPos: TPoint;
Function GetPixel(X,Y: Integer): TColor;
Procedure SetAutoReDraw(Value: Boolean);
Procedure SetAutoRedraw(Value: Boolean);
Procedure SetColor(c: TColor);
Procedure SetBrush(value: TBrush);
Procedure SetFont(value: TFont);
@ -915,7 +915,7 @@ type
property TextStyle: TTextStyle read FTextStyle write FTextStyle;
property LockCount:Integer read FLockCount;
published
property AutoRedraw: Boolean read FAutoReDraw write SetAutoReDraw;
property AutoRedraw: Boolean read FAutoRedraw write SetAutoRedraw;
property Brush: TBrush read FBrush write SetBrush;
property CopyMode: TCopyMode read FCopyMode write FCopyMode default cmSrcCopy;
property Font: TFont read FFont write SetFont;
@ -1747,6 +1747,9 @@ end.
{ =============================================================================
$Log$
Revision 1.148 2004/09/13 15:33:07 micha
rename AutoReDraw to AutoRedraw, as "Re" is not a word
Revision 1.147 2004/09/12 13:11:50 micha
convert LM_GETPIXEL and LM_SETPIXEL to interface methods (of twidgetset, DCGetPixel and DCSetPixel)

9
lcl/include/canvas.inc
View File

@ -190,11 +190,11 @@ end;
Returns: Nothing
------------------------------------------------------------------------------}
procedure TCanvas.SetAutoReDraw(Value : Boolean);
procedure TCanvas.SetAutoRedraw(Value : Boolean);
begin
FAutoRedraw := Value;
If FAutoReDraw then
SendIntfMessage(LM_ReDraw, Self, nil);
If FAutoRedraw then
SendIntfMessage(LM_REDRAW, Self, nil);
end;
{------------------------------------------------------------------------------
@ -1244,6 +1244,9 @@ end;
{ =============================================================================
$Log$
Revision 1.77 2004/09/13 15:33:07 micha
rename AutoReDraw to AutoRedraw, as "Re" is not a word
Revision 1.76 2004/09/12 13:11:50 micha
convert LM_GETPIXEL and LM_SETPIXEL to interface methods (of twidgetset, DCGetPixel and DCSetPixel)