Develop and Download Open Source Software

zencart-clone

Browse Subversion Repository

/[zencart-clone]/Unit7.pas

Diff of /Unit7.pas

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

revision 5 by yamat0jp, Tue Dec 29 08:41:54 2015 UTC revision 6 by yamat0jp, Tue Dec 29 10:58:29 2015 UTC
# Line 7  uses Line 7  uses
7    IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompGrids,    IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompGrids,
8    IWDBGrids, IWCompButton, IWCompExtCtrls, IWVCLComponent,    IWDBGrids, IWCompButton, IWCompExtCtrls, IWVCLComponent,
9    IWBaseLayoutComponent, IWBaseContainerLayout, IWContainerLayout,    IWBaseLayoutComponent, IWBaseContainerLayout, IWContainerLayout,
10    IWTemplateProcessorHTML, PngImage, Data.DB;    IWTemplateProcessorHTML, PngImage, Data.DB, IWCompLabel, IWDBStdCtrls;
11    
12  type  type
13    TPayForm = class(TIWAppForm)    TPayForm = class(TIWAppForm)
14      IWButton1: TIWButton;      IWButton1: TIWButton;
15      IWButton2: TIWButton;      IWButton2: TIWButton;
16      IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;      IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
17        IWDBLabel1: TIWDBLabel;
18        procedure IWButton2Click(Sender: TObject);
19    public    public
20    end;    end;
21    
# Line 23  implementation Line 25  implementation
25    
26  uses Unit3, Unit1, ServerController, Unit4;  uses Unit3, Unit1, ServerController, Unit4;
27    
28    procedure TPayForm.IWButton2Click(Sender: TObject);
29    begin
30      Release;
31    end;
32    
33  end.  end.
Legend:
Removed from v.5  
changed lines
  Added in v.6
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help