| 1376 |
//ResHint |
//ResHint |
| 1377 |
FHint := TResPopup.Create(Self); |
FHint := TResPopup.Create(Self); |
| 1378 |
|
|
| 1379 |
|
// 2ちゃんねるキャビネットの状態復元(未実装) |
| 1380 |
|
// およびスレ一覧ペインの状態復元(未実装、現在は初期表示用) |
| 1381 |
|
i := GikoSys.Setting.CabinetIndex; |
| 1382 |
|
Cabinet2chAction.Execute; |
| 1383 |
|
GikoSys.Setting.CabinetIndex := i; |
| 1384 |
|
|
| 1385 |
// 最後に選択されたキャビネットの復元 |
// 最後に選択されたキャビネットの復元 |
| 1386 |
Case GikoSys.Setting.CabinetIndex of |
Case GikoSys.Setting.CabinetIndex of |
| 1387 |
0: Cabinet2chAction.Execute; |
0: Cabinet2chAction.Execute; |
| 6588 |
|
|
| 6589 |
procedure TGikoForm.LinkToolButtonOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
procedure TGikoForm.LinkToolButtonOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
| 6590 |
begin |
begin |
| 6591 |
if ssLeft in Shift then begin |
if ( ssLeft in Shift )then begin |
| 6592 |
TLinkToolButton( Sender ).EndDrag( False ); |
TLinkToolButton( Sender ).EndDrag( False ); |
| 6593 |
TToolButton(Sender).BeginDrag(false ,5); |
TToolButton(Sender).BeginDrag(false ,DandD_THRESHOLD); |
| 6594 |
end; |
end; |
| 6595 |
end; |
end; |
| 6596 |
|
|
| 6597 |
procedure TGikoForm.LinkToolButtonOnMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); |
procedure TGikoForm.LinkToolButtonOnMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); |