Diff of /Unit14.pas

OSDN > Find Software > zencart-clone

 Browse Subversion Repository



/[zencart-clone]/Unit14.pas




Diff of /Unit14.pas



 Parent Directory

|  Revision Log



|  Patch














revision 18 by yamat0jp,
Sat Aug 27 11:00:30 2016 UTC




revision 19 by yamat0jp,
Sat Aug 27 13:22:00 2016 UTC






#

Line 3 
 unit Unit14;


Line 3 
 unit Unit14;












3
 interface
 interface

















4
 
 

















5
 uses
 uses















6


   Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes;


   Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, IWVCLComponent,













7


 


   IWBaseLayoutComponent, IWBaseContainerLayout, IWContainerLayout,













8


 


   IWTemplateProcessorHTML, Vcl.Controls, IWVCLBaseControl, IWBaseControl,













9


 


   IWBaseHTMLControl, IWControl, IWCompLabel, IWHTMLControls;















10
 
 

















11
 type
 type















12


   TIWForm14 = class(TIWAppForm)


   TMentenance = class(TIWAppForm)













13


 


     IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;













14


 


     IWLink1: TIWLink;













15


 


     procedure IWLink1Click(Sender: TObject);















16
   public
   public

















17
   end;
   end;

















18
 
 











#

Line 14 
 implementation


Line 20 
 implementation












20
 
 

















21
 {$R *.dfm}
 {$R *.dfm}

















22
 
 












23
 
 uses Unit13;







24
 
 







25
 
 







26
 
 procedure TMentenance.IWLink1Click(Sender: TObject);







27
 
 begin







28
 
   TMasterForm.Create(WebApplication).Show;







29
 
 end;












30
 
 

















31
 end.
 end.





























Legend:



Removed from v.18
 


changed lines


 
Added in v.19













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[zencart-clone]/Unit14.pas
-revision 18 by yamat0jp,
Sat Aug 27 11:00:30 2016 UTC
+revision 19 by yamat0jp,
Sat Aug 27 13:22:00 2016 UTC
 Line 3 
 unit Unit14;
  interface
  uses
-   Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes;
+   Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, IWVCLComponent,
+   IWBaseLayoutComponent, IWBaseContainerLayout, IWContainerLayout,
+   IWTemplateProcessorHTML, Vcl.Controls, IWVCLBaseControl, IWBaseControl,
+   IWBaseHTMLControl, IWControl, IWCompLabel, IWHTMLControls;
  type
-   TIWForm14 = class(TIWAppForm)
+   TMentenance = class(TIWAppForm)
+     IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
+     IWLink1: TIWLink;
+     procedure IWLink1Click(Sender: TObject);
    public
    end;
-Line 14 
 implementation
+Line 20 
 implementation
  {$R *.dfm}
+ uses Unit13;
+ procedure TMentenance.IWLink1Click(Sender: TObject);
+ begin
+   TMasterForm.Create(WebApplication).Show;
+ end;
  end.
 Legend:



Removed from v.18
 


changed lines


 
Added in v.19
 Legend:



Removed from v.18
 


changed lines


 
Added in v.19
-Removed from v.18
+Added in v.19
-Back to OSDN">Back to OSDN
+ViewVC Help
 Powered by ViewVC 1.1.26

Develop and Download Open Source Software

zencart-clone

Browse Subversion Repository