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

PackageIntegration frame: Use TextHint. Issue #28197, patch from Alexey Torgashin.

Browse Source 
git-svn-id: trunk@49201 -
This commit is contained in:
juha 2015-05-29 09:04:14 +00:00
parent 7abf4ba56f
commit b49ef96e4c
2 changed files with 31 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
packager/frames/package_integration_options.lfm
View File

@ -10,8 +10,8 @@ object PackageIntegrationOptionsFrame: TPackageIntegrationOptionsFrame
DesignTop = 267
object UpdateRadioGroup: TRadioGroup
Left = 0
Height = 103
Top = 133
Height = 89
Top = 114
Width = 461
Align = alTop
AutoFill = True
@ -26,7 +26,7 @@ object PackageIntegrationOptionsFrame: TPackageIntegrationOptionsFrame
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 84
ClientHeight = 69
ClientWidth = 457
ItemIndex = 0
Items.Strings = (
@ -38,14 +38,14 @@ object PackageIntegrationOptionsFrame: TPackageIntegrationOptionsFrame
end
object DocGroupBox: TGroupBox
Left = 0
Height = 91
Top = 242
Height = 84
Top = 209
Width = 461
Align = alTop
AutoSize = True
BorderSpacing.Top = 6
Caption = 'FPDoc settings'
ClientHeight = 72
ClientHeight = 64
ClientWidth = 457
TabOrder = 1
object FPDocSearchPathsEdit: TEdit
@ -54,10 +54,10 @@ object PackageIntegrationOptionsFrame: TPackageIntegrationOptionsFrame
AnchorSideTop.Control = DocGroupBox
AnchorSideRight.Control = DocGroupBox
AnchorSideRight.Side = asrBottom
Left = 175
Height = 27
Left = 138
Height = 23
Top = 6
Width = 276
Width = 313
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
ParentShowHint = False
@ -70,9 +70,9 @@ object PackageIntegrationOptionsFrame: TPackageIntegrationOptionsFrame
AnchorSideTop.Control = FPDocSearchPathsEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 17
Top = 11
Width = 163
Height = 15
Top = 10
Width = 126
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'FPDocSearchPathsLabel'
@ -83,9 +83,9 @@ object PackageIntegrationOptionsFrame: TPackageIntegrationOptionsFrame
AnchorSideTop.Control = FPDocPackageNameEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 17
Top = 44
Width = 176
Height = 15
Top = 39
Width = 138
BorderSpacing.Left = 6
Caption = 'FPDocPackageNameLabel'
ParentColor = False
@ -95,22 +95,19 @@ object PackageIntegrationOptionsFrame: TPackageIntegrationOptionsFrame
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = FPDocSearchPathsEdit
AnchorSideTop.Side = asrBottom
Left = 188
Height = 27
Top = 39
Left = 150
Height = 23
Top = 35
Width = 116
BorderSpacing.Around = 6
OnEnter = FPDocPackageNameEditEnter
OnExit = FPDocPackageNameEditExit
ParentShowHint = False
ShowHint = True
TabOrder = 1
Text = 'FPDocPackageNameEdit'
end
end
object PkgTypeGroupBox: TGroupBox
Left = 0
Height = 127
Height = 108
Top = 0
Width = 461
Align = alTop
@ -124,14 +121,14 @@ object PackageIntegrationOptionsFrame: TPackageIntegrationOptionsFrame
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 108
ClientHeight = 88
ClientWidth = 457
Constraints.MinHeight = 30
TabOrder = 2
OnClick = PkgTypeGroupBoxClick
object RunAndDesignTimeRadioButton: TRadioButton
Left = 6
Height = 24
Height = 19
Top = 6
Width = 445
Caption = 'RunAndDesignTimeRadioButton'
@ -143,8 +140,8 @@ object PackageIntegrationOptionsFrame: TPackageIntegrationOptionsFrame
end
object DesignTimeRadioButton: TRadioButton
Left = 6
Height = 24
Top = 30
Height = 19
Top = 25
Width = 445
Caption = 'DesignTimeRadioButton'
ParentShowHint = False
@ -153,8 +150,8 @@ object PackageIntegrationOptionsFrame: TPackageIntegrationOptionsFrame
end
object RunTimeRadioButton: TRadioButton
Left = 6
Height = 24
Top = 54
Height = 19
Top = 44
Width = 445
Caption = 'RunTimeRadioButton'
ParentShowHint = False
@ -163,8 +160,8 @@ object PackageIntegrationOptionsFrame: TPackageIntegrationOptionsFrame
end
object RunTimeOnlyRadioButton: TRadioButton
Left = 6
Height = 24
Top = 78
Height = 19
Top = 63
Width = 445
Caption = 'RunTimeOnlyRadioButton'
ParentShowHint = False

24
packager/frames/package_integration_options.pas
View File

@ -25,8 +25,6 @@ type
RunTimeOnlyRadioButton: TRadioButton;
RunTimeRadioButton: TRadioButton;
UpdateRadioGroup: TRadioGroup;
procedure FPDocPackageNameEditEnter(Sender: TObject);
procedure FPDocPackageNameEditExit(Sender: TObject);
procedure PkgTypeGroupBoxClick(Sender: TObject);
private
FLazPackage: TLazPackage;
@ -68,20 +66,6 @@ begin
end;
end;
procedure TPackageIntegrationOptionsFrame.FPDocPackageNameEditEnter(Sender: TObject);
begin
if FPDocPackageNameEdit.Text=lisDefaultPlaceholder then
FPDocPackageNameEdit.Text:='';
end;
procedure TPackageIntegrationOptionsFrame.FPDocPackageNameEditExit(Sender: TObject);
begin
if GetFPDocPkgNameEditValue='' then
FPDocPackageNameEdit.Text:=lisDefaultPlaceholder
else
FPDocPackageNameEdit.Text:=GetFPDocPkgNameEditValue;
end;
function TPackageIntegrationOptionsFrame.GetSelectedPkgType: TLazPackageType;
begin
if RunTimeOnlyRadioButton.Checked then
@ -204,9 +188,8 @@ begin
UpdateRadioGroup.ItemIndex := 2;
end;
SetPathTextAndHint(FLazPackage.FPDocPaths, FPDocSearchPathsEdit);
if FLazPackage.FPDocPackageName='' then
FPDocPackageNameEdit.Text:=lisDefaultPlaceholder
else
FPDocPackageNameEdit.TextHint:=lisDefaultPlaceholder;
FPDocPackageNameEdit.Text:=FLazPackage.FPDocPackageName;
end;
@ -226,9 +209,6 @@ end;
function TPackageIntegrationOptionsFrame.GetFPDocPkgNameEditValue: string;
begin
if FPDocPackageNameEdit.Text=lisDefaultPlaceholder then
Result:=''
else
Result:=MakeValidFPDocPackageName(FPDocPackageNameEdit.Text);
end;