paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-14 07:22:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: mode matrix: update if in session changed

Browse Source 
git-svn-id: trunk@41495 -
This commit is contained in:
mattias 2013-06-02 17:12:49 +00:00
parent 70d8334e71
commit c79b6e04a3
2 changed files with 17 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/frames/compiler_modematrix.pas
View File

@ -784,7 +784,9 @@ begin
UpdateActiveMode;
if UpdateGrid and GridHasChanged then
Grid.MatrixChanged;
Grid.MatrixChanged
else
Grid.Invalidate;
end;
procedure TCompOptModeMatrix.UpdateActiveMode;

24
ide/ideoptionsdlg.pas
View File

@ -30,11 +30,13 @@ unit IdeOptionsDlg;
interface
uses
Classes, SysUtils, Controls, Forms, ComCtrls, LCLProc, LCLType,
Classes, SysUtils,
LCLProc, LCLType, Controls, Forms, ComCtrls,
Buttons, ButtonPanel, ExtCtrls, EditBtn, StdCtrls, Dialogs, TreeFilterEdit,
IDEWindowIntf, IDEOptionsIntf, IDECommands, IDEHelpIntf, ProjectIntf,
EnvironmentOpts, LazarusIDEStrConsts, CompOptsIntf, EditorOptions,
BuildModesManager, project_save_options, Project;
CompOptsIntf,
EnvironmentOpts, LazarusIDEStrConsts, EditorOptions,
BuildModesManager, project_save_options, Project, Compiler_ModeMatrix;
type
TIDEOptsDlgAction = (
@ -81,7 +83,6 @@ type
FOnLoadOptionsHook: TOnLoadIDEOptions;
FOnSaveOptionsHook: TOnSaveIDEOptions;
FOptionsFilter: TIDEOptionsEditorFilter;
FPrevComboIndex: integer;
FPrevEditor: TAbstractIDEOptionsEditor;
FSelectNode: TTreeNode;
FSettings: TIDEOptionsEditorSettings;
@ -219,14 +220,13 @@ end;
procedure TIDEOptionsDialog.BuildModeComboBoxClick(Sender: TObject);
begin
FPrevComboIndex := BuildModeComboBox.ItemIndex;
end;
procedure TIDEOptionsDialog.BuildModeComboBoxSelect(Sender: TObject);
begin
if AllBuildModes then begin
ShowMessage('This will allow changing all build modes at once. Not implemented yet.');
BuildModeComboBox.ItemIndex := FPrevComboIndex;
BuildModeInSessionCheckBox.Enabled:=false;
end
else begin
@ -245,14 +245,18 @@ begin
lisTheFirstBuildModeIsTheDefaultModeAndMustBeStoredIn,
mtError,[mbCancel],0);
BuildModeInSessionCheckBox.Checked:=false;
end else
end else begin
Project1.ActiveBuildMode.InSession:=BuildModeInSessionCheckBox.Checked;
if ModeMatrixFrame<>nil then
ModeMatrixFrame.UpdateModes;
end;
end;
procedure TIDEOptionsDialog.BuildModeManageButtonClick(Sender: TObject);
begin
if ShowBuildModesDlg(Project1.SessionStorage in pssHasSeparateSession) = mrOK then
UpdateBuildModeCombo(BuildModeComboBox);
if ShowBuildModesDlg(Project1.SessionStorage in pssHasSeparateSession) <> mrOK then
exit;
UpdateBuildModeCombo(BuildModeComboBox);
end;
procedure TIDEOptionsDialog.CategoryTreeCollapsed(Sender: TObject; Node: TTreeNode);
@ -536,7 +540,7 @@ begin
Instance.Tag := Rec^.Items[j]^.Index;
Instance.Visible := False;
Instance.Parent := EditorsPanel;
instance.Rec := Rec^.Items[j];
Instance.Rec := Rec^.Items[j];
ItemParent := GroupNode;
if Rec^.Items[j]^.Parent <> NoParent then begin