todolist: added button panel, patch #28649 from Alexey Torgashin

git-svn-id: trunk@49797 -
This commit is contained in:
mattias 2015-09-09 15:25:17 +00:00
parent 8d32bb263f
commit 5195829561
2 changed files with 40 additions and 28 deletions

View File

@ -1,7 +1,7 @@
object IDETodoWindow: TIDETodoWindow object IDETodoWindow: TIDETodoWindow
Left = 263 Left = 415
Height = 300 Height = 300
Top = 409 Top = 429
Width = 643 Width = 643
ActiveControl = lvTodo ActiveControl = lvTodo
Caption = 'IDETodoWindow' Caption = 'IDETodoWindow'
@ -12,23 +12,16 @@ object IDETodoWindow: TIDETodoWindow
OnKeyDown = FormKeyDown OnKeyDown = FormKeyDown
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.1' LCLVersion = '1.5'
object StatusBar: TStatusBar
Left = 0
Height = 22
Top = 278
Width = 643
Panels = <>
end
object lvTodo: TListView object lvTodo: TListView
Left = 0 Left = 6
Height = 230 Height = 205
Top = 48 Top = 54
Width = 643 Width = 631
Align = alClient Align = alClient
BorderSpacing.Around = 6
Columns = < Columns = <
item item
AutoSize = False
Caption = 'Done' Caption = 'Done'
Width = 100 Width = 100
end end
@ -37,27 +30,22 @@ object IDETodoWindow: TIDETodoWindow
Width = 700 Width = 700
end end
item item
AutoSize = False
Caption = 'Priority' Caption = 'Priority'
Width = 100 Width = 100
end end
item item
AutoSize = False
Caption = 'Module' Caption = 'Module'
Width = 100 Width = 100
end end
item item
AutoSize = False
Caption = 'Line' Caption = 'Line'
Width = 100 Width = 100
end end
item item
AutoSize = False
Caption = 'Owner' Caption = 'Owner'
Width = 100 Width = 100
end end
item item
AutoSize = False
Caption = 'Category' Caption = 'Category'
Width = 100 Width = 100
end> end>
@ -84,7 +72,7 @@ object IDETodoWindow: TIDETodoWindow
ShowHint = True ShowHint = True
TabOrder = 1 TabOrder = 1
object tbOptions: TToolButton object tbOptions: TToolButton
Left = 199 Left = 209
Top = 2 Top = 2
AllowAllUp = True AllowAllUp = True
AutoSize = True AutoSize = True
@ -92,7 +80,7 @@ object IDETodoWindow: TIDETodoWindow
Visible = False Visible = False
end end
object tbPrint: TToolButton object tbPrint: TToolButton
Left = 152 Left = 162
Top = 2 Top = 2
AutoSize = True AutoSize = True
Caption = 'Print' Caption = 'Print'
@ -105,18 +93,36 @@ object IDETodoWindow: TIDETodoWindow
AutoSize = True AutoSize = True
end end
object tbGoto: TToolButton object tbGoto: TToolButton
Left = 56 Left = 61
Top = 2 Top = 2
Action = acGoto Action = acGoto
AutoSize = True AutoSize = True
end end
object tbExport: TToolButton object tbExport: TToolButton
Left = 103 Left = 108
Top = 2 Top = 2
Action = acExport Action = acExport
AutoSize = True AutoSize = True
end end
end end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 29
Top = 265
Width = 631
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
HelpButton.OnClick = HelpButtonClick
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 2
ShowButtons = [pbClose, pbHelp]
ShowBevel = False
end
object ActionList: TActionList object ActionList: TActionList
left = 414 left = 414
top = 11 top = 11

View File

@ -63,10 +63,10 @@ interface
uses uses
// FCL, RTL, LCL // FCL, RTL, LCL
Classes, SysUtils, Math, LCLProc, Forms, Controls, Dialogs, StrUtils, Classes, SysUtils, Math, LCLProc, Forms, Controls, Dialogs, StrUtils,
ComCtrls, ActnList, AvgLvlTree, LazUTF8Classes, LCLType, CodeCache, ComCtrls, ActnList, AvgLvlTree, LazUTF8Classes, LCLType, ButtonPanel,
CodeToolManager, BasicCodeTools, FileProcs, LazFileUtils, CodeCache, CodeToolManager, BasicCodeTools, FileProcs, LazFileUtils,
// IDEIntf // IDEIntf
LazIDEIntf, IDEImagesIntf, PackageIntf, ProjectIntf, LazIDEIntf, IDEImagesIntf, PackageIntf, ProjectIntf, IDEHelpIntf,
// IDE // IDE
ToDoListStrConsts; ToDoListStrConsts;
@ -138,9 +138,9 @@ type
acRefresh: TAction; acRefresh: TAction;
acExport: TAction; acExport: TAction;
ActionList: TActionList; ActionList: TActionList;
ButtonPanel1: TButtonPanel;
lvTodo: TListView; lvTodo: TListView;
SaveDialog1: TSaveDialog; SaveDialog1: TSaveDialog;
StatusBar: TStatusBar;
ToolBar: TToolBar; ToolBar: TToolBar;
tbGoto: TToolButton; tbGoto: TToolButton;
tbOptions: TToolButton; tbOptions: TToolButton;
@ -153,6 +153,7 @@ type
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift:TShiftState); procedure FormKeyDown(Sender: TObject; var Key: Word; Shift:TShiftState);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure HelpButtonClick(Sender: TObject);
procedure lvTodoClick(Sender: TObject); procedure lvTodoClick(Sender: TObject);
procedure lvTodoColumnClick(Sender : TObject; Column : TListColumn); procedure lvTodoColumnClick(Sender : TObject; Column : TListColumn);
procedure lvTodoCompare(Sender : TObject; Item1, Item2 : TListItem; procedure lvTodoCompare(Sender : TObject; Item1, Item2 : TListItem;
@ -338,6 +339,11 @@ begin
IdleConnected:=true; IdleConnected:=true;
end; end;
procedure TIDETodoWindow.HelpButtonClick(Sender: TObject);
begin
LazarusHelp.ShowHelpForIDEControl(Self);
end;
procedure TIDETodoWindow.lvTodoClick(Sender: TObject); procedure TIDETodoWindow.lvTodoClick(Sender: TObject);
begin begin
acGoto.Execute; acGoto.Execute;