Added WebpageSnapshot demo for UniGUI

demos/Delphi_UniGUI/WebpageSnapshot/ServerModule.pas

@@ -0,0 +1,40 @@
+unit ServerModule;
+
+interface
+
+uses
+  Classes, SysUtils, uniGUIServer, uniGUIMainModule, uniGUIApplication, uIdCustomHTTPServer,
+  uniGUITypes;
+
+type
+  TUniServerModule = class(TUniGUIServerModule)
+  private
+    { Private declarations }
+  protected
+    procedure FirstInit; override;
+  public
+    { Public declarations }
+  end;
+
+function UniServerModule: TUniServerModule;
+
+implementation
+
+{$R *.dfm}
+
+uses
+  UniGUIVars;
+
+function UniServerModule: TUniServerModule;
+begin
+  Result := TUniServerModule(UniGUIServerInstance);
+end;
+
+procedure TUniServerModule.FirstInit;
+begin
+  InitServerModule(Self);
+end;
+
+initialization
+  RegisterServerModuleClass(TUniServerModule);
+end.