IDE: option to hide icons in message window, bug #13578, from Dmitry

git-svn-id: trunk@19653 -

ide/environmentopts.pp

@@ -159,6 +159,7 @@ type
     FIDEDialogLayoutList: TIDEDialogLayoutList;
     FMinimizeAllOnMinimizeMain: boolean;
     FHideIDEOnRun: boolean;
+    FHideMessagesIcons: boolean;
     FComponentPaletteVisible: boolean;
     FDebuggerSearchPath: string;
 
@@ -317,6 +318,7 @@ type
     property MinimizeAllOnMinimizeMain: boolean read FMinimizeAllOnMinimizeMain
                                                write FMinimizeAllOnMinimizeMain;
     property HideIDEOnRun: boolean read FHideIDEOnRun write FHideIDEOnRun;
+    property HideMessagesIcons: boolean read fHideMessagesIcons write fHideMessagesIcons;
     property ComponentPaletteVisible: boolean read FComponentPaletteVisible
                                               write FComponentPaletteVisible;
     property IDESpeedButtonsVisible: boolean read FIDESpeedButtonsVisible
@@ -610,6 +612,7 @@ begin
     IDEWindowIntf.IDEDialogLayoutList:=FIDEDialogLayoutList;
   FMinimizeAllOnMinimizeMain:=false;
   FHideIDEOnRun:=false;
+  FHideMessagesIcons:=false;
   FComponentPaletteVisible:=true;
   FIDESpeedButtonsVisible:=true;
 
@@ -827,6 +830,8 @@ begin
       Path+'Desktop/MinimizeAllOnMinimizeMain/Value',true);
     FHideIDEOnRun:=XMLConfig.GetValue(
       Path+'Desktop/HideIDEOnRun/Value',false);
+    FHideMessagesIcons:=XMLConfig.GetValue(
+      Path+'Desktop/HideMessagesIcons/Value',false);
     FComponentPaletteVisible:=XMLConfig.GetValue(
       Path+'Desktop/ComponentPaletteVisible/Value',true);
     FIDESpeedButtonsVisible:=XMLConfig.GetValue(
@@ -1079,6 +1084,8 @@ begin
                              FMinimizeAllOnMinimizeMain,true);
     XMLConfig.SetDeleteValue(Path+'Desktop/HideIDEOnRun/Value',FHideIDEOnRun,
                              false);
