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

git-svn-id: trunk@49797 -

components/todolist/todolist.lfm

@@ -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'
+  LCLVersion = '1.5'
-  object StatusBar: TStatusBar
-    Left = 0
-    Height = 22
-    Top = 278
-    Width = 643
-    Panels = <>
-  end
   object lvTodo: TListView
-    Left = 0
+    Left = 6
-    Height = 230
+    Height = 205
-    Top = 48
+    Top = 54
-    Width = 643
+    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

components/todolist/todolist.pas

@@ -63,10 +63,10 @@ interface
 uses
   // FCL, RTL, LCL
   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
-  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;