PB EasySetup - Setup maker for your program

Thorsten1867 · Post by **Thorsten1867** » Wed Oct 18, 2006 10:12 pm

Vladi wrote:When I use the /Q mode, the info and the licence files are switch vice versa, in online mode it works correctly.

I found the bug. I upload the new version tomorow. It's to late today.

Vladi wrote:In the Project Saving area there is some garbage, I always have two files with the same name in the recent files list.

Try to edit 'EasySetup.ini' ('LastProjects').

Vladi wrote:It's nasty that you can't just say "Save" (w/o Save dialog) and that the Save dialog proposes a different file name than the current one.

I think, I've found the problem.

Vladi wrote:it's nasty that the pgm forces me to have the pgm file in the project directory (I'd like to put it into my own project directory with the other stuff). Maybe you can rework this a little bit.

The program file must be in the source directory, because the whole folder will be compressed and joined with the installer executable.
You can write a batch file to update your source directory.
That's my batch (UpdateEasySetup.bat):

Code: Select all

@echo off
copy E:\IntraNet\EasySetup\download.htm E:\Entwicklung\SetupDIR\Upload\EasySetup
copy E:\IntraNet\EasySetup\historie.htm E:\Entwicklung\SetupDIR\Upload\EasySetup
copy E:\IntraNet\EasySetup\eng\download.htm E:\Entwicklung\SetupDIR\Upload\EasySetup\eng
copy E:\IntraNet\EasySetup\eng\historie.htm E:\Entwicklung\SetupDIR\Upload\EasySetup\eng
copy E:\Entwicklung\EasySetup\EasySetup.exe E:\Entwicklung\SetupDIR\EasySetup
copy E:\Entwicklung\EasySetup\Install.exe E:\Entwicklung\SetupDIR\EasySetup
copy E:\Entwicklung\EasySetup\InstallZip.exe E:\Entwicklung\SetupDIR\EasySetup
copy E:\Entwicklung\EasySetup\Uninstall.exe E:\Entwicklung\SetupDIR\EasySetup
copy E:\Entwicklung\EasySetup\MutexCode.xml E:\Entwicklung\SetupDIR\EasySetup
copy E:\Entwicklung\EasySetup\Language\*.* E:\Entwicklung\SetupDIR\EasySetup\Language

Vladi wrote:And maybe you could make the windows and gadgets a little bit larger, some of the texts get cut off, at least on installations with high resolution screens.

Which language and which resolution?

Character · Post by **Character** » Thu Oct 19, 2006 2:19 pm

A bit of topic here but I was thinking about a dynamical button size depending on the language of the string.

English mostly has nice short terms like: [Edit]
In Dutch it would be something like: [Bewerken], so a longer button is needed.
Possibly in other languages it is even worse.

Some quick code. (just for the fun of it)

Code: Select all

; Dynamical button example by Character.
; Don't pay attention to the mess.
; I know, it needs some cleaning up.
; Most of it is caused by the Visual Designer (v3.95).  ;o)


;- Window Constants
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
Enumeration
  #Button_0
  #Button_1
  #Button_2  
  #Frame3D_0
  #String_0
  #Combo_0
EndEnumeration