+    XMLConfig.SetDeleteValue(Path+'Desktop/HideMessagesIcons/Value',FHideMessagesIcons,
+                             false);
     XMLConfig.SetDeleteValue(Path+'Desktop/ComponentPaletteVisible/Value',
                              FComponentPaletteVisible,true);
     XMLConfig.SetDeleteValue(Path+'Desktop/IDESpeedButtonsVisible/Value',

ide/frames/window_options.lfm

@@ -1,19 +1,20 @@
 inherited WindowOptionsFrame: TWindowOptionsFrame
   Height = 396
   Width = 463
-  ClientHeight = 396
-  ClientWidth = 463
+  ClientHeight = 392
+  ClientWidth = 459
+  TabOrder = 0
   Visible = False
-  DesignLeft = 154
-  DesignTop = 203
+  DesignLeft = 413
+  DesignTop = 210
   object MinimizeAllOnMinimizeMainCheckBox: TCheckBox[0]
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = Owner
     AnchorSideRight.Side = asrBottom
     Left = 0
-    Height = 17
+    Height = 22
     Top = 0
-    Width = 195
+    Width = 262
     Caption = 'MinimizeAllOnMinimizeMainCheckBox'
     Enabled = False
     TabOrder = 0
@@ -24,28 +25,28 @@ inherited WindowOptionsFrame: TWindowOptionsFrame
     AnchorSideTop.Side = asrBottom
     AnchorSideRight.Side = asrBottom
     Left = 0
-    Height = 17
-    Top = 17
-    Width = 141
+    Height = 22
+    Top = 22
+    Width = 178
     Caption = 'HideIDEOnRunCheckBox'
     TabOrder = 1
   end
   object WindowPositionsGroupBox: TGroupBox[2]
     AnchorSideLeft.Control = Owner
-    AnchorSideTop.Control = HideIDEOnRunCheckBox
+    AnchorSideTop.Control = HideMessagesIconsCheckBox
     AnchorSideTop.Side = asrBottom
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     AnchorSideBottom.Control = Owner
     AnchorSideBottom.Side = asrBottom
     Left = 0
-    Height = 362
-    Top = 34
-    Width = 463
+    Height = 336
+    Top = 56
+    Width = 459
     Anchors = [akTop, akLeft, akRight, akBottom]
     Caption = 'WindowPositionsGroupBox'
-    ClientHeight = 344
-    ClientWidth = 459
+    ClientHeight = 317
+    ClientWidth = 455
     TabOrder = 2
     object WindowPositionsListBox: TListBox
       AnchorSideLeft.Control = WindowPositionsGroupBox
@@ -55,12 +56,21 @@ inherited WindowOptionsFrame: TWindowOptionsFrame
       Left = 6
       Height = 100
       Top = 6
-      Width = 447
+      Width = 443
       Anchors = [akTop, akLeft, akRight]
       BorderSpacing.Around = 6
       ItemHeight = 0
       OnSelectionChange = WindowPositionsListBoxSelectionChange
       TabOrder = 0
+      TopIndex = -1
     end
   end
+  object HideMessagesIconsCheckBox: TCheckBox[3]
+    Left = 0
+    Height = 22
+    Top = 34
+    Width = 213
+    Caption = 'HideMessagesIconsCheckBox'
+    TabOrder = 3
+  end
 end

ide/frames/window_options.lrs

@@ -2,29 +2,31 @@
 
 LazarusResources.Add('TWindowOptionsFrame','FORMDATA',[
   'TPF0'#241#19'TWindowOptionsFrame'#18'WindowOptionsFrame'#6'Height'#3#140#1#5
-  +'Width'#3#207#1#12'ClientHeight'#3#140#1#11'ClientWidth'#3#207#1#7'Visible'#8
-  +#10'DesignLeft'#3#154#0#9'DesignTop'#3#203#0#0#242#2#0#9'TCheckBox!MinimizeA'
-  +'llOnMinimizeMainCheckBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSi'
-  +'deTop.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2
-  +#0#6'Height'#2#17#3'Top'#2#0#5'Width'#3#195#0#7'Caption'#6'!MinimizeAllOnMin'
-  +'imizeMainCheckBox'#7'Enabled'#8#8'TabOrder'#2#0#0#0#242#2#1#9'TCheckBox'#20
-  +'HideIDEOnRunCheckBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTo'
-  +'p.Control'#7'!MinimizeAllOnMinimizeMainCheckBox'#18'AnchorSideTop.Side'#7#9
-  +'asrBottom'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2
-  +#17#3'Top'#2#17#5'Width'#3#141#0#7'Caption'#6#20'HideIDEOnRunCheckBox'#8'Tab'
-  +'Order'#2#1#0#0#242#2#2#9'TGroupBox'#23'WindowPositionsGroupBox'#22'AnchorSi'
-  +'deLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#20'HideIDEOnRunCheck'
-  +'Box'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5
-  +'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'
-  +#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#3
-  +'j'#1#3'Top'#2'"'#5'Width'#3#207#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRigh'
-  +'t'#8'akBottom'#0#7'Caption'#6#23'WindowPositionsGroupBox'#12'ClientHeight'#3
-  +'X'#1#11'ClientWidth'#3#203#1#8'TabOrder'#2#2#0#8'TListBox'#22'WindowPositio'
-  +'nsListBox'#22'AnchorSideLeft.Control'#7#23'WindowPositionsGroupBox'#21'Anch'
-  +'orSideTop.Control'#7#23'WindowPositionsGroupBox'#23'AnchorSideRight.Control'
-  +#7#23'WindowPositionsGroupBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Lef'
-  +'t'#2#6#6'Height'#2'd'#3'Top'#2#6#5'Width'#3#191#1#7'Anchors'#11#5'akTop'#6
-  +'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#10'ItemHeight'#2#0#17'OnS'
-  +'electionChange'#7'%WindowPositionsListBoxSelectionChange'#8'TabOrder'#2#0#0
-  +#0#0#0
+  +'Width'#3#207#1#12'ClientHeight'#3#136#1#11'ClientWidth'#3#203#1#8'TabOrder'
+  +#2#0#7'Visible'#8#10'DesignLeft'#3#157#1#9'DesignTop'#3#210#0#0#242#2#0#9'TC'
+  +'heckBox!MinimizeAllOnMinimizeMainCheckBox'#22'AnchorSideLeft.Control'#7#5'O'
+  +'wner'#21'AnchorSideTop.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asr'
+  +'Bottom'#4'Left'#2#0#6'Height'#2#22#3'Top'#2#0#5'Width'#3#6#1#7'Caption'#6'!'
+  +'MinimizeAllOnMinimizeMainCheckBox'#7'Enabled'#8#8'TabOrder'#2#0#0#0#242#2#1
+  +#9'TCheckBox'#20'HideIDEOnRunCheckBox'#22'AnchorSideLeft.Control'#7#5'Owner'
+  +#21'AnchorSideTop.Control'#7'!MinimizeAllOnMinimizeMainCheckBox'#18'AnchorSi'
+  +'deTop.Side'#7#9'asrBottom'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2
+  +#0#6'Height'#2#22#3'Top'#2#22#5'Width'#3#178#0#7'Caption'#6#20'HideIDEOnRunC'
+  +'heckBox'#8'TabOrder'#2#1#0#0#242#2#2#9'TGroupBox'#23'WindowPositionsGroupBo'
+  +'x'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#25'Hid'
+  +'eMessagesIconsCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSide'
+  +'Right.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'Anchor'
+  +'SideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'L'
+  +'eft'#2#0#6'Height'#3'P'#1#3'Top'#2'8'#5'Width'#3#203#1#7'Anchors'#11#5'akTo'
+  +'p'#6'akLeft'#7'akRight'#8'akBottom'#0#7'Caption'#6#23'WindowPositionsGroupB'
+  +'ox'#12'ClientHeight'#3'='#1#11'ClientWidth'#3#199#1#8'TabOrder'#2#2#0#8'TLi'
+  +'stBox'#22'WindowPositionsListBox'#22'AnchorSideLeft.Control'#7#23'WindowPos'
+  +'itionsGroupBox'#21'AnchorSideTop.Control'#7#23'WindowPositionsGroupBox'#23
+  +'AnchorSideRight.Control'#7#23'WindowPositionsGroupBox'#20'AnchorSideRight.S'
+  +'ide'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2'd'#3'Top'#2#6#5'Width'#3#187#1#7
+  +'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#10
+  +'ItemHeight'#2#0#17'OnSelectionChange'#7'%WindowPositionsListBoxSelectionCha'
+  +'nge'#8'TabOrder'#2#0#8'TopIndex'#2#255#0#0#0#242#2#3#9'TCheckBox'#25'HideMe'
+  +'ssagesIconsCheckBox'#4'Left'#2#0#6'Height'#2#22#3'Top'#2'"'#5'Width'#3#213#0
+  +#7'Caption'#6#25'HideMessagesIconsCheckBox'#8'TabOrder'#2#3#0#0#0
 ]);

ide/frames/window_options.pas

@@ -33,9 +33,10 @@ type
   { TWindowOptionsFrame }
 
   TWindowOptionsFrame = class(TAbstractIDEOptionsEditor)
+    HideMessagesIconsCheckBox: TCheckBox;
+    WindowPositionsGroupBox: TGroupBox;
     HideIDEOnRunCheckBox: TCheckBox;
     MinimizeAllOnMinimizeMainCheckBox: TCheckBox;
-    WindowPositionsGroupBox: TGroupBox;
     WindowPositionsListBox: TListBox;
     procedure WindowPositionsListBoxSelectionChange(Sender: TObject; User: boolean);
   private
@@ -67,6 +68,7 @@ begin
   // windows
   MinimizeAllOnMinimizeMainCheckBox.Caption := dlgMinimizeAllOnMinimizeMain;
   HideIDEOnRunCheckBox.Caption := dlgHideIDEOnRun;
+  HideMessagesIconsCheckBox.Caption := dlgHideMessagesIcons;
 
   // Window Positions
   WindowPositionsGroupBox.Caption := dlgWinPos;
@@ -99,6 +101,7 @@ begin
     // window minimizing and hiding
     MinimizeAllOnMinimizeMainCheckBox.Checked := MinimizeAllOnMinimizeMain;
     HideIDEOnRunCheckBox.Checked := HideIDEOnRun;
+    HideMessagesIconsCheckBox.Checked := HideMessagesIcons;
   end;
 end;
 
@@ -110,6 +113,7 @@ begin
     // window minimizing
     MinimizeAllOnMinimizeMain:=MinimizeAllOnMinimizeMainCheckBox.Checked;
     HideIDEOnRun:=HideIDEOnRunCheckBox.Checked;
+    HideMessagesIcons:=HideMessagesIconsCheckBox.Checked;
   end;
 end;
 

ide/lazarusidestrconsts.pas

@@ -955,6 +955,7 @@ resourcestring
   dlgLoadDFile = 'Load desktop settings from file';
   dlgMinimizeAllOnMinimizeMain = 'Minimize all on minimize main';
   dlgHideIDEOnRun = 'Hide IDE windows on run';
+  dlgHideMessagesIcons = 'Hide Messages Icons';
   dlgPalHints = 'Hints for component palette';
   lisCheckChangesOnDiskWithLoading = 'Check changes on disk with loading';
   dlgSpBHints = 'Hints for main speed buttons (open, save, ...)';

ide/main.pp

@@ -85,7 +85,7 @@ uses
   AllIDEIntf, BaseIDEIntf, ObjectInspector, PropEdits, MacroIntf, IDECommands,
   SrcEditorIntf, NewItemIntf, IDEExternToolIntf, IDEMsgIntf,
   PackageIntf, ProjectIntf, MenuIntf, LazIDEIntf, IDEDialogs,
-  IDEOptionsIntf,
+  IDEOptionsIntf, IDEImagesIntf,
   // protocol
   IDEProtocol,
   // compile
@@ -11324,6 +11324,12 @@ var
   ALayout: TIDEWindowLayout;
 begin
   //debugln('TMainIDE.DoShowMessagesView');
+  if EnvironmentOptions.HideMessagesIcons then
+    MessagesView.MessageTreeView.Images := nil
+  else
+    MessagesView.MessageTreeView.Images := IDEImages.Images_12;
+
+
   WasVisible:=MessagesView.Visible;
   MessagesView.Visible:=true;
   if not WasVisible then begin