PureBasic Forums - English

Posted: **Wed Feb 28, 2007 12:53 pm**

Ok, I show you what I did:

First create 2 container with some stuff:

Second create a Splitter Gadget

Klicked inside the Window:

Seems, that the Splitter is to small?

Posted: **Wed Feb 28, 2007 1:59 pm**

@dige
Like it is explained in the help file, you have to draw the splitter like any other gadget.
If you just click, the splitter has the minimal size.

Example :
- Two gadgets to join

- New splitter dialog

- Draw the splitter

- Splitter is here

Posted: **Wed Feb 28, 2007 2:09 pm**

@gnozal: thank you ... seems that I'm to stupid

I thougt that nice "Add Splitter Requester"

would do the job.

Posted: **Wed Feb 28, 2007 4:35 pm**

gnozal
Sorry I can't reproduce bug, probably I made a lot of manipulations before it's happened

Posted: **Wed Feb 28, 2007 6:08 pm**

Hello Gnozal,

- Enabling PureCOLOR in a CheckBoxGadget turns it to black background instead of showing the background image of the window.

- Wish: It would be great if it was possible do distribute selected gadgets in a group horizontally and vertically with the same distance.

Michel

Posted: **Wed Feb 28, 2007 6:24 pm**

Hello Gnozal,

Sorry for my remark, the distribution works fine.

Michel

Posted: **Wed Feb 28, 2007 6:25 pm**

Hello Gnozal,

Sorry for my remark, the distribution works fine.

Michel

Posted: **Thu Mar 01, 2007 9:24 am**

michel wrote:- Enabling PureCOLOR in a CheckBoxGadget turns it to black background instead of showing the background image of the window.

Works here :

Form :

Code: Select all

;{[PureFORM Project]
;PureFORM_Project_Begin
;Project¶PureFORM_Clipboard2
;Window¶1¶#Window_0¶13500416¶#PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar¶Window_0¶461¶359¶318¶183¶0¶10¶10¶0¶5000¶5000¶1¶$C:\PureBasic394\Examples\Sources\Data\clouds.jpg¶0¶¶¶
;CheckBoxGadget¶1¶#CheckBox_0_MyTransparentCheckbox¶1¶-1¶-1¶0¶0¶3¶0¶0¶¶My transparent Checkbox¶¶-1¶0¶¶¶0¶0¶0¶0¶0¶55¶16¶189¶50¶0¶0¶0¶0¶0¶0¶1¶255¶-16777216¶-1¶-1¶¶0¶¶0¶0
;OptionGadget¶2¶#Option_1_MyTransparentOption¶1¶-1¶-1¶0¶0¶18¶0¶0¶¶My transparent Option¶¶-1¶0¶¶¶0¶0¶0¶0¶0¶22¶87¶254¶44¶0¶0¶0¶0¶0¶0¶1¶65535¶-16777216¶-1¶-1¶¶0¶¶0¶0
;PureFORM_Project_End
;}

Generated window code :

Code: Select all

