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

implemented unmodify for designer default form bounds

Browse Source 
git-svn-id: trunk@7548 -
This commit is contained in:
mattias 2005-08-22 20:01:08 +00:00
parent 302e31ba58
commit a42d9d1c41
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
designer/designer.pp
View File

@ -2207,8 +2207,11 @@ var
begin
NewFormBounds:=Form.BoundsRect;
if FDefaultFormBoundsValid then begin
if not CompareRect(@FDefaultFormBounds,@FLastFormBounds) then begin
if not CompareRect(@NewFormBounds,@FDefaultFormBounds) then begin
Modified;
if ControlSelection.SelectionForm=Form then begin
ControlSelection.CheckForLCLChanges(true);
end;
end;
end else begin
FDefaultFormBoundsValid:=true;

6
ide/main.pp
View File

@ -3641,6 +3641,7 @@ var
ACaption, AText: string;
CompResourceCode, LFMFilename, TestFilename, ResTestFilename: string;
UnitSaveFilename: String;
ADesigner: TDesigner;
{$IFDEF TRANSLATESTRING}Grubber:TLRTGrubber;{$ENDIF}
begin
Result:=mrCancel;
@ -3883,6 +3884,11 @@ begin
if not Result=mrOk then exit;
end;
end;
// mark designer unmodified
ADesigner:=FindRootDesigner(AnUnitInfo.Component) as TDesigner;
if ADesigner<>nil then
ADesigner.DefaultFormBoundsValid:=false;
Result:=mrOk;
{$IFDEF IDE_DEBUG}
writeln('TMainIDE.SaveFileResources G ',LFMCode<>nil);