Jump to content
uniGUI Discussion Forums
perjanbr

Simple Desktop

Recommended Posts

Hi,

 

I finished a simple example, I hope you all enjoy.

 

I need help to enhance SimpleDesktop

 

Thanks.

 

 

Jancarlos P. Martins

Defence Informática

Cianorte-PR-Brasil

SimpleDesktop.zip

  • Upvote 6

Share this post


Link to post
Share on other sites

Hi,

 

To Minimize form

 

procedure TUniServerModule.addMinimize(form:TUniForm);
var name:string;
begin
  if not(biMinimize in form.BorderIcons) then
    form.BorderIcons := form.BorderIcons + [biMinimize];
  name := StringReplace(form.WebForm.ExtWindow.Id,'_id','',[rfReplaceAll] +[rfIgnoreCase]);
  form.Script.Add(name +'.on('+#39+'minimize'+#39+',function(w){w.toggleCollapse();w.setVisible(!w.isVisible());});');
end;

 

 

OnCreate new Form add event addMinimize

 

UniServerModule.addMinimize(self);

 

to Maximize

 

form.show

Share this post


Link to post
Share on other sites

Hi folks,

 

New version 0.1

 

put effects, icons desktop 32x32px and transparency in forms, but still has some bugs.

 

Next step fix the bugs, publishing sources

 

see later

  • Upvote 1

Share this post


Link to post
Share on other sites

×