Procedure OpenWindow_Window_0()
  If OpenWindow(#Window_0, 461, 359, 318, 183, "Window_0", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
    If CreateGadgetList(WindowID(#Window_0))
      CheckBoxGadget(#CheckBox_0_MyTransparentCheckbox, 55, 16, 189, 50, "My transparent Checkbox")
      OptionGadget(#Option_1_MyTransparentOption, 22, 87, 254, 44, "My transparent Option")
      ; Gadget Colors
      PureCOLOR_SetGadgetColor(#CheckBox_0_MyTransparentCheckbox, $FF, #PureCOLOR_DontSetBackColor)
      PureCOLOR_SetGadgetColor(#Option_1_MyTransparentOption, $FFFF, #PureCOLOR_DontSetBackColor)
      ; Window Background Image
      BackgroundImage_Window_0_Brush = CreatePatternBrush_(CatchImage(#BackgroundImage_Window_0, ?BackgroundImage_Window_0))
      If BackgroundImage_Window_0_Brush
        SetClassLong_(WindowID(#Window_0), #GCL_HBRBACKGROUND, BackgroundImage_Window_0_Brush)
        RedrawWindow_(WindowID(#Window_0), 0, 0, #RDW_ERASE | #RDW_FRAME | #RDW_INVALIDATE | #RDW_ALLCHILDREN)
        FreeImage(#BackgroundImage_Window_0)
      EndIf
    EndIf
  EndIf
EndProcedure

Posted: **Thu Mar 01, 2007 9:28 am**

- Enabling PureCOLOR in a CheckBoxGadget turns it to black background instead of showing the background image of the window.

This behaviour is generally present only if xp skins are enabled, at least in my experience. All is normal without skin support selected.

Posted: **Thu Mar 01, 2007 1:07 pm**

Hello Gnozal,

I checked the remark of netmaestro, the problem was due to the compiler selection "enable XP skin". After disabling it everything works fine.

Michel

Posted: **Thu Mar 01, 2007 7:27 pm**

Quelques bugs voir sur le Forum Français:
http://www.purebasic.fr/french/viewtopi ... 1694#61694

Posted: **Thu Mar 01, 2007 8:47 pm**

Hello Gnozal,

Here some strange behaviours that I discovered:

- You can define user colors and attribute them to one of the 16 custom color fîelds, unfortunately these colors are not stored. So it is impossible to give several gadgets the same custom color.

- With the gadget group tool you attribute automatically a name to the group: Gadget group 1, Gadget group 2 ...
Suppose you have group 1 2 3 4 and for one reason you delete group 3 then you want to create a new one, this time you will get an error telling you that group 4 already exists.

michel

Posted: **Thu Mar 01, 2007 9:36 pm**

Hello Gnozal,

I think there is a problem with the refresh of the default language data section:
Changing the items of a panel gadget works in the graphic editor, the texts are shown in the gadget but the new texts are not updated in the data section of the default language. Could you please check this.

Thank you

michel

Posted: **Fri Mar 02, 2007 9:05 am**

michel wrote:I think there is a problem with the refresh of the default language data section:
Changing the items of a panel gadget works in the graphic editor, the texts are shown in the gadget but the new texts are not updated in the data section of the default language. Could you please check this.

You mean the tab text ? I can't reproduce the problem
I created this form

Code: Select all

;{[PureFORM Project]
;PureFORM_Project_Begin
;Project¶MyProject
;Window¶1¶#Window_0¶13500416¶#PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar¶Window_0¶451¶215¶400¶400¶0¶10¶10¶0¶5000¶5000¶0¶-1¶0¶¶¶
;PanelGadget¶1¶#Panel_0_0¶1¶-1¶-1¶3¶0¶19¶0¶0¶¶¶¶-1¶0¶¶¶0¶0¶1¶1¶4¶46¶89¶280¶232¶0¶0¶0¶0¶0¶0¶0¶-1¶-1¶-1¶-1¶Tab 1·Tab number 2·Tab 3¶0¶¶0¶0
;PureFORM_Project_End
;}

changed some tab text, saved the form, reloaded the form, changed tab text again, and the language datasection is updated.

Code: Select all

;{- Enumerations / DataSections
;{ Windows
Enumeration
  #Window_0
EndEnumeration
;}
;{ Gadgets
Enumeration
  #Panel_0_0
EndEnumeration
;}
;{ MultiLanguage support
Enumeration
  #Window_0_W_Lng
  ;
  #Panel_0_0_Lng
EndEnumeration
#MaxLanguageItems = #PB_Compiler_EnumerationValue - 1
;{ Default language items
DataSection ;>
DefaultLanguage:
  Data.s "Window_0"
  ;
  Data.s "Tab 1|Tab number 2|Tab 3"
EndDataSection ;<
;}
Global Dim LanguageItem.s(#MaxLanguageItems)
; Load default language
Restore DefaultLanguage
For LanguageItemIdx = 0 To #MaxLanguageItems
  Read LanguageItem(LanguageItemIdx)
Next
; Load language catalog
Procedure ReadLanguageFile(Catalog.s) ; Read language file
  Protected Stream.l, LanguageItemIdx.l
  Stream = ReadFile(#PB_Any, Catalog)
  If Stream
    While Eof(Stream) = #False
      LanguageItem(LanguageItemIdx) = ReadString(Stream)
      LanguageItemIdx + 1
      If LanguageItemIdx > #MaxLanguageItems
        Break
      EndIf
    Wend
    CloseFile(Stream)
  EndIf
EndProcedure
;}
;}
Procedure OpenWindow_Window_0()
  If OpenWindow(#Window_0, 451, 215, 400, 400, LanguageItem(#Window_0_W_Lng), #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
    If CreateGadgetList(WindowID(#Window_0))
      PanelGadget(#Panel_0_0, 46, 89, 280, 232) ;>
        ; Tab 1
        AddGadgetItem(#Panel_0_0, -1, StringField(LanguageItem(#Panel_0_0_Lng), 1, "|"))
        ; Tab number 2
        AddGadgetItem(#Panel_0_0, -1, StringField(LanguageItem(#Panel_0_0_Lng), 2, "|"))
        ; Tab 3
        AddGadgetItem(#Panel_0_0, -1, StringField(LanguageItem(#Panel_0_0_Lng), 3, "|"))
      CloseGadgetList() ;<
    EndIf
  EndIf
EndProcedure

etc...

Posted: **Fri Mar 02, 2007 9:11 am**

michel wrote:- You can define user colors and attribute them to one of the 16 custom color fîelds, unfortunately these colors are not stored. So it is impossible to give several gadgets the same custom color.

I could add some 'Last chosen color' button ?

michel wrote:- With the gadget group tool you attribute automatically a name to the group: Gadget group 1, Gadget group 2 ...
Suppose you have group 1 2 3 4 and for one reason you delete group 3 then you want to create a new one, this time you will get an error telling you that group 4 already exists.

Confirmed, will fix this.

PureBasic Forums - English

PureFORM 1.99 (yet another FORM designer)

PureFORM, Checkboxgadget

PureFORM, horizontal & vertical distribution of gadgets

PureFORM, horizontal & vertical distribution of gadgets

Re: PureFORM, Checkboxgadget

PureFORM PureCOLOR & Checkboxgadget

PureFORM user defined colors / Gadget groups

PureFORM Multilanguage support, datasection refresh

Re: PureFORM Multilanguage support, datasection refresh

Re: PureFORM user defined colors / Gadget groups