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.250 by yoffy, Tue Apr 6 14:26:33 2004 UTC revision 1.251 by yoffy, Wed Apr 7 01:49:02 2004 UTC
# Line 526  type Line 526  type
526      BBSSelectPopupMenu: TPopupMenu;      BBSSelectPopupMenu: TPopupMenu;
527                  PlugInMenu: TMenuItem;                  PlugInMenu: TMenuItem;
528      TmpToolBar: TToolBar;      TmpToolBar: TToolBar;
529                  procedure FormCreate(Sender: TObject);                                  procedure FormCreate(Sender: TObject);
530                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
531                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
532                  procedure FormClose(Sender: TObject; var Action: TCloseAction);                  procedure FormClose(Sender: TObject; var Action: TCloseAction);
# Line 841  type Line 841  type
841      procedure FavoriteTreeViewMouseDown(Sender: TObject;      procedure FavoriteTreeViewMouseDown(Sender: TObject;
842                          Button: TMouseButton; Shift: TShiftState; X, Y: Integer);                          Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
843      procedure MessagePanelResize(Sender: TObject);      procedure MessagePanelResize(Sender: TObject);
844        procedure OnResized;
845          private          private
846                  { Private 宣言 }                  { Private 宣言 }
847          //RoundList : TRoundList;          //RoundList : TRoundList;
# Line 980  type Line 981  type
981                  // ブラウザのキーダウンイベント                  // ブラウザのキーダウンイベント
982                  // イベントを取り扱った場合は True を返す                  // イベントを取り扱った場合は True を返す
983                  function BrowserKeydown(Sender: TObject; Key: Word; State:TShiftState) : Boolean;                  function BrowserKeydown(Sender: TObject; Key: Word; State:TShiftState) : Boolean;
                 // リサイズが完了した  
                 procedure UserResized;  
984    
985          protected          protected
986                  procedure CreateParams(var Params: TCreateParams); override;                  procedure CreateParams(var Params: TCreateParams); override;
# Line 4830  begin Line 4829  begin
4829          ThreadEditorAction.Enabled := (GetActiveList is TBoard);          ThreadEditorAction.Enabled := (GetActiveList is TBoard);
4830  end;  end;
4831    
 procedure TGikoForm.UserResized;  
 begin  
         FOldFormWidth := Width;  
         FIsIgnoreResize := False;  
 end;  
   
4832  procedure TGikoForm.FormResize(Sender: TObject);  procedure TGikoForm.FormResize(Sender: TObject);
4833  begin  begin
4834            FIsIgnoreResize := True;
4835          MessageListView.Column[0].Width := MessageListView.ClientWidth - 32;          MessageListView.Column[0].Width := MessageListView.ClientWidth - 32;
4836          MainCoolBar.Width := TopPanel.Width - TopRightPanel.Width;          MainCoolBar.Width := TopPanel.Width - TopRightPanel.Width;
4837    
# Line 6714  begin Line 6708  begin
6708                  USER_TREECLICK:                  USER_TREECLICK:
6709                          TreeClick( TreeView.Selected );                          TreeClick( TreeView.Selected );
6710                  USER_RESIZED:                  USER_RESIZED:
6711                          UserResized;                          OnResized;
6712                  USER_MINIMIZED:                  USER_MINIMIZED:
6713                          OnMinimized;                          OnMinimized;
6714                  end;                  end;
# Line 9217  var Line 9211  var
9211          band            : TCoolBand;          band            : TCoolBand;
9212          i, j            : Integer;          i, j            : Integer;
9213  begin  begin
   
9214          if (FOldFormWidth = Width) and not IsIconic( Handle ) and not FIsIgnoreResize then begin          if (FOldFormWidth = Width) and not IsIconic( Handle ) and not FIsIgnoreResize then begin
9215                    FIsIgnoreResize := True;
9216                    PostMessage( Handle, USER_RESIZED, 0, 0 );
9217                  if not (Sender is TToolBar) or (CoolBar = nil) then                  if not (Sender is TToolBar) or (CoolBar = nil) then
9218                          Exit;                          Exit;
9219                  toolbar := TToolBar( Sender );                  toolbar := TToolBar( Sender );
# Line 9481  begin Line 9476  begin
9476    
9477  end;  end;
9478    
9479    procedure TGikoForm.OnResized;
9480    begin
9481    
9482            FOldFormWidth := Width;
9483            FIsIgnoreResize := False;
9484    
9485    end;
9486    
9487  initialization  initialization
9488                                  OleInitialize(nil);                                  OleInitialize(nil);
9489  finalization  finalization

Legend:
Removed from v.1.250  
changed lines
  Added in v.1.251

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