Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/InputAssist.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by h677, Sat Feb 18 18:09:47 2006 UTC revision 1.4 by h677, Sun Feb 26 16:40:51 2006 UTC
# Line 5  interface Line 5  interface
5  uses  uses
6    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7    Dialogs, StdCtrls, ComCtrls, GikoListView, Menus, ExtCtrls, ImgList,    Dialogs, StdCtrls, ComCtrls, GikoListView, Menus, ExtCtrls, ImgList,
8    InputAssistDataModule, StdActns, ActnList;    InputAssistDataModule, StdActns, ActnList, GikoSystem;
9    
10  type  type
11    TInputAssistForm = class(TForm)    TInputAssistForm = class(TForm)
# Line 72  var Line 72  var
72    
73  implementation  implementation
74    
75    uses Setting;
76    
77    
78  {$R *.dfm}  {$R *.dfm}
79  //! フォーム生成のイベント  //! フォーム生成のイベント
80  procedure TInputAssistForm.FormCreate(Sender: TObject);  procedure TInputAssistForm.FormCreate(Sender: TObject);
81  var  var
82            wp: TWindowPlacement;
83          i : Integer;          i : Integer;
84          column: TListColumn;          column: TListColumn;
85  begin  begin
86            //ウィンドウの位置設定
87            wp.length := sizeof(wp);
88            wp.rcNormalPosition.Top := GikoSys.Setting.InputAssistFormTop;
89            wp.rcNormalPosition.Left := GikoSys.Setting.InputAssistFormLeft;
90    
91            wp.rcNormalPosition.Bottom := GikoSys.Setting.InputAssistFormTop
92                                                                            + GikoSys.Setting.InputAssistFormHeight;
93            wp.rcNormalPosition.Right := GikoSys.Setting.InputAssistFormLeft
94                                                                            + GikoSys.Setting.InputAssistFormWidth;
95            wp.showCmd := SW_HIDE;
96            SetWindowPlacement(Handle, @wp);
97    
98          FSortColumn := 0;          FSortColumn := 0;
99          GikoListView1.Columns.Clear;          GikoListView1.Columns.Clear;
100          column := GikoListView1.Columns.Add;          column := GikoListView1.Columns.Add;
# Line 166  end; Line 181  end;
181  procedure TInputAssistForm.FormClose(Sender: TObject;  procedure TInputAssistForm.FormClose(Sender: TObject;
182    var Action: TCloseAction);    var Action: TCloseAction);
183  begin  begin
184            GikoSys.Setting.InputAssistFormTop := Self.Top;
185            GikoSys.Setting.InputAssistFormLeft := Self.Left;
186            GikoSys.Setting.InputAssistFormHeight := Self.Height;
187            GikoSys.Setting.InputAssistFormWidth := Self.Width;
188          //ソート状態の設定          //ソート状態の設定
189          InputAssistDM.Sorted := True;          InputAssistDM.Sorted := True;
190  end;  end;

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26