mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-15 23:39:24 +02:00
todolist: added button panel, patch #28649 from Alexey Torgashin
git-svn-id: trunk@49797 -
This commit is contained in:
parent
8d32bb263f
commit
5195829561
@ -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
|
||||||
|
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user