;- Fonts
Global FontID0
FontID0 = #PB_Default
Global FontID1
FontID1 = LoadFont(1, "Comic Sans MS", 12, #PB_Font_Bold)
Global FontID2
FontID2 = LoadFont(2, "Verdana", 20, #PB_Font_Bold)
Global FontID3
FontID3 = LoadFont(3, "Verdana", 16)
Global FontID4
FontID4 = LoadFont(4, "Century Gothic", 48, #PB_Font_Bold)

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 255, 291, 600, 165, "Dynamical button stuff...",  #PB_Window_SystemMenu | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#Window_0))
      ButtonGadget(#Button_0, 10, 10, 70, 20, "Change me!")
      ButtonGadget(#Button_1, 390, -30, 20, 30, "")
      Frame3DGadget(#Frame3D_0, 5, 5, 590, 130, "", #PB_Frame3D_Double)
      ButtonGadget(#Button_2, 395, 140, 200, 20, "Change him!")
      StringGadget(#String_0, 5, 140, 205, 20, "")
      ComboBoxGadget(#Combo_0, 215, 140, 175, 200)
      AddGadgetItem(#Combo_0, -1, "Default font")
      AddGadgetItem(#Combo_0, -1, "Comic Sans MS 12 Bold")
      AddGadgetItem(#Combo_0, -1, "Verdana 20 Bold")
      AddGadgetItem(#Combo_0, -1, "Verdana 16")
      AddGadgetItem(#Combo_0, -1, "Century Gothic 28 Bold")   
      SetGadgetState(#Combo_0, 0)
    EndIf
  EndIf
EndProcedure


Open_Window_0()


Repeat 
  
  Event = WaitWindowEvent() 
  GadgetID = EventGadget() 

  If Event = #PB_Event_Gadget
    
    If GadgetID = #Button_0
    
      If Caption.s = "": Caption="Change me!":EndIf
      MessageRequester(Caption.s, "Width: " + Str(DynamicalWidth.w) + Chr(13) + "Height: " + Str(DynamicalHeight.w) + Chr(13) + "Font: " + Str(FontLabel))
      
    ElseIf GadgetID = #Button_1

    ElseIf GadgetID = #Button_2
    
      Select FontLabel
        Case 0
          FontID = FontID0
        Case 1
          FontID = FontID1
        Case 2
          FontID = FontID2
        Case 3
          FontID = FontID3
        Case 4
          FontID = FontID4               
      EndSelect
      
      If CreateImage(0, 1, 1)
        StartDrawing(ImageOutput(#Window_0))
          DrawingFont(FontID)
          DynamicalWidth.w = TextWidth(Caption.s)+10
          DynamicalHeight.w = TextHeight(Caption.s)+4
        StopDrawing()
      EndIf  
  
      If CreateGadgetList(WindowID(#Window_0))
        If DynamicalWidth.w >10 And DynamicalWidth.w < 590
          ButtonGadget(#Button_0, 10, 10, DynamicalWidth.w, DynamicalHeight.w, Caption.s)
          SetGadgetFont(#Button_0, FontID)
        Else
          MessageRequester("OUT OF RANGE", "Size matters!" + Chr(13) + Chr(13) + "A. No button caption in the stringgadget." + Chr(13)+ Chr(13) + "B. You think too big.")
        EndIf
      EndIf
    
    ElseIf GadgetID = #String_0
    
      Caption.s = GetGadgetText(#String_0)
      
    ElseIf GadgetID = #Combo_0
    
      FontLabel = GetGadgetState(#Combo_0)
            
    EndIf
    
  EndIf
  
Until Event = #PB_Event_CloseWindow 
End

Thorsten1867 · Post by **Thorsten1867** » Thu Oct 19, 2006 2:56 pm

That looks interesting. I must have a close look on it.
In the German forum is a hot discussion ('Installprogramme'), which button size looks good and how to change it dynamicaly.

Thorsten1867 · Post by **Thorsten1867** » Thu Oct 19, 2006 2:57 pm

Version 0.6.3
- Bugfixes (e.g. load/save project)
- Spanish language file updated

Character · Post by **Character** » Thu Oct 19, 2006 3:55 pm

Basically this is the core:

Code: Select all

      If CreateImage(0, 1, 1) 
        StartDrawing(ImageOutput(#Window_0)) 
          DrawingFont(FontID) 
          DynamicalWidth.w = TextWidth(Caption.s)+10 
          DynamicalHeight.w = TextHeight(Caption.s)+4 
        StopDrawing() 
      EndIf

ButtonGadget(#Button_0, 10, 10, DynamicalWidth.w, DynamicalHeight.w, Caption.s)

The values +10 and +4 are just margins.
Might be better ways to do it. (api?)

Vladi · Post by **Vladi** » Thu Oct 19, 2006 9:55 pm

Hi, Thorsten,

thanks for your quick bugfix.

I have already edited the Ini-files already because of the recent files, but after a short time I had the duplicates again.

That with the pgm file was misspelled, should read project file; there I think is no reason to always lead the user back to EasySetup directory. Even when I store it somewhere else, upon next saving I must renavigate from EasySepup dir. to my own, as the tool doesn't care about the last storage directory (and name) in any way...

The text size problem is with a resolution of 1280 x 1024, language independent. But Gnozals tools are even much worse, regarding this issue...

srod · Post by **srod** » Thu Oct 19, 2006 10:18 pm

Thorsten, I have just wrapped the egrid lib using this program of yours; -excellent!

It produces a very professional looking install, well done!

I'll be using this for all of my programs.

I'll make another donation when I get some more money! Well worth it.

One minor request: png images?

Thorsten1867 · Post by **Thorsten1867** » Fri Oct 20, 2006 2:21 pm

Vladi wrote:That with the pgm file was misspelled, should read project file; there I think is no reason to always lead the user back to EasySetup directory. Even when I store it somewhere else, upon next saving I must renavigate from EasySepup dir. to my own, as the tool doesn't care about the last storage directory (and name) in any way...

Can you send me your project file? I can find the problem. EasySetup should store the last used path.
You must save the project only the first time. All changes will be saved automatically, if you close EasySetup. There shouldn't be a reason to save it again.

Vladi wrote:The text size problem is with a resolution of 1280 x 1024, language independent. But Gnozals tools are even much worse, regarding this issue...

I'm not able to test this with my notebook (only 1280 x 800). Perhaps you can send me an example.

Thorsten1867 · Post by **Thorsten1867** » Fri Oct 20, 2006 2:27 pm

srod wrote:One minor request: png images?

I've tried this, but then the installer grows up at ~75KB.
(Image Plugin: TGA 1.9KB / PNG 77.7KB)

Thorsten1867 · Post by **Thorsten1867** » Fri Oct 20, 2006 6:36 pm

New Version 0.6.4
- Check whether setup and program has the same name
- Messagerequester (english) if program is started twice
- Safer uninstall of StartMenu entries (single files instead of the folder)
- Manual updated
- Bugfixes language files

rsts · Post by **rsts** » Fri Oct 20, 2006 6:40 pm

Thorsten1867 wrote:New Version 0.6.4

"Object not found" (meaning the download)

cheers

ts-soft · Post by **ts-soft** » Fri Oct 20, 2006 6:50 pm

Thorsten1867 wrote:
srod wrote:One minor request: png images?
I've tried this, but then the installer grows up at ~75KB.
(Image Plugin: TGA 1.9KB / PNG 77.7KB)

Why not use "EC_ImagePluginOLE" by El_Choni. Only 1.96KB?

Thorsten1867 · Post by **Thorsten1867** » Fri Oct 20, 2006 6:54 pm

"Object not found" (meaning the download)

My English homepage was deleted ????
If uploaded it again. Now it should work.

Thorsten1867 · Post by **Thorsten1867** » Fri Oct 20, 2006 6:59 pm

ts-soft wrote:Why not use "EC_ImagePluginOLE" by El_Choni. Only 1.96KB?

That sounds good! I will test it.

rsts · Post by **rsts** » Fri Oct 20, 2006 7:58 pm

Thorsten1867 wrote: My English homepage was deleted ????
If uploaded it again. Now it should work.

cheers