paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-03 18:40:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

Attemps to fix ideinspector after the changes in TTabControl

Browse Source 
git-svn-id: trunk@31796 -
This commit is contained in:
sekelsenmat 2011-07-24 18:25:57 +00:00
parent 8469bf2800
commit ec0495ca9b
2 changed files with 26 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
components/IdeInspector/maininspector.lfm
View File

@ -260,21 +260,28 @@ object IdeInspectForm: TIdeInspectForm
end
end
end
object TabControl1: TTabControl
object Panel3: TPanel
Left = 222
Height = 381
Top = 24
Width = 290
Align = alClient
OnChange = TabControl1Change
TabIndex = 0
TabOrder = 4
Tabs.Strings = (
'Properties'
'Events'
'All'
)
TabStop = False
object TabControl1: TTabControl
Left = 0
Height = 81
Top = 0
Width = 290
Align = alTop
OnChange = TabControl1Change
TabIndex = 0
TabOrder = 4
Tabs.Strings = (
'Properties'
'Events'
'All'
)
TabStop = False
end
end
object popComponent: TPopupMenu
OnPopup = popComponentPopup

17
components/IdeInspector/maininspector.pas
View File

@ -38,6 +38,7 @@ type
menuFollowFrame: TMenuItem;
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
popComponent: TPopupMenu;
popSubComponent: TPopupMenu;
popControls: TPopupMenu;
@ -756,14 +757,14 @@ begin
inherited Create(TheOwner);
FPropertiesGrid := TCustomPropertiesGrid.Create(Self);
with FPropertiesGrid do
begin
Name := 'FPropertiesGrid';
Parent := TabControl1;
Align := alClient;
SaveOnChangeTIObject := False;
OnSelectionChange := @DoPropSelChanged;
end;
FPropertiesGrid.Name := 'FPropertiesGrid';
FPropertiesGrid.Parent := Panel3;
FPropertiesGrid.Top := TabControl1.Height;
FPropertiesGrid.Left := 0;
FPropertiesGrid.Width := TabControl1.Width;
FPropertiesGrid.Height := 381 - TabControl1.Height;
FPropertiesGrid.SaveOnChangeTIObject := False;
FPropertiesGrid.OnSelectionChange := @DoPropSelChanged;
btnComponent.Caption := ideinspQuickLinks;
btnSubComponent.Caption := ideinspComponentsOwned;