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

extern help: fill store-in combobox

Browse Source 
git-svn-id: trunk@24715 -
This commit is contained in:
mattias 2010-04-19 08:40:21 +00:00
parent 163ee22f48
commit 4a245a3f0d
2 changed files with 37 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/externhelp/externhelpfrm.lfm
View File

@ -178,6 +178,7 @@ inherited ExternHelpGeneralOptsFrame: TExternHelpGeneralOptsFrame
Top = 305
Width = 157
ItemHeight = 0
OnEditingDone = StoreComboBoxEditingDone
TabOrder = 5
Text = 'StoreComboBox'
end

38
components/externhelp/externhelpfrm.pas
View File

@ -209,14 +209,18 @@ type
var DragObject: TDragObject);
procedure NameEditChange(Sender: TObject);
procedure NameEditEditingDone(Sender: TObject);
procedure StoreComboBoxEditingDone(Sender: TObject);
procedure URLMemoEditingDone(Sender: TObject);
procedure WithSubDirsCheckBoxEditingDone(Sender: TObject);
private
FOptions: TExternHelpOptions;
FDragNode: TTreeNode;
FMySettingsCaption: string;
procedure FillItemsTreeView;
procedure NameChanged(TVNode: TTreeNode; var NewName: string;
UpdateTree, UpdateEdit: boolean);
procedure StoreInChanged(TVNode: TTreeNode; var NewStoreIn: string;
UpdateTree, UpdateEdit: boolean);
procedure SelectionChanged;
function FindTVNode(NodeText: string): TTreeNode;
function CreateUniqueName(Prefix: string): string;
@ -681,6 +685,14 @@ begin
NameChanged(ItemsTreeView.Selected,S,true,true);
end;
procedure TExternHelpGeneralOptsFrame.StoreComboBoxEditingDone(Sender: TObject);
var
S: String;
begin
S:=StoreComboBox.Text;
StoreInChanged(ItemsTreeView.Selected,S,true,true);
end;
procedure TExternHelpGeneralOptsFrame.URLMemoEditingDone(Sender: TObject);
var
s: String;
@ -749,6 +761,24 @@ begin
end;
end;
procedure TExternHelpGeneralOptsFrame.StoreInChanged(TVNode: TTreeNode; var
NewStoreIn: string; UpdateTree, UpdateEdit: boolean);
var
Item: TExternHelpItem;
begin
NewStoreIn:=Trim(NewStoreIn);
if NewStoreIn=FMySettingsCaption then
NewStoreIn:='';
if (TVNode<>nil) and (TObject(TVNode.Data) is TExternHelpItem) then begin
Item:=TExternHelpItem(TVNode.Data);
Item.StoreIn:=NewStoreIn;
if UpdateTree then
;
if UpdateEdit then
StoreComboBox.Text:=NewStoreIn;
end;
end;
procedure TExternHelpGeneralOptsFrame.SelectionChanged;
var
TVNode: TTreeNode;
@ -774,7 +804,7 @@ begin
URLMemo.Lines.Text:=Item.URL;
StoreComboBox.Enabled:=Item.Parent=Options.RootItem;
s:=Item.StoreIn;
if s='' then s:=ehrsMySettings;
if s='' then s:=FMySettingsCaption;
StoreComboBox.Text:=s;
end else begin
NameEdit.Enabled:=false;
@ -814,11 +844,14 @@ end;
procedure TExternHelpGeneralOptsFrame.FillStoreInCombobox;
var
sl: TStringList;
i: Integer;
begin
sl:=TStringList.Create;
try
for i:=0 to PackageEditingInterface.GetPackageCount-1 do
sl.Add(PackageEditingInterface.GetPackages(i).Name);
sl.Sort;
sl.Insert(0, ehrsMySettings);
sl.Insert(0, Trim(FMySettingsCaption));
StoreComboBox.Items.Assign(sl);
finally
sl.Free;
@ -893,6 +926,7 @@ begin
FileMacrofyButton.Hint:=ehrsReplaceCommonDirectoriesWithMacros;
WithSubDirsCheckBox.Caption:=ehrsIncludeSubDirectories;
StoreLabel.Caption:=ehrsStoreThisURLIn;
FMySettingsCaption:=ehrsMySettings;
end;
class function TExternHelpGeneralOptsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;