Jump to content

Simple Desktop


Recommended Posts

  • 3 months later...
  • 2 weeks later...

Hi!

 

I use

Delphi XE4 

Ext 4.2

last UniGui comps

 

 

and I have problem with compiling project in part:

 

 Name := StringReplace(Form.WebForm.JSWindow.Id,'_id','',[rfReplaceAll] +[rfIgnoreCase]);
     Form.Script.Add(Name +'.on('+#39+'minimize'+#39+',function(w){w.toggleCollapse();w.setVisible(!w.isVisible());});');
 

I got error

 

'TUniJSForm' doest not contain a member named 'ExtWindow'

 

How I can fix it to compile project?

Link to comment
Share on other sites

Hi!

 

I use

Delphi XE4 

Ext 4.2

last UniGui comps

 

 

and I have problem with compiling project in part:

 

 Name := StringReplace(Form.WebForm.JSWindow.Id,'_id','',[rfReplaceAll] +[rfIgnoreCase]);
     Form.Script.Add(Name +'.on('+#39+'minimize'+#39+',function(w){w.toggleCollapse();w.setVisible(!w.isVisible());});');
 

I got error

 

'TUniJSForm' doest not contain a member named 'ExtWindow'

 

How I can fix it to compile project?

Hi

Try code from http://forums.unigui.com/index.php?/topic/2909-simple-desktop/?p=16894

 

Regards

Link to comment
Share on other sites

I find it solution... Just put UniImage align:alClient, and set UniImageClick

 

procedure TMainForm.UniImage1Click(Sender: TObject);
begin
if frmStart.Visible then
begin
  frmStart.Hide;
end;
end;

Now  I have another question....

 

 

In demo is few Uni Image and Label below them (like desktop icon) , is there some solution to dynamically add "desktop icons"???

Link to comment
Share on other sites

  • 2 weeks later...

In creation of new windows I changed TUniFormClass for TUniBaseFormClass as Farshad Mohajeri I proposed:

http://forums.unigui.com/index.php?/topic/3933-undeclared-identifier-tuniformclass/

 

I create form with a string name class (Formulario).

But this new class does not let me set the OnClose event:

procedure TMainForm.CreateWindow(Formulario, FormCaption, FormHint: string);
var formClass   : TUniBaseFormClass;
    Form        : TUniBaseForm;
    Window      : TDesktopWindow;
    ButtonFooter: TUniSpeedButton;
    i           : Integer;
    Bitmap      : TBitmap;
begin
  frmStart.Hide;
  UpAllButtons;

  formClass := TUniBaseFormClass(FindClass('T'+Formulario));
  Form := formClass.Create(UniApplication);
  
  if IsWindowOpen(Form)=False then begin
    Window := TDesktopWindow.Create;
    Window.Window := Form;
    Window.Name := Form.Name;
    Window.Window.Caption:=FormCaption;
--> Window.Window.OnClose := UniFormCloseAll; // PROBLEM !!!
    Datos.ListWindows.Add(Window);

    .......

How can I fix this?
 

Link to comment
Share on other sites

In creation of new windows I changed TUniFormClass for TUniBaseFormClass as Farshad Mohajeri I proposed:

 

http://forums.unigui.com/index.php?/topic/3933-undeclared-identifier-tuniformclass/

 

I create form with a string name class (Formulario).

 

But this new class does not let me set the OnClose event:

procedure TMainForm.CreateWindow(Formulario, FormCaption, FormHint: string);
var formClass   : TUniBaseFormClass;
    Form        : TUniBaseForm;
    Window      : TDesktopWindow;
    ButtonFooter: TUniSpeedButton;
    i           : Integer;
    Bitmap      : TBitmap;
begin
  frmStart.Hide;
  UpAllButtons;

  formClass := TUniBaseFormClass(FindClass('T'+Formulario));
  Form := formClass.Create(UniApplication);
  
  if IsWindowOpen(Form)=False then begin
    Window := TDesktopWindow.Create;
    Window.Window := Form;
    Window.Name := Form.Name;
    Window.Window.Caption:=FormCaption;
--> Window.Window.OnClose := UniFormCloseAll; // PROBLEM !!!
    Datos.ListWindows.Add(Window);

    .......

How can I fix this?

 

 

      window.window.WebForm.OnClose := UniFormCloseAll;

 

Link to comment
Share on other sites

  • 1 month later...

Thanks to Semper and Perjambr. It is a nice sample.

If you have some enhancements , it works for me.

just a small question about the start menu. when I open more than 1 or 2 windows, 

and then click on the start menu, the menu flashes and I can't select any option till i close all the current windows. Any idea ?

 

To Brunotoira: Try to check the servermodule properties extroot: and init to -->  [ext]\, see the the extjsversion and init to your own version (see sample demo)

Link to comment
Share on other sites

  • 2 months later...

Hi!

 

I use

Delphi XE5

last UniGui 0.95

 

  - fmsoft_unigui_beta_0.95.0.1046_setup

 

  - fmsoft_unigui_extjs_0.95.0.1046_setup

 

 

and I have problem with compiling project:

 

I got error

 

1333540.png

 

How I can fix it to compile project?

 

Thank

Link to comment
Share on other sites

  • 4 weeks later...
  • 2 weeks later...
  • 3 weeks later...
  • 2 months later...
  • 1 month later...

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...