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

Designer: Comment out an unused private procedure.

Browse Source
This commit is contained in:
Juha 2024-02-03 11:11:45 +02:00
parent 1e544fb5b9
commit 90cb99dafd
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
designer/designer.pp
View File

@ -158,7 +158,7 @@ type
function GetShowGrid: boolean; function GetShowGrid: boolean;
function GetSnapToGrid: boolean; function GetSnapToGrid: boolean;
procedure HintTimer(Sender : TObject); procedure HintTimer(Sender : TObject);
procedure InvalidateWithParent(AComponent: TComponent); //procedure InvalidateWithParent(AComponent: TComponent);
procedure SetDefaultFormBounds(const AValue: TRect); procedure SetDefaultFormBounds(const AValue: TRect);
procedure SetGridColor(const AValue: TColor); procedure SetGridColor(const AValue: TColor);
procedure SetGridSizeX(const AValue: integer); procedure SetGridSizeX(const AValue: integer);
@ -1926,7 +1926,7 @@ begin
inc(Result.Y,ParentForm.Y); inc(Result.Y,ParentForm.Y);
end; end;
end; end;
{
procedure TDesigner.InvalidateWithParent(AComponent: TComponent); procedure TDesigner.InvalidateWithParent(AComponent: TComponent);
begin begin
{$IFDEF VerboseDesigner} {$IFDEF VerboseDesigner}
@ -1941,7 +1941,7 @@ begin
FForm.Invalidate; FForm.Invalidate;
end; end;
end; end;
}
procedure TDesigner.SetDefaultFormBounds(const AValue: TRect); procedure TDesigner.SetDefaultFormBounds(const AValue: TRect);
begin begin
FDefaultFormBounds:=AValue; FDefaultFormBounds:=AValue;