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

externhelp: icons for add, delete button

Browse Source 
git-svn-id: trunk@24462 -
This commit is contained in:
mattias 2010-04-06 10:58:52 +00:00
parent 17f226111f
commit 8611cf8b5a
2 changed files with 22 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
components/externhelp/externhelpfrm.lfm
View File

@ -1,8 +1,8 @@
inherited ExternHelpGeneralOptsFrame: TExternHelpGeneralOptsFrame
Height = 326
Width = 437
Width = 484
ClientHeight = 326
ClientWidth = 437
ClientWidth = 484
TabOrder = 0
DesignLeft = 358
DesignTop = 166
@ -14,7 +14,7 @@ inherited ExternHelpGeneralOptsFrame: TExternHelpGeneralOptsFrame
Left = 6
Height = 286
Top = 6
Width = 154
Width = 218
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
@ -65,7 +65,7 @@ inherited ExternHelpGeneralOptsFrame: TExternHelpGeneralOptsFrame
AnchorSideLeft.Control = Splitter1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner
Left = 171
Left = 235
Height = 18
Top = 20
Width = 75
@ -80,10 +80,10 @@ inherited ExternHelpGeneralOptsFrame: TExternHelpGeneralOptsFrame
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 171
Left = 235
Height = 27
Top = 38
Width = 260
Width = 243
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6
OnChange = NameEditChange
@ -95,7 +95,7 @@ inherited ExternHelpGeneralOptsFrame: TExternHelpGeneralOptsFrame
AnchorSideLeft.Control = NameLabel
AnchorSideTop.Control = NameEdit
AnchorSideTop.Side = asrBottom
Left = 171
Left = 235
Height = 18
Top = 80
Width = 96
@ -109,10 +109,10 @@ inherited ExternHelpGeneralOptsFrame: TExternHelpGeneralOptsFrame
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 171
Left = 235
Height = 27
Top = 98
Width = 266
Width = 249
Anchors = [akTop, akLeft, akRight]
OnEditingDone = FilenameEditEditingDone
TabOrder = 2
@ -122,7 +122,7 @@ inherited ExternHelpGeneralOptsFrame: TExternHelpGeneralOptsFrame
AnchorSideLeft.Control = NameLabel
AnchorSideTop.Control = FileBrowseButton
AnchorSideTop.Side = asrBottom
Left = 171
Left = 235
Height = 18
Top = 169
Width = 62
@ -136,10 +136,10 @@ inherited ExternHelpGeneralOptsFrame: TExternHelpGeneralOptsFrame
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 171
Left = 235
Height = 27
Top = 187
Width = 260
Width = 243
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6
OnEditingDone = URLEditEditingDone
@ -151,7 +151,7 @@ inherited ExternHelpGeneralOptsFrame: TExternHelpGeneralOptsFrame
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 346
Left = 393
Height = 29
Top = 291
Width = 85
@ -165,7 +165,7 @@ inherited ExternHelpGeneralOptsFrame: TExternHelpGeneralOptsFrame
AnchorSideTop.Control = ItemsTreeView
AnchorSideBottom.Control = ItemsTreeView
AnchorSideBottom.Side = asrBottom
Left = 160
Left = 224
Height = 286
Top = 6
Width = 5
@ -176,7 +176,7 @@ inherited ExternHelpGeneralOptsFrame: TExternHelpGeneralOptsFrame
AnchorSideLeft.Control = NameLabel
AnchorSideTop.Control = URLEdit
AnchorSideTop.Side = asrBottom
Left = 171
Left = 235
Height = 18
Top = 229
Width = 70
@ -188,7 +188,7 @@ inherited ExternHelpGeneralOptsFrame: TExternHelpGeneralOptsFrame
AnchorSideLeft.Control = StoreLabel
AnchorSideTop.Control = StoreLabel
AnchorSideTop.Side = asrBottom
Left = 171
Left = 235
Height = 29
Top = 247
Width = 157
@ -203,7 +203,7 @@ inherited ExternHelpGeneralOptsFrame: TExternHelpGeneralOptsFrame
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = FilenameEdit
AnchorSideBottom.Side = asrBottom
Left = 171
Left = 235
Height = 29
Top = 125
Width = 60
@ -220,7 +220,7 @@ inherited ExternHelpGeneralOptsFrame: TExternHelpGeneralOptsFrame
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = FilenameEdit
AnchorSideTop.Side = asrBottom
Left = 237
Left = 301
Height = 29
Top = 125
Width = 131

6
components/externhelp/externhelpfrm.pas
View File

@ -37,7 +37,8 @@ interface
uses
Classes, SysUtils, LCLProc, FileUtil, LResources, Forms, Controls, Graphics,
Dialogs, LazConfigStorage, ComCtrls, Buttons, StdCtrls, ExtCtrls,
PackageIntf, MacroIntf, IDEOptionsIntf, LazIDEIntf, BaseIDEIntf, IDEDialogs;
PackageIntf, MacroIntf, IDEOptionsIntf, LazIDEIntf, BaseIDEIntf, IDEDialogs,
IDEImagesIntf;
const
ExternHelpConfigVersion = 1;
@ -220,7 +221,6 @@ begin
ExternHelpOptionID:=GroupHelp;
ExternHelpOptionGeneralID:=RegisterIDEOptionsEditor(ExternHelpOptionID,
TExternHelpGeneralOptsFrame,ExternHelpOptionGeneralID)^.Index;
DebugLn(['Register ',ExternHelpOptionGeneralID]);
try
ExternHelpOptions.Load;
except
@ -740,6 +740,8 @@ constructor TExternHelpGeneralOptsFrame.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
FOptions:=TExternHelpOptions.Create;
AddSpeedButton.LoadGlyphFromLazarusResource('laz_add');
DeleteSpeedButton.LoadGlyphFromLazarusResource('laz_delete');
end;
destructor TExternHelpGeneralOptsFrame.Destroy;