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.328 by yoffy, Thu Jun 3 11:54:51 2004 UTC revision 1.329 by yoffy, Thu Jun 3 12:29:11 2004 UTC
# Line 540  type Line 540  type
540      ThreadlistMaxAndFocusAction: TAction;      ThreadlistMaxAndFocusAction: TAction;
541      BrowserMaxAndFocusAction: TAction;      BrowserMaxAndFocusAction: TAction;
542      UpBoardButton: TToolButton;      UpBoardButton: TToolButton;
543        SelectTimer: TTimer;
544                                  procedure FormCreate(Sender: TObject);                                  procedure FormCreate(Sender: TObject);
545                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
546                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
# Line 868  type Line 869  type
869      procedure SetFocusForCabinetActionUpdate(Sender: TObject);      procedure SetFocusForCabinetActionUpdate(Sender: TObject);
870      procedure ListViewSelectItem(Sender: TObject; Item: TListItem;      procedure ListViewSelectItem(Sender: TObject; Item: TListItem;
871        Selected: Boolean);        Selected: Boolean);
872        procedure SelectTimerTimer(Sender: TObject);
873          private          private
874                  { Private 宣言 }                  { Private 宣言 }
875          //RoundList : TRoundList;          //RoundList : TRoundList;
# Line 10292  begin Line 10294  begin
10294          if not GikoSys.Setting.BrowserTabVisible then          if not GikoSys.Setting.BrowserTabVisible then
10295                  if Item <> nil then                  if Item <> nil then
10296                          if TObject( Item.Data ) is TThreadItem then                          if TObject( Item.Data ) is TThreadItem then
10297                                  InsertBrowserTab( TThreadItem(Item.Data) );                                  SelectTimer.Enabled := True;
10298    
10299  end;  end;
10300    
10301    procedure TGikoForm.SelectTimerTimer(Sender: TObject);
10302    begin
10303            SelectTimer.Enabled := False;
10304            ListClick;
10305    end;
10306    
10307  initialization  initialization
10308                                  OleInitialize(nil);                                  OleInitialize(nil);
10309  finalization  finalization

Legend:
Removed from v.1.328  
changed lines
  Added in v.1.329

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