Develop and Download Open Source Software

zencart-clone

Browse Subversion Repository

/[zencart-clone]/Unit1.pas

Diff of /Unit1.pas

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

revision 8 by yamat0jp, Thu Dec 31 08:51:02 2015 UTC revision 9 by yamat0jp, Wed Jan 13 11:20:13 2016 UTC
# Line 67  type Line 67  type
67      procedure LoadImage;      procedure LoadImage;
68      procedure ClearImage;      procedure ClearImage;
69      function GetThumbnail: Boolean;      function GetThumbnail: Boolean;
70        procedure CallBack(EventParams: TStringList);
71      procedure SetThumbnail(const Value: Boolean);      procedure SetThumbnail(const Value: Boolean);
72      property Thumbnail: Boolean read GetThumbnail write SetThumbnail;      property Thumbnail: Boolean read GetThumbnail write SetThumbnail;
73    public    public
# Line 82  implementation Line 83  implementation
83    
84  uses Unit3, ServerController, Unit6, Unit4, Unit9, Unit10;  uses Unit3, ServerController, Unit6, Unit4, Unit9, Unit10;
85    
86    procedure TIWForm1.CallBack(EventParams: TStringList);
87    begin
88      if SameText(EventParams.Values['RetValue'], 'true') = true then
89        TCartForm.Create(WebApplication).Show;
90    end;
91    
92  procedure TIWForm1.ClearImage;  procedure TIWForm1.ClearImage;
93  var  var
94    i: Integer;    i: Integer;
# Line 124  begin Line 131  begin
131    IWRegion5.Width := i;    IWRegion5.Width := i;
132    IWRegion6.Width := i;    IWRegion6.Width := i;
133    IWRegion7.Width := i;    IWRegion7.Width := i;
134      WebApplication.RegisterCallBack('callback', CallBack);
135  end;  end;
136    
137  procedure TIWForm1.IWAppFormRender(Sender: TObject);  procedure TIWForm1.IWAppFormRender(Sender: TObject);
# Line 278  begin Line 286  begin
286        AppendRecord([nil, i, UserSession.user_number, UserSession.Serial]);        AppendRecord([nil, i, UserSession.user_number, UserSession.Serial]);
287    end;    end;
288    IWFrame8.IWEdit1.Text := '0';    IWFrame8.IWEdit1.Text := '0';
289    if MessageDlg('カートに移動しますか', mtConfirmation, [mbYes, mbNo], 0) = mrYes then    WebApplication.ShowConfirm('カートに移動しますか', 'callback', '移動', 'はい', 'いいえ');
     TCartForm.Create(WebApplication).Show;  
290  end;  end;
291    
292  procedure TIWForm1.IWFrame8IWLink1Click(Sender: TObject);  procedure TIWForm1.IWFrame8IWLink1Click(Sender: TObject);
Legend:
Removed from v.8  
changed lines
  Added in v.9
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help