Develop and Download Open Source Software

zencart-clone

Browse Subversion Repository

/[zencart-clone]/UserSessionUnit.pas

Diff of /UserSessionUnit.pas

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

revision 6 by yamat0jp, Tue Dec 29 10:58:29 2015 UTC revision 7 by yamat0jp, Wed Dec 30 09:56:24 2015 UTC
# Line 11  uses Line 11  uses
11    IWUserSessionBase, SysUtils, Classes, Unit3;    IWUserSessionBase, SysUtils, Classes, Unit3;
12    
13  type  type
   TPage = (Main,Info);  
   
14    TIWUserSession = class(TIWUserSessionBase)    TIWUserSession = class(TIWUserSessionBase)
15      procedure IWUserSessionBaseDestroy(Sender: TObject);      procedure IWUserSessionBaseDestroy(Sender: TObject);
16      procedure IWUserSessionBaseCreate(Sender: TObject);      procedure IWUserSessionBaseCreate(Sender: TObject);
# Line 22  type Line 20  type
20      { Private declarations }      { Private declarations }
21    public    public
22      { Public declarations }      { Public declarations }
23      FPage: TPage;      FPage: Boolean;
24      user_number: integer;      user_number: integer;
25      Thumbnail: Boolean;      Thumbnail: Boolean;
26      Serial: integer;      Serial: integer;
# Line 44  end; Line 42  end;
42    
43  procedure TIWUserSession.IWUserSessionBaseCreate(Sender: TObject);  procedure TIWUserSession.IWUserSessionBaseCreate(Sender: TObject);
44  begin  begin
45      FPage := true;
46    Thumbnail:=true;    Thumbnail:=true;
47  end;  end;
48    
Legend:
Removed from v.6  
changed lines
  Added in v.7
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help