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

ide: add an option to skip packages check on form creation for designer

Browse Source 
git-svn-id: trunk@23592 -
This commit is contained in:
paul 2010-01-29 09:41:47 +00:00
parent 77a6f454ed
commit f5da4dfcbc
5 changed files with 92 additions and 62 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/environmentopts.pp
View File

@ -188,6 +188,7 @@ type
FRubberbandSelectionColor: TColor; FRubberbandSelectionColor: TColor;
FRubberbandCreationColor: TColor; FRubberbandCreationColor: TColor;
FRubberbandSelectsGrandChilds: boolean; FRubberbandSelectsGrandChilds: boolean;
FCheckPackagesOnFormCreate: boolean;
// object inspector // object inspector
FObjectInspectorOptions: TOIOptions; FObjectInspectorOptions: TOIOptions;
@ -355,6 +356,8 @@ type
write FShowEditorHints; write FShowEditorHints;
property AutoCreateFormsOnOpen: boolean read FAutoCreateFormsOnOpen property AutoCreateFormsOnOpen: boolean read FAutoCreateFormsOnOpen
write FAutoCreateFormsOnOpen; write FAutoCreateFormsOnOpen;
property CheckPackagesOnFormCreate: boolean read FCheckPackagesOnFormCreate
write FCheckPackagesOnFormCreate;
property RightClickSelects: boolean read FRightClickSelects property RightClickSelects: boolean read FRightClickSelects
write FRightClickSelects; write FRightClickSelects;
property GrabberColor: TColor read FGrabberColor write FGrabberColor; property GrabberColor: TColor read FGrabberColor write FGrabberColor;
@ -660,6 +663,7 @@ begin
FShowComponentCaptions:=false; FShowComponentCaptions:=false;
FShowEditorHints:=true; FShowEditorHints:=true;
FAutoCreateFormsOnOpen:=true; FAutoCreateFormsOnOpen:=true;
FCheckPackagesOnFormCreate:=true;
FRightClickSelects:=true; FRightClickSelects:=true;
FGrabberColor:=clBlack; FGrabberColor:=clBlack;
FMarkerColor:=clDkGray; FMarkerColor:=clDkGray;
@ -920,6 +924,8 @@ begin
Path+'FormEditor/ShowEditorHints',true); Path+'FormEditor/ShowEditorHints',true);
FAutoCreateFormsOnOpen:=XMLConfig.GetValue( FAutoCreateFormsOnOpen:=XMLConfig.GetValue(
Path+'FormEditor/AutoCreateFormsOnOpen',true); Path+'FormEditor/AutoCreateFormsOnOpen',true);
FCheckPackagesOnFormCreate:=XMLConfig.GetValue(
Path+'FormEditor/CheckPackagesOnFormCreate',true);
FRightClickSelects:=XMLConfig.GetValue( FRightClickSelects:=XMLConfig.GetValue(
Path+'FormEditor/RightClickSelects',true); Path+'FormEditor/RightClickSelects',true);
FGrabberColor:=XMLConfig.GetValue( FGrabberColor:=XMLConfig.GetValue(
@ -1179,6 +1185,8 @@ begin
Path+'FormEditor/ShowEditorHints',FShowEditorHints,true); Path+'FormEditor/ShowEditorHints',FShowEditorHints,true);
XMLConfig.SetDeleteValue( XMLConfig.SetDeleteValue(
Path+'FormEditor/AutoCreateFormsOnOpen',FAutoCreateFormsOnOpen,true); Path+'FormEditor/AutoCreateFormsOnOpen',FAutoCreateFormsOnOpen,true);
XMLConfig.SetDeleteValue(
Path+'FormEditor/CheckPackagesOnFormCreate',FCheckPackagesOnFormCreate,true);
XMLConfig.SetDeleteValue( XMLConfig.SetDeleteValue(
Path+'FormEditor/RightClickSelects',FRightClickSelects,true); Path+'FormEditor/RightClickSelects',FRightClickSelects,true);
XMLConfig.SetDeleteValue( XMLConfig.SetDeleteValue(

127
ide/frames/formed_options.lfm
View File

@ -15,14 +15,14 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 232 Left = 232
Height = 169 Height = 141
Top = 0 Top = 0
Width = 537 Width = 537
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'GridGroupBox' Caption = 'GridGroupBox'
ClientHeight = 150 ClientHeight = 123
ClientWidth = 533 ClientWidth = 533
TabOrder = 0 TabOrder = 0
object GridSizeXLabel: TLabel object GridSizeXLabel: TLabel
@ -30,9 +30,9 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideTop.Control = GridSizeXSpinEdit AnchorSideTop.Control = GridSizeXSpinEdit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 18 Height = 14
Top = 88 Top = 72
Width = 96 Width = 70
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'GridSizeXLabel' Caption = 'GridSizeXLabel'
ParentColor = False ParentColor = False
@ -42,9 +42,9 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideTop.Control = GridSizeYSpinEdit AnchorSideTop.Control = GridSizeYSpinEdit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 18 Height = 14
Top = 121 Top = 99
Width = 95 Width = 70
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'GridSizeYLabel' Caption = 'GridSizeYLabel'
ParentColor = False ParentColor = False
@ -56,9 +56,9 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideRight.Control = GridGroupBox AnchorSideRight.Control = GridGroupBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 22 Height = 17
Top = 56 Top = 46
Width = 159 Width = 120
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
BorderSpacing.Right = 6 BorderSpacing.Right = 6
@ -69,9 +69,9 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideLeft.Control = GridGroupBox AnchorSideLeft.Control = GridGroupBox
AnchorSideTop.Control = GridGroupBox AnchorSideTop.Control = GridGroupBox
Left = 6 Left = 6
Height = 22 Height = 17
Top = 6 Top = 6
Width = 147 Width = 110
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'ShowGridCheckBox' Caption = 'ShowGridCheckBox'
@ -82,9 +82,9 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideTop.Control = ShowGridCheckBox AnchorSideTop.Control = ShowGridCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 22 Height = 17
Top = 31 Top = 26
Width = 204 Width = 152
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
Caption = 'ShowBorderSpaceCheckBox' Caption = 'ShowBorderSpaceCheckBox'
@ -95,9 +95,9 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = SnapToGridCheckBox AnchorSideTop.Control = SnapToGridCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 108 Left = 82
Height = 27 Height = 21
Top = 84 Top = 69
Width = 64 Width = 64
BorderSpacing.Around = 6 BorderSpacing.Around = 6
MaxValue = 128 MaxValue = 128
@ -112,9 +112,9 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GridSizeXSpinEdit AnchorSideTop.Control = GridSizeXSpinEdit
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 107 Left = 82
Height = 27 Height = 21
Top = 117 Top = 96
Width = 64 Width = 64
BorderSpacing.Around = 6 BorderSpacing.Around = 6
MaxValue = 128 MaxValue = 128
@ -134,14 +134,14 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideBottom.Control = Owner AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 203 Height = 187
Top = 253 Top = 214
Width = 769 Width = 769
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'FormEditMiscGroupBox' Caption = 'FormEditMiscGroupBox'
ClientHeight = 184 ClientHeight = 169
ClientWidth = 765 ClientWidth = 765
TabOrder = 1 TabOrder = 1
object ShowComponentCaptionsCheckBox: TCheckBox object ShowComponentCaptionsCheckBox: TCheckBox
@ -151,9 +151,9 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideRight.Control = FormEditMiscGroupBox AnchorSideRight.Control = FormEditMiscGroupBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 22 Height = 17
Top = 31 Top = 26
Width = 252 Width = 188
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
BorderSpacing.Right = 6 BorderSpacing.Right = 6
@ -167,9 +167,9 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideRight.Control = FormEditMiscGroupBox AnchorSideRight.Control = FormEditMiscGroupBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 22 Height = 17
Top = 56 Top = 46
Width = 191 Width = 143
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
BorderSpacing.Right = 6 BorderSpacing.Right = 6
@ -183,9 +183,9 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideRight.Control = FormEditMiscGroupBox AnchorSideRight.Control = FormEditMiscGroupBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 22 Height = 17
Top = 81 Top = 66
Width = 256 Width = 192
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
BorderSpacing.Right = 6 BorderSpacing.Right = 6
@ -199,9 +199,9 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideRight.Control = FormEditMiscGroupBox AnchorSideRight.Control = FormEditMiscGroupBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 22 Height = 17
Top = 106 Top = 86
Width = 195 Width = 145
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
Caption = 'RightClickSelectsCheckBox' Caption = 'RightClickSelectsCheckBox'
@ -214,9 +214,9 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideRight.Control = FormEditMiscGroupBox AnchorSideRight.Control = FormEditMiscGroupBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 22 Height = 17
Top = 131 Top = 106
Width = 204 Width = 153
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
Caption = 'DesignerPaintLazyCheckBox' Caption = 'DesignerPaintLazyCheckBox'
@ -229,12 +229,12 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideTop.Control = DesignerPaintLazyCheckBox AnchorSideTop.Control = DesignerPaintLazyCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 22 Height = 17
Top = 156 Top = 126
Width = 244 Width = 180
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 3
Caption = 'CreateCompFocusNameCheckBox' Caption = 'CreateCompFocusNameCheckBox'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
@ -246,7 +246,7 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideRight.Control = FormEditMiscGroupBox AnchorSideRight.Control = FormEditMiscGroupBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 22 Height = 17
Top = 6 Top = 6
Width = 759 Width = 759
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -255,6 +255,20 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
Caption = 'RubberbandSelectsGrandChildsCheckBox' Caption = 'RubberbandSelectsGrandChildsCheckBox'
TabOrder = 6 TabOrder = 6
end end
object CheckPackagesOnFormCreateCheckBox: TCheckBox
AnchorSideLeft.Control = FormEditMiscGroupBox
AnchorSideTop.Control = CreateCompFocusNameCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 146
Width = 210
BorderSpacing.Left = 6
BorderSpacing.Top = 3
BorderSpacing.Bottom = 6
Caption = 'CheckPackagesOnFormCreateCheckBox'
TabOrder = 7
end
end end
object GuideLinesGroupBox: TGroupBox[2] object GuideLinesGroupBox: TGroupBox[2]
AnchorSideLeft.Control = DesignerColorsGroupBox AnchorSideLeft.Control = DesignerColorsGroupBox
@ -265,15 +279,15 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 232 Left = 232
Height = 72 Height = 61
Top = 175 Top = 147
Width = 537 Width = 537
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'GuideLinesGroupBox' Caption = 'GuideLinesGroupBox'
ClientHeight = 53 ClientHeight = 43
ClientWidth = 533 ClientWidth = 533
TabOrder = 2 TabOrder = 2
object ShowGuideLinesCheckBox: TCheckBox object ShowGuideLinesCheckBox: TCheckBox
@ -281,7 +295,7 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideRight.Control = GuideLinesGroupBox AnchorSideRight.Control = GuideLinesGroupBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 22 Height = 17
Top = 0 Top = 0
Width = 521 Width = 521
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -298,8 +312,8 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideRight.Control = GuideLinesGroupBox AnchorSideRight.Control = GuideLinesGroupBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 22 Height = 17
Top = 25 Top = 20
Width = 521 Width = 521
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -318,12 +332,12 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideBottom.Control = GuideLinesGroupBox AnchorSideBottom.Control = GuideLinesGroupBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 247 Height = 208
Top = 0 Top = 0
Width = 226 Width = 226
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
Caption = 'DesignerColorsGroupBox' Caption = 'DesignerColorsGroupBox'
ClientHeight = 228 ClientHeight = 190
ClientWidth = 222 ClientWidth = 222
TabOrder = 3 TabOrder = 3
object ColorsListBox: TColorListBox object ColorsListBox: TColorListBox
@ -331,7 +345,7 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideTop.Control = DesignerColorsGroupBox AnchorSideTop.Control = DesignerColorsGroupBox
AnchorSideBottom.Control = ColorBox AnchorSideBottom.Control = ColorBox
Left = 6 Left = 6
Height = 179 Height = 150
Top = 6 Top = 6
Width = 210 Width = 210
Style = [cbCustomColors] Style = [cbCustomColors]
@ -341,7 +355,6 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
ItemHeight = 0 ItemHeight = 0
OnSelectionChange = ColorsListBoxSelectionChange OnSelectionChange = ColorsListBoxSelectionChange
TabOrder = 0 TabOrder = 0
TopIndex = -1
end end
object ColorBox: TColorBox object ColorBox: TColorBox
AnchorSideLeft.Control = DesignerColorsGroupBox AnchorSideLeft.Control = DesignerColorsGroupBox
@ -352,8 +365,8 @@ inherited FormEditorOptionsFrame: TFormEditorOptionsFrame
AnchorSideBottom.Control = DesignerColorsGroupBox AnchorSideBottom.Control = DesignerColorsGroupBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 31 Height = 22
Top = 191 Top = 162
Width = 210 Width = 210
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames] Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames]
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]

