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

ide: less hints

Browse Source
This commit is contained in:
mattias 2025-07-07 14:58:26 +02:00
parent ea17b03f08
commit 7fcbb4c086
2 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/componentlist.pas
View File

@ -90,7 +90,7 @@ type
procedure chbKeepOpenChange(Sender: TObject); procedure chbKeepOpenChange(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TreeMouseDown(Sender: TObject; Button: TMouseButton; procedure TreeMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); {%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Integer);
procedure ListTreeSelectionChanged(Sender: TObject); procedure ListTreeSelectionChanged(Sender: TObject);
procedure miCollapseAllClick(Sender: TObject); procedure miCollapseAllClick(Sender: TObject);
procedure miCollapseClick(Sender: TObject); procedure miCollapseClick(Sender: TObject);

8
ide/frames/project_valconv_options.pas
View File

@ -87,16 +87,9 @@ end;
procedure TIdeProjectValConvOptionsFrame.WriteSettings( procedure TIdeProjectValConvOptionsFrame.WriteSettings(
AOptions: TAbstractIDEOptions); AOptions: TAbstractIDEOptions);
var
HasChg: Boolean;
begin begin
DbgValConvFrame1.SaveCurrent; DbgValConvFrame1.SaveCurrent;
HasChg :=
(DbgProjectLink.UseBackendConverterFromIDE <> chkUseGlobalList.Checked) or
(DbgProjectLink.UseBackendConverterFromProject <> chkUseProjList.Checked) or
FValConvList.Changed;
DbgProjectLink.StoreBackendConverterConfigInSession := chkStoreInSession.Checked; DbgProjectLink.StoreBackendConverterConfigInSession := chkStoreInSession.Checked;
DbgProjectLink.UseBackendConverterFromIDE := chkUseGlobalList.Checked; DbgProjectLink.UseBackendConverterFromIDE := chkUseGlobalList.Checked;
DbgProjectLink.UseBackendConverterFromProject := chkUseProjList.Checked; DbgProjectLink.UseBackendConverterFromProject := chkUseProjList.Checked;
@ -104,7 +97,6 @@ begin
if FValConvList.Changed then begin if FValConvList.Changed then begin
DbgProjectLink.BackendConverterConfig.Assign(FValConvList); DbgProjectLink.BackendConverterConfig.Assign(FValConvList);
DbgProjectLink.BackendConverterConfig.Changed := True; DbgProjectLink.BackendConverterConfig.Changed := True;
end; end;
end; end;