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.82 by yoffy, Thu Oct 2 11:52:30 2003 UTC revision 1.83 by yoffy, Thu Oct 2 12:09:18 2003 UTC
# Line 1376  begin Line 1376  begin
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;
# Line 6582  end; Line 6588  end;
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);

Legend:
Removed from v.1.82  
changed lines
  Added in v.1.83

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