4
ide/frames/formed_options.pas
View File

@ -42,6 +42,7 @@ type
{ TFormEditorOptionsFrame } { TFormEditorOptionsFrame }
TFormEditorOptionsFrame = class(TAbstractIDEOptionsEditor) TFormEditorOptionsFrame = class(TAbstractIDEOptionsEditor)
CheckPackagesOnFormCreateCheckBox: TCheckBox;
OpenDesignerOnOpenUnitCheckBox: TCheckBox; OpenDesignerOnOpenUnitCheckBox: TCheckBox;
ColorBox: TColorBox; ColorBox: TColorBox;
ColorsListBox: TColorListBox; ColorsListBox: TColorListBox;
@ -115,6 +116,7 @@ procedure TFormEditorOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
ShowEditorHintsCheckBox.Caption:=dlgShowEdrHints; ShowEditorHintsCheckBox.Caption:=dlgShowEdrHints;
OpenDesignerOnOpenUnitCheckBox.Caption:=lisOpenDesignerOnOpenUnit; OpenDesignerOnOpenUnitCheckBox.Caption:=lisOpenDesignerOnOpenUnit;
RightClickSelectsCheckBox.Caption:=dlgRightClickSelects; RightClickSelectsCheckBox.Caption:=dlgRightClickSelects;
CheckPackagesOnFormCreateCheckBox.Caption:=dlgCheckPackagesOnFormCreate;
with DesignerPaintLazyCheckBox do with DesignerPaintLazyCheckBox do
begin begin
@ -162,6 +164,7 @@ begin
ShowComponentCaptionsCheckBox.Checked := ShowComponentCaptions; ShowComponentCaptionsCheckBox.Checked := ShowComponentCaptions;
ShowEditorHintsCheckBox.Checked := ShowEditorHints; ShowEditorHintsCheckBox.Checked := ShowEditorHints;
OpenDesignerOnOpenUnitCheckBox.Checked := AutoCreateFormsOnOpen; OpenDesignerOnOpenUnitCheckBox.Checked := AutoCreateFormsOnOpen;
CheckPackagesOnFormCreateCheckBox.Checked := CheckPackagesOnFormCreate;
RightClickSelectsCheckBox.Checked := RightClickSelects; RightClickSelectsCheckBox.Checked := RightClickSelects;
RubberbandSelectsGrandChildsCheckBox.Checked := RubberbandSelectsGrandChilds; RubberbandSelectsGrandChildsCheckBox.Checked := RubberbandSelectsGrandChilds;
DesignerPaintLazyCheckBox.Checked := DesignerPaintLazy; DesignerPaintLazyCheckBox.Checked := DesignerPaintLazy;
@ -193,6 +196,7 @@ begin
ShowComponentCaptions := ShowComponentCaptionsCheckBox.Checked; ShowComponentCaptions := ShowComponentCaptionsCheckBox.Checked;
ShowEditorHints := ShowEditorHintsCheckBox.Checked; ShowEditorHints := ShowEditorHintsCheckBox.Checked;
AutoCreateFormsOnOpen := OpenDesignerOnOpenUnitCheckBox.Checked; AutoCreateFormsOnOpen := OpenDesignerOnOpenUnitCheckBox.Checked;
CheckPackagesOnFormCreate := CheckPackagesOnFormCreateCheckBox.Checked;
RightClickSelects := RightClickSelectsCheckBox.Checked; RightClickSelects := RightClickSelectsCheckBox.Checked;
RubberbandSelectsGrandChilds := RubberbandSelectsGrandChildsCheckBox.Checked; RubberbandSelectsGrandChilds := RubberbandSelectsGrandChildsCheckBox.Checked;
DesignerPaintLazy := DesignerPaintLazyCheckBox.Checked; DesignerPaintLazy := DesignerPaintLazyCheckBox.Checked;

