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.237 by yoffy, Sun Apr 4 20:21:20 2004 UTC revision 1.238 by yoffy, Mon Apr 5 08:48:34 2004 UTC
# Line 182  type Line 182  type
182                  N15: TMenuItem;                  N15: TMenuItem;
183                  SelectListReloadAction: TAction;                  SelectListReloadAction: TAction;
184                  SelectThreadReloadAction: TAction;                  SelectThreadReloadAction: TAction;
185                  SelectTimer: TTimer;      ResizeTimer: TTimer;
186                  KokoPopupMenu: TPopupMenu;                  KokoPopupMenu: TPopupMenu;
187                  KokomadePMenu: TMenuItem;                  KokomadePMenu: TMenuItem;
188                  AllPMenu: TMenuItem;                  AllPMenu: TMenuItem;
# Line 626  type Line 626  type
626                  procedure ShowThreadActionUpdate(Sender: TObject);                  procedure ShowThreadActionUpdate(Sender: TObject);
627                  procedure ShowBoardActionUpdate(Sender: TObject);                  procedure ShowBoardActionUpdate(Sender: TObject);
628                  procedure SelectThreadReloadActionUpdate(Sender: TObject);                  procedure SelectThreadReloadActionUpdate(Sender: TObject);
629                  procedure SelectTimerTimer(Sender: TObject);                  procedure ResizeTimerTimer(Sender: TObject);
630                  procedure ItemReloadActionUpdate(Sender: TObject);                  procedure ItemReloadActionUpdate(Sender: TObject);
631                  procedure ListViewDblClick(Sender: TObject);                  procedure ListViewDblClick(Sender: TObject);
632                  procedure LogDeleteActionExecute(Sender: TObject);                  procedure LogDeleteActionExecute(Sender: TObject);
# Line 4741  end; Line 4741  end;
4741  procedure TGikoForm.FormResize(Sender: TObject);  procedure TGikoForm.FormResize(Sender: TObject);
4742  begin  begin
4743    MessageListView.Column[0].Width := MessageListView.ClientWidth - 32;    MessageListView.Column[0].Width := MessageListView.ClientWidth - 32;
4744    MainCoolBar.Width := TopPanel.Width - TopRightPanel.Width;          MainCoolBar.Width := TopPanel.Width - TopRightPanel.Width;
4745            ResizeTimer.Enabled := True;
         FOldFormWidth := Width;  
         if FIsIconiced then begin  
                 FIsIconiced := False;  
         end;  
4746  end;  end;
4747    
4748  procedure TGikoForm.ScrollTopActionUpdate(Sender: TObject);  procedure TGikoForm.ScrollTopActionUpdate(Sender: TObject);
# Line 4832  begin Line 4828  begin
4828          ActiveLogDeleteAction.Enabled := GetActiveContent <> nil;          ActiveLogDeleteAction.Enabled := GetActiveContent <> nil;
4829  end;  end;
4830    
4831  procedure TGikoForm.SelectTimerTimer(Sender: TObject);  procedure TGikoForm.ResizeTimerTimer(Sender: TObject);
4832  begin  begin
4833          SelectTimer.Enabled := False;          FOldFormWidth := Width;
4834          ListClick;          if FIsIconiced then begin
4835                    FIsIconiced := False;
4836            end;
4837            ResizeTimer.Enabled := False;
4838  end;  end;
4839    
4840  procedure TGikoForm.ListViewDblClick(Sender: TObject);  procedure TGikoForm.ListViewDblClick(Sender: TObject);

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

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