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

IDE: package fpdoc package name: show (default)

Browse Source 
git-svn-id: trunk@34827 -
This commit is contained in:
mattias 2012-01-20 22:43:47 +00:00
parent 817dce013f
commit 1a5a4fbd4c
2 changed files with 26 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packager/frames/package_integration_options.lfm
View File

@ -141,6 +141,8 @@ inherited PackageIntegrationOptionsFrame: TPackageIntegrationOptionsFrame
Top = 36 Top = 36
Width = 116 Width = 116
BorderSpacing.Around = 6 BorderSpacing.Around = 6
OnEnter = FPDocPackageNameEditEnter
OnExit = FPDocPackageNameEditExit
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 1 TabOrder = 1

22
packager/frames/package_integration_options.pas
View File

@ -21,6 +21,8 @@ type
FPDocSearchPathsEdit: TEdit; FPDocSearchPathsEdit: TEdit;
PkgTypeRadioGroup: TRadioGroup; PkgTypeRadioGroup: TRadioGroup;
UpdateRadioGroup: TRadioGroup; UpdateRadioGroup: TRadioGroup;
procedure FPDocPackageNameEditEnter(Sender: TObject);
procedure FPDocPackageNameEditExit(Sender: TObject);
procedure PkgTypeRadioGroupClick(Sender: TObject); procedure PkgTypeRadioGroupClick(Sender: TObject);
private private
FLazPackage: TLazPackage; FLazPackage: TLazPackage;
@ -60,6 +62,20 @@ begin
end; end;
end; end;
procedure TPackageIntegrationOptionsFrame.FPDocPackageNameEditEnter(
Sender: TObject);
begin
if FPDocPackageNameEdit.Text=lisDefaultPlaceholder then
FPDocPackageNameEdit.Text:='';
end;
procedure TPackageIntegrationOptionsFrame.FPDocPackageNameEditExit(
Sender: TObject);
begin
if FPDocPackageNameEdit.Text='' then
FPDocPackageNameEdit.Text:=lisDefaultPlaceholder;
end;
procedure TPackageIntegrationOptionsFrame.PathEditBtnClick(Sender: TObject); procedure TPackageIntegrationOptionsFrame.PathEditBtnClick(Sender: TObject);
var var
AButton: TPathEditorButton absolute Sender; AButton: TPathEditorButton absolute Sender;
@ -176,6 +192,9 @@ begin
UpdateRadioGroup.ItemIndex := 2; UpdateRadioGroup.ItemIndex := 2;
end; end;
FPDocSearchPathsEdit.Text:=LazPackage.FPDocPaths; FPDocSearchPathsEdit.Text:=LazPackage.FPDocPaths;
if LazPackage.FPDocPackageName='' then
FPDocPackageNameEdit.Text:=lisDefaultPlaceholder
else
FPDocPackageNameEdit.Text:=LazPackage.FPDocPackageName; FPDocPackageNameEdit.Text:=LazPackage.FPDocPackageName;
end; end;
@ -224,6 +243,9 @@ begin
LazPackage.AutoUpdate := pupAsNeeded; LazPackage.AutoUpdate := pupAsNeeded;
end; end;
LazPackage.FPDocPaths := FPDocSearchPathsEdit.Text; LazPackage.FPDocPaths := FPDocSearchPathsEdit.Text;
if FPDocPackageNameEdit.Text=lisDefaultPlaceholder then
LazPackage.FPDocPackageName := ''
else
LazPackage.FPDocPackageName := FPDocPackageNameEdit.Text; LazPackage.FPDocPackageName := FPDocPackageNameEdit.Text;
end; end;