Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Favorite.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.17 by yoffy, Mon Dec 1 06:19:03 2003 UTC revision 1.18 by h677, Wed Dec 3 13:59:07 2003 UTC
# Line 40  type Line 40  type
40          end;          end;
41    
42          TFavoriteDM = class(TDataModule)          TFavoriteDM = class(TDataModule)
                 procedure DataModuleCreate(Sender: TObject);  
43                  procedure DataModuleDestroy(Sender: TObject);                  procedure DataModuleDestroy(Sender: TObject);
44          private          private
45                  { Private 宣言 }                  { Private 宣言 }
# Line 179  begin Line 178  begin
178    
179  end;  end;
180    
 procedure TFavoriteDM.DataModuleCreate(Sender: TObject);  
 begin  
         //FTreeView := TreeView;  
         //FTreeView := GikoForm.FavoriteTreeView;  
 end;  
   
181  procedure TFavoriteDM.DataModuleDestroy(Sender: TObject);  procedure TFavoriteDM.DataModuleDestroy(Sender: TObject);
182  var  var
183          i: Integer;          i: Integer;

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

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