paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 10:39:09 +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
Width = 116
BorderSpacing.Around = 6
OnEnter = FPDocPackageNameEditEnter
OnExit = FPDocPackageNameEditExit
ParentShowHint = False
ShowHint = True
TabOrder = 1

26
packager/frames/package_integration_options.pas
View File

@ -21,6 +21,8 @@ type
FPDocSearchPathsEdit: TEdit;
PkgTypeRadioGroup: TRadioGroup;
UpdateRadioGroup: TRadioGroup;
procedure FPDocPackageNameEditEnter(Sender: TObject);
procedure FPDocPackageNameEditExit(Sender: TObject);
procedure PkgTypeRadioGroupClick(Sender: TObject);
private
FLazPackage: TLazPackage;
@ -60,6 +62,20 @@ begin
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);
var
AButton: TPathEditorButton absolute Sender;
@ -176,7 +192,10 @@ begin
UpdateRadioGroup.ItemIndex := 2;
end;
FPDocSearchPathsEdit.Text:=LazPackage.FPDocPaths;
FPDocPackageNameEdit.Text:=LazPackage.FPDocPackageName;
if LazPackage.FPDocPackageName='' then
FPDocPackageNameEdit.Text:=lisDefaultPlaceholder
else
FPDocPackageNameEdit.Text:=LazPackage.FPDocPackageName;
end;
function TPackageIntegrationOptionsFrame.ShowMsgPackageTypeMustBeDesign: boolean;
@ -224,7 +243,10 @@ begin
LazPackage.AutoUpdate := pupAsNeeded;
end;
LazPackage.FPDocPaths := FPDocSearchPathsEdit.Text;
LazPackage.FPDocPackageName := FPDocPackageNameEdit.Text;
if FPDocPackageNameEdit.Text=lisDefaultPlaceholder then
LazPackage.FPDocPackageName := ''
else
LazPackage.FPDocPackageName := FPDocPackageNameEdit.Text;
end;
class function TPackageIntegrationOptionsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;