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 2 by yamat0jp, Sat Dec 19 14:35:42 2015 UTC revision 5 by yamat0jp, Tue Dec 29 08:41:54 2015 UTC
# Line 24  type Line 24  type
24      { Public declarations }      { Public declarations }
25      FPage: TPage;      FPage: TPage;
26      user_number: integer;      user_number: integer;
27        Thumbnail: Boolean;
28        Serial: integer;
29      property DM: TDataModule3 read GetDM;      property DM: TDataModule3 read GetDM;
30    end;    end;
31    
# Line 43  end; Line 45  end;
45  procedure TIWUserSession.IWUserSessionBaseCreate(Sender: TObject);  procedure TIWUserSession.IWUserSessionBaseCreate(Sender: TObject);
46  begin  begin
47    FPage:=Main;    FPage:=Main;
   user_number:=1;  
48  end;  end;
49    
50  procedure TIWUserSession.IWUserSessionBaseDestroy(Sender: TObject);  procedure TIWUserSession.IWUserSessionBaseDestroy(Sender: TObject);
Legend:
Removed from v.2  
changed lines
  Added in v.5
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help