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.100 by yoffy, Sat Nov 1 17:11:51 2003 UTC revision 1.101 by yoffy, Wed Nov 5 10:57:40 2003 UTC
# Line 19  uses Line 19  uses
19          Editor, RoundData, RoundName, KeySetting, GikoPanel, Favorite, FavoriteAdd,          Editor, RoundData, RoundName, KeySetting, GikoPanel, Favorite, FavoriteAdd,
20          FavoriteArrange, AddressHistory, Preview, HTMLDocumentEvent, Kotehan,          FavoriteArrange, AddressHistory, Preview, HTMLDocumentEvent, Kotehan,
21          HintWindow, GikoCoolBar, GikoListView, ToolBarSetting, ToolBarUtil,          HintWindow, GikoCoolBar, GikoListView, ToolBarSetting, ToolBarUtil,
22          IndividualAbon, Dialogs, Search;          IndividualAbon, Dialogs, Search, ExternalBoardManager;
23    
24  type  type
25          TGikoTreeType = (gttNone, gtt2ch, gttHistory);          TGikoTreeType = (gttNone, gtt2ch, gttHistory);
# Line 849  type Line 849  type
849    
850                  FDropSpaceNode: TTreeNode;                  FDropSpaceNode: TTreeNode;
851    
852        FDragTime : Cardinal;       //リンクのD&D用
853                                  FDragTime : Cardinal;   //リンクのD&D用      FDragButton : TToolButton;  //リンクのD&D用にDragしてるButton保存
854                                  FDragButton : TToolButton;      //リンクのD&D用にDragしてるButton保存      FDragWFirst : Boolean;      //WebTabのD&D用
                                 FDragWFirst : Boolean;  //WebTabのD&D用  
855    
856                  procedure SetBoardTreeNode;                  procedure SetBoardTreeNode;
857                  function SetCategoryListItem(ABBS2ch: TBBS2ch): Integer;                  function SetCategoryListItem(ABBS2ch: TBBS2ch): Integer;
# Line 1050  var Line 1049  var
1049          i: Integer;          i: Integer;
1050          wp: TWindowPlacement;          wp: TWindowPlacement;
1051          s: string;          s: string;
1052      pname, prelease : string;
1053      pmajor, pminor, prev : DWORD;
1054  begin  begin
1055  {$IFDEF DEBUG}  {$IFDEF DEBUG}
1056          AllocConsole;          AllocConsole;
# Line 1406  begin Line 1407  begin
1407          StatusBar.Panels[2].Text := s;          StatusBar.Panels[2].Text := s;
1408          StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100);          StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100);
1409          StatusBarResize(Sender);          StatusBarResize(Sender);
1410    
1411            SetLength( BoardPlugIns, 1 );
1412      BoardPlugIns[ 0 ] := TBoardPlugIn.CreateFromName( 'ExternalBoardPlugIn' );
1413      if Assigned( Pointer( BoardPlugIns[ 0 ].Module ) ) then
1414      begin
1415            BoardPlugIns[ 0 ].VersionInfo( pname, pmajor, pminor, prelease, prev );
1416            ShowMessage( pname );
1417      end;
1418  end;  end;
1419    
1420  //  //

Legend:
Removed from v.1.100  
changed lines
  Added in v.1.101

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