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