| 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; |
| 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); |
| 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; |
| 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; |
| 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; |