| 527 |
BBSSelectPopupMenu: TPopupMenu; |
BBSSelectPopupMenu: TPopupMenu; |
| 528 |
PlugInMenu: TMenuItem; |
PlugInMenu: TMenuItem; |
| 529 |
TmpToolBar: TToolBar; |
TmpToolBar: TToolBar; |
| 530 |
|
MaximizeTimer: TTimer; |
| 531 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 532 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 533 |
procedure CabinetPanelHide(Sender: TObject); |
procedure CabinetPanelHide(Sender: TObject); |
| 841 |
procedure TreeViewClick(Sender: TObject); |
procedure TreeViewClick(Sender: TObject); |
| 842 |
procedure TreeViewKeyDown(Sender: TObject; var Key: Word; |
procedure TreeViewKeyDown(Sender: TObject; var Key: Word; |
| 843 |
Shift: TShiftState); |
Shift: TShiftState); |
| 844 |
|
procedure MaximizeTimerTimer(Sender: TObject); |
| 845 |
private |
private |
| 846 |
{ Private 宣言 } |
{ Private 宣言 } |
| 847 |
//RoundList : TRoundList; |
//RoundList : TRoundList; |
| 1300 |
SetWindowPlacement(Handle, @wp); |
SetWindowPlacement(Handle, @wp); |
| 1301 |
|
|
| 1302 |
// 起動時に保存されてしまう対策 2 |
// 起動時に保存されてしまう対策 2 |
| 1303 |
FIsIconiced := True; |
// FIsIconiced := True; |
| 1304 |
// SetBounds(GikoSys.Setting.WindowLeft, GikoSys.Setting.WindowTop, |
// SetBounds(GikoSys.Setting.WindowLeft, GikoSys.Setting.WindowTop, |
| 1305 |
// GikoSys.Setting.WindowWidth, GikoSys.Setting.WindowHeight); |
// GikoSys.Setting.WindowWidth, GikoSys.Setting.WindowHeight); |
| 1306 |
if GikoSys.Setting.WindowMax then |
if GikoSys.Setting.WindowMax then |
| 1307 |
WindowState := wsMaximized; |
// WindowState := wsMaximized; |
| 1308 |
|
MaximizeTimer.Enabled := True; |
| 1309 |
|
|
| 1310 |
//ギコアニメ |
//ギコアニメ |
| 1311 |
try |
try |
| 1445 |
// スレッド絞込ボタンを隠す |
// スレッド絞込ボタンを隠す |
| 1446 |
ListToolBar.Controls[ i ].Visible := False; |
ListToolBar.Controls[ i ].Visible := False; |
| 1447 |
// スレッド絞込フィールドを挿入 |
// スレッド絞込フィールドを挿入 |
| 1448 |
SelectComboBox.Parent := ListToolBar; |
SelectComboBox.Parent := ListToolBar; |
| 1449 |
SelectComboBox.Left := ListToolBar.Controls[ i ].Left; |
SelectComboBox.Left := ListToolBar.Controls[ i ].Left; |
| 1450 |
SelectComboBox.Width := GikoSys.Setting.SelectComboBoxWidth; |
SelectComboBox.Width := GikoSys.Setting.SelectComboBoxWidth; |
| 1451 |
// スレッド絞込用独自セパレータを挿入 |
// スレッド絞込用独自セパレータを挿入 |
| 1452 |
SelectComboBoxSplitter.Parent := ListToolBar; |
SelectComboBoxSplitter.Parent := ListToolBar; |
| 1453 |
SelectComboBoxSplitter.Left := SelectComboBox.Left + SelectComboBox.Width; |
SelectComboBoxSplitter.Left := SelectComboBox.Left + SelectComboBox.Width; |
| 1454 |
|
|
| 1455 |
break; |
break; |
| 1663 |
|
|
| 1664 |
// CoolBar 復元 |
// CoolBar 復元 |
| 1665 |
LoadCoolBarSettings; |
LoadCoolBarSettings; |
|
|
|
| 1666 |
end; |
end; |
| 1667 |
|
|
| 1668 |
procedure TGikoForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); |
procedure TGikoForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); |
| 1669 |
var |
var |
| 1670 |
i: Integer; |
i: Integer; |
| 3656 |
i, b : Integer; |
i, b : Integer; |
| 3657 |
item : TMenuItem; |
item : TMenuItem; |
| 3658 |
begin |
begin |
| 3659 |
|
|
| 3660 |
try |
try |
| 3661 |
FavoriteTreeView.Visible := False; |
FavoriteTreeView.Visible := False; |
| 3662 |
FavoriteToolBar.Hide; |
FavoriteToolBar.Hide; |
| 9310 |
|
|
| 9311 |
end; |
end; |
| 9312 |
|
|
| 9313 |
|
procedure TGikoForm.MaximizeTimerTimer(Sender: TObject); |
| 9314 |
|
begin |
| 9315 |
|
WindowState := wsMaximized; |
| 9316 |
|
MaximizeTimer.Enabled := False; |
| 9317 |
|
end; |
| 9318 |
|
|
| 9319 |
initialization |
initialization |
| 9320 |
OleInitialize(nil); |
OleInitialize(nil); |
| 9321 |
finalization |
finalization |