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.361 by genyakun, Mon Jul 12 10:07:49 2004 UTC revision 1.362 by yoffy, Mon Jul 12 10:36:30 2004 UTC
# Line 1050  type Line 1050  type
1050                  procedure SkinorCSSFilesCopy(path: string);                  procedure SkinorCSSFilesCopy(path: string);
1051                  //タブ保存                  //タブ保存
1052                  function GetTabURLs : TStringList;                  function GetTabURLs : TStringList;
1053                    // バンド幅を再計算・再設定する
1054                    procedure ResetBandInfo( bar : TCoolBar; band : TToolBar );
1055          protected          protected
1056                  procedure CreateParams(var Params: TCreateParams); override;                  procedure CreateParams(var Params: TCreateParams); override;
1057                  procedure WndProc(var Message: TMessage); override;                  procedure WndProc(var Message: TMessage); override;
# Line 7947  var Line 7949  var
7949  begin  begin
7950          Result := 0;          Result := 0;
7951          for i := 0 to ToolBar.ButtonCount - 1 do          for i := 0 to ToolBar.ButtonCount - 1 do
7952                  Result := Result + ToolBar.Buttons[i].Width;                  if ToolBar.Buttons[i].Visible then
7953                            Result := Result + ToolBar.Buttons[i].Width;
7954  end;  end;
7955    
7956  procedure TGikoForm.MainCoolBarBandInfo(Sender: TObject; var BandInfo: PReBarBandInfoA);  procedure TGikoForm.MainCoolBarBandInfo(Sender: TObject; var BandInfo: PReBarBandInfoA);
# Line 8167  begin Line 8170  begin
8170          end;          end;
8171  end;  end;
8172    
8173    {!
8174    \brief  バンド幅を再計算・再設定する
8175    \param  bar             バンドが所属する CoolBar
8176    \param  band    再計算・再設定するバンド
8177    
8178    独自にバンドに配置されているコントロールのサイズを変更した場合に
8179    シェブロンの表示位置を再設定するために使用します。
8180    }
8181    procedure TGikoForm.ResetBandInfo( bar : TCoolBar; band : TToolBar );
8182    var
8183            bandInfo        : tagREBARBANDINFOA;
8184            pBandInfo       : PReBarBandInfoA;
8185            lResult         : Integer;
8186            h                                       : HWND;
8187            i, idx          : Integer;
8188    begin
8189    
8190            h                                                                               := band.Handle;
8191            pBandInfo := @bandInfo;
8192            ZeroMemory( pBandInfo, sizeof( bandInfo ) );
8193            bandInfo.cbSize                 := sizeof( bandInfo );
8194            bandInfo.hwndChild      := h;
8195            bandInfo.cyMinChild     := ListCoolBar.Height;
8196            ListCoolBar.OnBandInfo( nil, pBandInfo );
8197            // ListToolBar のインデックスを探す
8198            idx := 0;
8199            for i := bar.Bands.Count - 1 downto 0 do begin
8200                    if bar.Bands[ i ].Control.Handle = h then begin
8201                            idx := i;
8202                            Break;
8203                    end;
8204            end;
8205            // 設定
8206            lResult := SendMessage( bar.Handle, RB_SETBANDINFO, i, Integer( pBandInfo ) );
8207    
8208    end;
8209    
8210  procedure TGikoForm.ListCoolBarBandInfo(Sender: TObject; var BandInfo: PReBarBandInfoA);  procedure TGikoForm.ListCoolBarBandInfo(Sender: TObject; var BandInfo: PReBarBandInfoA);
8211  var  var
8212          Control: TWinControl;          Control: TWinControl;
# Line 8708  end; Line 8748  end;
8748  procedure TGikoForm.SelectComboBoxSplitterMouseMove(Sender: TObject;  procedure TGikoForm.SelectComboBoxSplitterMouseMove(Sender: TObject;
8749          Shift: TShiftState; X, Y: Integer);          Shift: TShiftState; X, Y: Integer);
8750  var  var
8751          pos : TPoint;          pos                             : TPoint;
8752          w : Integer;          w                                       : Integer;
8753  begin  begin
8754          If (SelectComboBox.Parent <> nil) and (IsDraggingSelectComboBox) Then begin          If (SelectComboBox.Parent <> nil) and (IsDraggingSelectComboBox) Then begin
8755                  pos.X := X;                  pos.X := X;
# Line 8731  begin Line 8771  begin
8771                          SelectComboBox.Width := w;                          SelectComboBox.Width := w;
8772                          GikoSys.Setting.SelectComboBoxWidth := w;                          GikoSys.Setting.SelectComboBoxWidth := w;
8773                          DraggingSelectComboBoxPosition := pos;                          DraggingSelectComboBoxPosition := pos;
8774    
8775                            // シェブロン位置が変わるので BandInfo の再設定
8776                            ResetBandInfo( ListCoolBar, ListToolBar );
8777                  End;                  End;
8778          End;          End;
8779  end;  end;

Legend:
Removed from v.1.361  
changed lines
  Added in v.1.362

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