paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 19:39:17 +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) TCanvas = class(TPersistent)
private private
FAutoReDraw: Boolean; FAutoRedraw: Boolean;
FState: TCanvasState; FState: TCanvasState;
FFont: TFont; FFont: TFont;
FSavedFontHandle: HFont; FSavedFontHandle: HFont;
@ -821,7 +821,7 @@ type
function GetHandle: HDC; function GetHandle: HDC;
Function GetPenPos: TPoint; Function GetPenPos: TPoint;
Function GetPixel(X,Y: Integer): TColor; Function GetPixel(X,Y: Integer): TColor;
Procedure SetAutoReDraw(Value: Boolean); Procedure SetAutoRedraw(Value: Boolean);
Procedure SetColor(c: TColor); Procedure SetColor(c: TColor);
Procedure SetBrush(value: TBrush); Procedure SetBrush(value: TBrush);
Procedure SetFont(value: TFont); Procedure SetFont(value: TFont);
@ -915,7 +915,7 @@ type
property TextStyle: TTextStyle read FTextStyle write FTextStyle; property TextStyle: TTextStyle read FTextStyle write FTextStyle;
property LockCount:Integer read FLockCount; property LockCount:Integer read FLockCount;
published published
property AutoRedraw: Boolean read FAutoReDraw write SetAutoReDraw; property AutoRedraw: Boolean read FAutoRedraw write SetAutoRedraw;
property Brush: TBrush read FBrush write SetBrush; property Brush: TBrush read FBrush write SetBrush;
property CopyMode: TCopyMode read FCopyMode write FCopyMode default cmSrcCopy; property CopyMode: TCopyMode read FCopyMode write FCopyMode default cmSrcCopy;
property Font: TFont read FFont write SetFont; property Font: TFont read FFont write SetFont;
@ -1747,6 +1747,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.147 2004/09/12 13:11:50 micha
convert LM_GETPIXEL and LM_SETPIXEL to interface methods (of twidgetset, DCGetPixel and DCSetPixel) 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 Returns: Nothing
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TCanvas.SetAutoReDraw(Value : Boolean); procedure TCanvas.SetAutoRedraw(Value : Boolean);
begin begin
FAutoRedraw := Value; FAutoRedraw := Value;
If FAutoReDraw then If FAutoRedraw then
SendIntfMessage(LM_ReDraw, Self, nil); SendIntfMessage(LM_REDRAW, Self, nil);
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
@ -1244,6 +1244,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.76 2004/09/12 13:11:50 micha
convert LM_GETPIXEL and LM_SETPIXEL to interface methods (of twidgetset, DCGetPixel and DCSetPixel) convert LM_GETPIXEL and LM_SETPIXEL to interface methods (of twidgetset, DCGetPixel and DCSetPixel)