paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-30 14:02:45 +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'
object StatusBar: TStatusBar
Left = 0
Height = 20
Top = 649
Height = 22
Top = 647
Width = 300
Panels = <
item
@ -25,7 +25,7 @@ object ObjectInspectorDlg: TObjectInspectorDlg
end
object AvailPersistentComboBox: TComboBox
Left = 0
Height = 24
Height = 25
Top = 0
Width = 300
Align = alTop
@ -37,7 +37,7 @@ object ObjectInspectorDlg: TObjectInspectorDlg
object ComponentPanel: TPanel
Left = 0
Height = 184
Top = 24
Top = 25
Width = 300
Align = alTop
ClientHeight = 184
@ -49,8 +49,8 @@ object ObjectInspectorDlg: TObjectInspectorDlg
AnchorSideTop.Control = FilterLabel
AnchorSideTop.Side = asrCenter
Left = 87
Height = 23
Top = 3
Height = 25
Top = 2
Width = 184
UseFormActivate = True
ButtonWidth = 23

8
components/ideintf/objectinspector.pp
View File

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