1
ide/lazarusidestrconsts.pas
View File

@ -1046,6 +1046,7 @@ resourcestring
dlgShowEdrHints = 'Show editor hints'; dlgShowEdrHints = 'Show editor hints';
dlgrightClickSelects = 'Right Click selects'; dlgrightClickSelects = 'Right Click selects';
lisOpenDesignerOnOpenUnit = 'Open designer on open unit'; lisOpenDesignerOnOpenUnit = 'Open designer on open unit';
dlgCheckPackagesOnFormCreate = 'Check packages on form create';
dlgGrabberColor = 'Grabber color'; dlgGrabberColor = 'Grabber color';
dlgMarkerColor = 'Marker color'; dlgMarkerColor = 'Marker color';
lisFEPaintDesignerItemsOnIdle = 'Reduce designer painting'; lisFEPaintDesignerItemsOnIdle = 'Reduce designer painting';

14
ide/main.pp
View File

@ -5888,12 +5888,16 @@ begin
end; end;
// check installed packages // check installed packages
if (AnUnitInfo.Component=nil) and AnUnitInfo.IsPartOfProject if EnvironmentOptions.CheckPackagesOnFormCreate and
and (not (ofProjectLoading in OpenFlags)) then begin (AnUnitInfo.Component = nil) and
AnUnitInfo.IsPartOfProject and
(not (ofProjectLoading in OpenFlags)) then
begin
// opening a form of the project -> check installed packages // opening a form of the project -> check installed packages
Result:=PkgBoss.CheckProjectHasInstalledPackages(Project1, Result := PkgBoss.CheckProjectHasInstalledPackages(Project1,
OpenFlags*[ofProjectLoading,ofQuiet]=[]); OpenFlags * [ofProjectLoading, ofQuiet] = []);
if not (Result in [mrOk,mrIgnore]) then begin if not (Result in [mrOk, mrIgnore]) then
begin
DebugLn(['TMainIDE.DoLoadLFM PkgBoss.CheckProjectHasInstalledPackages failed']); DebugLn(['TMainIDE.DoLoadLFM PkgBoss.CheckProjectHasInstalledPackages failed']);
exit; exit;
end; end;