Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

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

revision 1.238 by yoffy, Mon Apr 5 08:48:34 2004 UTC revision 1.239 by yoffy, Mon Apr 5 09:57:24 2004 UTC
# Line 527  type Line 527  type
527      BBSSelectPopupMenu: TPopupMenu;      BBSSelectPopupMenu: TPopupMenu;
528                  PlugInMenu: TMenuItem;                  PlugInMenu: TMenuItem;
529      TmpToolBar: TToolBar;      TmpToolBar: TToolBar;
530        MaximizeTimer: TTimer;
531                  procedure FormCreate(Sender: TObject);                  procedure FormCreate(Sender: TObject);
532                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
533                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
# Line 840  type Line 841  type
841      procedure TreeViewClick(Sender: TObject);      procedure TreeViewClick(Sender: TObject);
842      procedure TreeViewKeyDown(Sender: TObject; var Key: Word;      procedure TreeViewKeyDown(Sender: TObject; var Key: Word;
843        Shift: TShiftState);        Shift: TShiftState);
844        procedure MaximizeTimerTimer(Sender: TObject);
845          private          private
846                  { Private 宣言 }                  { Private 宣言 }
847          //RoundList : TRoundList;          //RoundList : TRoundList;
# Line 1298  begin Line 1300  begin
1300          SetWindowPlacement(Handle, @wp);          SetWindowPlacement(Handle, @wp);
1301    
1302          // 起動時に保存されてしまう対策 2          // 起動時に保存されてしまう対策 2
1303          FIsIconiced := True;  //      FIsIconiced := True;
1304  //      SetBounds(GikoSys.Setting.WindowLeft, GikoSys.Setting.WindowTop,  //      SetBounds(GikoSys.Setting.WindowLeft, GikoSys.Setting.WindowTop,
1305  //                                              GikoSys.Setting.WindowWidth, GikoSys.Setting.WindowHeight);  //                                              GikoSys.Setting.WindowWidth, GikoSys.Setting.WindowHeight);
1306          if GikoSys.Setting.WindowMax then          if GikoSys.Setting.WindowMax then
1307                  WindowState := wsMaximized;  //              WindowState := wsMaximized;
1308                    MaximizeTimer.Enabled := True;
1309    
1310          //ギコアニメ          //ギコアニメ
1311          try          try
# Line 1442  begin Line 1445  begin
1445                                  // スレッド絞込ボタンを隠す                                  // スレッド絞込ボタンを隠す
1446                                  ListToolBar.Controls[ i ].Visible := False;                                  ListToolBar.Controls[ i ].Visible := False;
1447                                  // スレッド絞込フィールドを挿入                                  // スレッド絞込フィールドを挿入
1448                  SelectComboBox.Parent := ListToolBar;                                  SelectComboBox.Parent := ListToolBar;
1449                                  SelectComboBox.Left := ListToolBar.Controls[ i ].Left;                                  SelectComboBox.Left := ListToolBar.Controls[ i ].Left;
1450                                  SelectComboBox.Width := GikoSys.Setting.SelectComboBoxWidth;                                  SelectComboBox.Width := GikoSys.Setting.SelectComboBoxWidth;
1451                                  // スレッド絞込用独自セパレータを挿入                                  // スレッド絞込用独自セパレータを挿入
1452                  SelectComboBoxSplitter.Parent := ListToolBar;                                  SelectComboBoxSplitter.Parent := ListToolBar;
1453                                  SelectComboBoxSplitter.Left := SelectComboBox.Left + SelectComboBox.Width;                                  SelectComboBoxSplitter.Left := SelectComboBox.Left + SelectComboBox.Width;
1454    
1455                                  break;                                  break;
# Line 1660  begin Line 1663  begin
1663    
1664          // CoolBar 復元          // CoolBar 復元
1665          LoadCoolBarSettings;          LoadCoolBarSettings;
   
1666  end;  end;
1667    
1668  procedure TGikoForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);  procedure TGikoForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
1669  var  var
1670          i: Integer;          i: Integer;
# Line 3653  var Line 3656  var
3656          i, b            : Integer;          i, b            : Integer;
3657          item            : TMenuItem;          item            : TMenuItem;
3658  begin  begin
3659    
3660          try          try
3661                  FavoriteTreeView.Visible := False;                  FavoriteTreeView.Visible := False;
3662                  FavoriteToolBar.Hide;                  FavoriteToolBar.Hide;
# Line 9306  begin Line 9310  begin
9310    
9311  end;  end;
9312    
9313    procedure TGikoForm.MaximizeTimerTimer(Sender: TObject);
9314    begin
9315            WindowState := wsMaximized;
9316            MaximizeTimer.Enabled := False;
9317    end;
9318    
9319  initialization  initialization
9320                                  OleInitialize(nil);                                  OleInitialize(nil);
9321  finalization  finalization

Legend:
Removed from v.1.238  
changed lines
  Added in v.1.239

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