paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 09:19:32 +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 GetSnapToGrid: boolean;
procedure HintTimer(Sender : TObject);
procedure InvalidateWithParent(AComponent: TComponent);
//procedure InvalidateWithParent(AComponent: TComponent);
procedure SetDefaultFormBounds(const AValue: TRect);
procedure SetGridColor(const AValue: TColor);
procedure SetGridSizeX(const AValue: integer);
@ -1926,7 +1926,7 @@ begin
inc(Result.Y,ParentForm.Y);
end;
end;
{
procedure TDesigner.InvalidateWithParent(AComponent: TComponent);
begin
{$IFDEF VerboseDesigner}
@ -1941,7 +1941,7 @@ begin
FForm.Invalidate;
end;
end;
}
procedure TDesigner.SetDefaultFormBounds(const AValue: TRect);
begin
FDefaultFormBounds:=AValue;