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

IDE: show the info box at bottom of Object Inspector by default.

Browse Source 
git-svn-id: trunk@41359 -
This commit is contained in:
juha 2013-05-22 16:50:02 +00:00
parent b9a543d619
commit 412fa177a5
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/ideintf/objectinspector.lfm
View File

@ -11,8 +11,8 @@ object ObjectInspectorDlg: TObjectInspectorDlg
LCLVersion = '1.1' LCLVersion = '1.1'
object StatusBar: TStatusBar object StatusBar: TStatusBar
Left = 0 Left = 0
Height = 20 Height = 22
Top = 649 Top = 647
Width = 300 Width = 300
Panels = < Panels = <
item item
@ -25,7 +25,7 @@ object ObjectInspectorDlg: TObjectInspectorDlg
end end
object AvailPersistentComboBox: TComboBox object AvailPersistentComboBox: TComboBox
Left = 0 Left = 0
Height = 24 Height = 25
Top = 0 Top = 0
Width = 300 Width = 300
Align = alTop Align = alTop
@ -37,7 +37,7 @@ object ObjectInspectorDlg: TObjectInspectorDlg
object ComponentPanel: TPanel object ComponentPanel: TPanel
Left = 0 Left = 0
Height = 184 Height = 184
Top = 24 Top = 25
Width = 300 Width = 300
Align = alTop Align = alTop
ClientHeight = 184 ClientHeight = 184
@ -49,8 +49,8 @@ object ObjectInspectorDlg: TObjectInspectorDlg
AnchorSideTop.Control = FilterLabel AnchorSideTop.Control = FilterLabel
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 87 Left = 87
Height = 23 Height = 25
Top = 3 Top = 2
Width = 184 Width = 184
UseFormActivate = True UseFormActivate = True
ButtonWidth = 23 ButtonWidth = 23

8
components/ideintf/objectinspector.pp
View File

@ -3615,7 +3615,7 @@ begin
FDrawGridLines := True; FDrawGridLines := True;
FShowGutter := True; FShowGutter := True;
FShowStatusBar := True; FShowStatusBar := True;
FShowInfoBox := False; FShowInfoBox := True;
end; end;
function TOIOptions.Load: boolean; function TOIOptions.Load: boolean;
@ -3696,7 +3696,7 @@ begin
FShowStatusBar := ConfigStore.GetValue( FShowStatusBar := ConfigStore.GetValue(
Path+'ShowStatusBar',true); Path+'ShowStatusBar',true);
FShowInfoBox := ConfigStore.GetValue( FShowInfoBox := ConfigStore.GetValue(
Path+'ShowInfoBox',false); Path+'ShowInfoBox',true);
FInfoBoxHeight := ConfigStore.GetValue( FInfoBoxHeight := ConfigStore.GetValue(
Path+'InfoBoxHeight',80); Path+'InfoBoxHeight',80);
except except
@ -3770,7 +3770,7 @@ begin
ConfigStore.SetDeleteValue(Path+'DrawGridLines',FDrawGridLines, True); ConfigStore.SetDeleteValue(Path+'DrawGridLines',FDrawGridLines, True);
ConfigStore.SetDeleteValue(Path+'ShowGutter',FShowGutter, True); ConfigStore.SetDeleteValue(Path+'ShowGutter',FShowGutter, True);
ConfigStore.SetDeleteValue(Path+'ShowStatusBar',FShowStatusBar, True); ConfigStore.SetDeleteValue(Path+'ShowStatusBar',FShowStatusBar, True);
ConfigStore.SetDeleteValue(Path+'ShowInfoBox',FShowInfoBox, False); ConfigStore.SetDeleteValue(Path+'ShowInfoBox',FShowInfoBox, True);
ConfigStore.SetDeleteValue(Path+'InfoBoxHeight',FInfoBoxHeight,80); ConfigStore.SetDeleteValue(Path+'InfoBoxHeight',FInfoBoxHeight,80);
except except
on E: Exception do begin on E: Exception do begin
@ -3931,7 +3931,7 @@ begin
FShowRestricted := False; FShowRestricted := False;
FShowStatusBar := True; FShowStatusBar := True;
FInfoBoxHeight := 80; FInfoBoxHeight := 80;
FShowInfoBox := False; FShowInfoBox := True;
FComponentEditor := nil; FComponentEditor := nil;
Caption := oisObjectInspector; Caption := oisObjectInspector;