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 10 by yamat0jp, Sat Jan 16 23:06:35 2016 UTC
# Line 49  type Line 49  type
49      IWLink3: TIWLink;      IWLink3: TIWLink;
50      IWLink5: TIWLink;      IWLink5: TIWLink;
51      IWFrame1: TIWFrame1;      IWFrame1: TIWFrame1;
52        IWLink6: TIWLink;
53      procedure IWAppFormRender(Sender: TObject);      procedure IWAppFormRender(Sender: TObject);
54      procedure IWLink2Click(Sender: TObject);      procedure IWLink2Click(Sender: TObject);
55      procedure IWAppFormCreate(Sender: TObject);      procedure IWAppFormCreate(Sender: TObject);
# Line 60  type Line 61  type
61      procedure IWLink4Click(Sender: TObject);      procedure IWLink4Click(Sender: TObject);
62      procedure IWLink3Click(Sender: TObject);      procedure IWLink3Click(Sender: TObject);
63      procedure IWLink5Click(Sender: TObject);      procedure IWLink5Click(Sender: TObject);
64        procedure IWLink6Click(Sender: TObject);
65    private    private
66      Filter: Boolean;      Filter: Boolean;
67      function GetPage: Boolean;      function GetPage: Boolean;
# Line 67  type Line 69  type
69      procedure LoadImage;      procedure LoadImage;
70      procedure ClearImage;      procedure ClearImage;
71      function GetThumbnail: Boolean;      function GetThumbnail: Boolean;
72        procedure CallBack(EventParams: TStringList);
73      procedure SetThumbnail(const Value: Boolean);      procedure SetThumbnail(const Value: Boolean);
     property Thumbnail: Boolean read GetThumbnail write SetThumbnail;  
74    public    public
75      property Page: Boolean read GetPage write SetPage;      property Page: Boolean read GetPage write SetPage;
76        property Thumbnail: Boolean read GetThumbnail write SetThumbnail;
77    end;    end;
78    
79  var  var
# Line 80  implementation Line 83  implementation
83    
84  {$R *.dfm}  {$R *.dfm}
85    
86  uses Unit3, ServerController, Unit6, Unit4, Unit9, Unit10;  uses Unit3, ServerController, Unit6, Unit4, Unit9, Unit10, Unit5;
87    
88    procedure TIWForm1.CallBack(EventParams: TStringList);
89    begin
90      if SameText(EventParams.Values['RetValue'], 'true') = true then
91        TCartForm.Create(WebApplication).Show;
92    end;
93    
94  procedure TIWForm1.ClearImage;  procedure TIWForm1.ClearImage;
95  var  var
# Line 124  begin Line 133  begin
133    IWRegion5.Width := i;    IWRegion5.Width := i;
134    IWRegion6.Width := i;    IWRegion6.Width := i;
135    IWRegion7.Width := i;    IWRegion7.Width := i;
136      WebApplication.RegisterCallBack('callback', CallBack);
137  end;  end;
138    
139  procedure TIWForm1.IWAppFormRender(Sender: TObject);  procedure TIWForm1.IWAppFormRender(Sender: TObject);
# Line 278  begin Line 288  begin
288        AppendRecord([nil, i, UserSession.user_number, UserSession.Serial]);        AppendRecord([nil, i, UserSession.user_number, UserSession.Serial]);
289    end;    end;
290    IWFrame8.IWEdit1.Text := '0';    IWFrame8.IWEdit1.Text := '0';
291    if MessageDlg('カートに移動しますか', mtConfirmation, [mbYes, mbNo], 0) = mrYes then    WebApplication.ShowConfirm('カートに移動しますか', 'callback', '移動', 'はい', 'いいえ');
     TCartForm.Create(WebApplication).Show;  
292  end;  end;
293    
294  procedure TIWForm1.IWFrame8IWLink1Click(Sender: TObject);  procedure TIWForm1.IWFrame8IWLink1Click(Sender: TObject);
# Line 308  begin Line 317  begin
317        VarArrayOf([IWEdit2.Text, IWEdit3.Text]), [loCaseInsensitive]) = true then        VarArrayOf([IWEdit2.Text, IWEdit3.Text]), [loCaseInsensitive]) = true then
318      begin      begin
319        Page := false;        Page := false;
       UserSession.user_number := DM.FDTable1.FieldByName('NUMBER').AsInteger;  
320        IWEdit2.Text := '';        IWEdit2.Text := '';
321      end;      end;
322      IWEdit3.Text := '';      IWEdit3.Text := '';
323    end    end
324    else    else
   begin  
     UserSession.user_number := 0;  
325      Page := true;      Page := true;
   end;  
326  end;  end;
327    
328  procedure TIWForm1.IWLink3Click(Sender: TObject);  procedure TIWForm1.IWLink3Click(Sender: TObject);
# Line 339  begin Line 344  begin
344    TIWForm10.Create(WebApplication).Show;    TIWForm10.Create(WebApplication).Show;
345  end;  end;
346    
347    procedure TIWForm1.IWLink6Click(Sender: TObject);
348    begin
349      Page:=true;
350      TIWForm3.Create(WebApplication).Show;
351    end;
352    
353  procedure TIWForm1.LoadImage;  procedure TIWForm1.LoadImage;
354  var  var
355    s: TStream;    s: TStream;
# Line 462  begin Line 473  begin
473    begin    begin
474      IWLabel1.Caption := 'ようこそ';      IWLabel1.Caption := 'ようこそ';
475      IWLink2.Caption := 'ログアウト';      IWLink2.Caption := 'ログアウト';
476        UserSession.user_number := DM.FDTable1.FieldByName('NUMBER').AsInteger;
477    end    end
478    else    else
479    begin    begin
# Line 471  begin Line 483  begin
483      IWText1.Text := '';      IWText1.Text := '';
484      DM.FDTable2.Filtered := false;      DM.FDTable2.Filtered := false;
485      Filter := false;      Filter := false;
486        UserSession.user_number:=0;
487    end;    end;
488  end;  end;
489    
Legend:
Removed from v.8  
changed lines
  Added in v.10
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help