paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-14 07:59:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
components/todolist/todolist.lfm
View File

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

14
components/todolist/todolist.pas
View File

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