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.331 by yoffy, Thu Jun 3 23:26:33 2004 UTC revision 1.332 by yoffy, Fri Jun 4 06:18:05 2004 UTC
# Line 3335  begin Line 3335  begin
3335                                  BrowserTab.Tabs.Objects[ 0 ] := newBrowser;                                  BrowserTab.Tabs.Objects[ 0 ] := newBrowser;
3336                                  BrowserTab.Tabs[ 0 ] := GikoSys.GetShortName(ThreadItem.Title, 20);                                  BrowserTab.Tabs[ 0 ] := GikoSys.GetShortName(ThreadItem.Title, 20);
3337                          }                          }
3338                                  DeleteTab( TBrowserRecord( BrowserTab.Tabs.Objects[ 0 ] ) );                                  DeleteTab( TBrowserRecord( BrowserTab.Tabs.Objects[ 0 ] ) );
3339                          end;// else begin                          end;// else begin
3340                                  i := BrowserTab.Tabs.AddObject(GikoSys.GetShortName(ThreadItem.Title, 20), newBrowser);                                  i := BrowserTab.Tabs.AddObject(GikoSys.GetShortName(ThreadItem.Title, 20), newBrowser);
3341                          //end;                          //end;
# Line 4285  begin Line 4285  begin
4285                          ThreadItem := TThreadItem(ListView.Selected.Data);                          ThreadItem := TThreadItem(ListView.Selected.Data);
4286                          DownloadContent(ThreadItem, shiftDown);                          DownloadContent(ThreadItem, shiftDown);
4287                  //end;                  //end;
4288          end;                  
4289          if GikoSys.Setting.BrowserAutoMaximize = gbmDoubleClick then begin                  if GikoSys.Setting.BrowserAutoMaximize = gbmDoubleClick then begin
4290                  if GikoSys.Setting.ListOrientation = gloHorizontal then begin                          if GikoSys.Setting.ListOrientation = gloHorizontal then begin
4291                          if GikoSys.Setting.ListWidthState = glsMin then begin                                  if GikoSys.Setting.ListWidthState = glsMin then begin
4292                                  BrowserMaxAndFocusAction.Execute;                                          BrowserMaxAndFocusAction.Execute;
4293                          end;                                  end;
4294                  end else begin                          end else begin
4295                          if GikoSys.Setting.ListHeightState = glsMin then begin                                  if GikoSys.Setting.ListHeightState = glsMin then begin
4296                                  BrowserMaxAndFocusAction.Execute;                                          BrowserMaxAndFocusAction.Execute;
4297                                    end;
4298                          end;                          end;
4299                  end;                  end;
4300          end;          end;

Legend:
Removed from v.1.331  
changed lines
  Added in v.1.332

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