PureBasic Forums - English

Posted: **Sat Oct 16, 2010 8:52 pm**

ts-soft wrote:
PrincieD wrote:or for users already registered 10 Euros?
I miss this :roll:

Hi Thomas! An upgrade option with link to purchase has been emailed to all registered users

Cheers!

Chris.

Posted: **Sat Oct 16, 2010 9:53 pm**

Sounds like a winner to me.

Happy to support the project. Keep up the good work.

cheers

Posted: **Sat Oct 16, 2010 10:44 pm**

rsts wrote:Sounds like a winner to me.

Happy to support the project. Keep up the good work.

cheers

Thanks rsts!

Posted: **Tue Oct 19, 2010 1:52 pm**

Hi guys I'm traveling to China today so I won't be able to reply to any emails for a couple of days, so don't worry for anyone registering/upgrading if you don't hear from me straight away!

Thanks guys!

Got to pack my laptop now

Chris.

Posted: **Tue Oct 19, 2010 11:48 pm**

I'm planning to buy this, if you're back from China, drop me an info and I'll buy immediately.

Posted: **Wed Oct 20, 2010 2:57 am**

PrincieD,
Enjoy your holiday in China... Come to Malaysia if you have the time. Your £ will carry a lot of weight here...

I have a question... Does the gold version allow you to link ProGui into your app without the external library?

Posted: **Sat Oct 23, 2010 12:03 pm**

Hi guys! I'm settled in China now and staying in Shanghai for 3 months (maybe more). What an amazing country/city! absoluletly awesome being here

(The people are really friendly and hard working) I have my dev laptop up and running now with internet access so I'll be woking on ProGUI while I'm here as well as having fun

business and pleasure lol

yoxola wrote:I'm planning to buy this, if you're back from China, drop me an info and I'll buy immediately.

Thankyou! No need to wait until I'm back though, I can generate you a key as soon as you want to purchase

http://www.progui.co.uk/register.html

akee wrote:PrincieD,
Enjoy your holiday in China... Come to Malaysia if you have the time. Your £ will carry a lot of weight here...

Thanks akee! I might just do that, depends on how many sales I can make though - I can just about afford the flights back from China at the moment lol

akee wrote:I have a question... Does the gold version allow you to link ProGui into your app without the external library?

Yes it is possible to just "include" the source into your code but you will need to call "ProGUI_Init()" first then "StartProGUI(username, key1, key2, key3, key4, key5, key6, key7)" should work

however this will include a lot of unused code in your exe if you only have say a single MenuEx used in your app (the ProGUI source is over 750KB! and over 21 thousand lines of code!!

). A better way would be to set "#LIBRARY = 1" at the top of the ProGUI source code and then save the source then compile it in tailbite with the multilib option to generate your custom ProGUI userlib. That way you can modify the ProGUI source as much as you want and when you call a ProGUI command in your app, only the code required for that command to work will be included in your app's exe!

Cheers!

Chris.

Posted: **Sat Oct 23, 2010 5:25 pm**

I've bought the gold version.... money is on the way, hope the source can be useful, I'm making an IDE for a programming language currently and I want a better interface.

Posted: **Sat Oct 23, 2010 9:08 pm**

yoxola wrote:I've bought the gold version.... money is on the way, hope the source can be useful, I'm making an IDE for a programming language currently and I want a better interface.

Thanks very much yoxola! Your keycodes and gold package have been emailed to you. I'd love to take a look at the IDE you're working on when it's finished

Cheers!

Chris.

Posted: **Mon Nov 08, 2010 8:08 am**

Hi guys! If anyone is having problems with the UserLibrary version not working with threadsafe/unicode it's because a recent update to my site has overwritten the previously fixed V1.13 with the old one (doh!!) so please re-download and all should be fine!

I'm also aware that there is a rendering glitch with the Office 2003 example on Windows 7 which I'm currently working on a fix, should be done pretty soon.

Cheers!

Chris.

Posted: **Mon Nov 08, 2010 2:50 pm**

I'm playing with ProGUI evaluation release in 32 bits mode under Windows XP SP3 and PB 4.51. Great job, really!
ProGUI.res installed on Residents Purebasic directory, ProGUI installed in PureLibraries\UserLibraries PB directory, ProGUI 32 bits DLL installed in my current directory. XP support skin in enabled in Compiler options.
I don't really understand what happens to my snippet, based upon office example.pb, available with some snippets ProGUI examples.
First time you click on Help menu, that's ok, a new window opens. You can close it. Reclick a second time on help menu, error :

Invalid Memory Access (writing error on address 4).

If I remove the StartProGUI function call, that's OK, why ?
Do you notice the same problem I have ?

Thanks in advance for your help !

Code: Select all

; Remember to enable XP Skin Support!
; Demonstrates the new #UISTYLE_OFFICE2003 User Interface style

;IncludeFile "ProGUI_PB.pb" ; comment this line out when using the UserLibrary version
StartProGUI("", 0, 0, 0, 0, 0, 0, 0)

;- Window Constants
Enumeration
  #Window_0
EndEnumeration
Global logiciel$="SESSAD Manager"
Global version$="0.01."
;- Gadget Constants
Enumeration
  #MENU_0
  #MENU_1
  #MENU_2
  #MENU_3
  #MENU_4
  #MENU_5
  #MENU_6
  #MENU_7
  #MENU_8
  #MENU_9
  #MENU_10
  #MENU_11
  #MENU_12
  #MENU_13
  #MENU_14
  #MENU_15
  #REBAR_0
  #PopupMenu_0
  #ContextMenu
  #ContextMenu_1
  #ContextMenu_2
  #TOOLBAR_0
EndEnumeration

; set up structure for easy access to icon images
Structure images
  normal.i
  hot.i
  disabled.i
EndStructure
Global Dim image.images(100)

Global editor

;- load icons
; a more efficient way to load your icon images is to have them
; stored in your exe's resource, in order to load them use the following line:
; image = LoadImage_(GetModuleHandle_(0), "name of icon in resource", #IMAGE_ICON, 16, 16, 0)
; doing this allows you to choose the size of icon stored in the ico file too.

image(0)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00139.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(1)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\01032.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(2)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\05965.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(3)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\01589.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(4)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00178.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(5)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\06547.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(6)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00762.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(7)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\09051.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(8)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\01714.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(9)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00737.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(10)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\07226.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(11)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00287.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(12)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\03621.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(13)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00224.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(14)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00285.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(15)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\07392.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(16)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\01707.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(17)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\02039.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(18)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\03739.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(19)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\05958.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(20)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\09276.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(21)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\02358.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(22)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\05905.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(23)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\03823.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(24)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00018.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(25)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00023.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(26)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00003.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(27)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00004.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(28)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00109.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(29)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00002.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(30)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\07387.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(31)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00021.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(32)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00019.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(33)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00022.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(34)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00108.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(35)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00128.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(36)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00129.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(37)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\01576.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(38)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00916.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(39)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00008.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(40)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00142.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(41)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00009.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(42)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00016.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(43)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00682.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(44)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00931.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(45)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\01764.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(46)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\shapes.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(47)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\01031.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(48)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\04367.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(49)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\06717.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(50)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00253.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(51)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00779.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(52)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00783.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(53)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00782.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(54)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\03623.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(55)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00144.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(56)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\05757.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(57)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\06094.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(58)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00791.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(59)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\03743.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(60)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\01709.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(61)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\02041.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(62)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00793.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(63)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00790.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(64)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\06111.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(65)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\03727.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(66)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\04177.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(67)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00794.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(68)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00186.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(69)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00184.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(70)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\01695.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(71)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\03631.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(72)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\02059.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(73)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00798.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(74)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00800.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(75)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00107.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(76)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00210.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(77)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\02626.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(78)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\03685.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(79)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\03688.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(80)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\03681.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(81)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\03683.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(82)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00295.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(83)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\02166.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(84)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\02165.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(85)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\02164.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(86)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\03907.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(87)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\03908.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(88)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\03909.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(89)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\02068.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(90)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\02067.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)
image(91)\normal = LoadImage_(GetModuleHandle_(0), "icons\Office Icons\00984.ico", #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE)

ProcedureDLL ScintillaCallBack(gadget, *scinotify.SCNotification)
  ;
  ; The ProcedureDLL declaration is important for the callback to work correctly on MacOSX,
  ; on all other OS it has no effect.
  ;
EndProcedure

Procedure Open_Window_0()
  
  OpenWindow(#Window_0, 50, 50, 1440, 900, logiciel$, #PB_Window_ScreenCentered | #PB_Window_SizeGadget | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_Invisible)
  
      ;- Main Menu
  menu = CreateMenu(#MENU_0, WindowID(#Window_0))
    
  ;/  Help
  MenuTitle("&Help")
  MenuItem(205, "&A propos de "+logiciel$ )
      
  ;/ create test popupmenu for toolbar drop-down
  popupmenu = CreatePopupMenu(#PopupMenu_0)
    ;- create toolbar
  toolbar = CreateToolBar(#TOOLBAR_0, WindowID(#Window_0))
  UseGadgetList(WindowID(#Window_0))
EndProcedure

Open_Window_0() ; create window
HideWindow(0, 0)  ; show our newly created window
;- enter main event loop
Repeat
  Event = WaitWindowEvent()
  window = EventWindow()
  If Event = #PB_Event_Menu
    MenuID = EventMenu()
    ; handle checkboxes and radiochecks
    ; context menu
    Quit=#False
    If MenuID=205
    	 If OpenWindow(MenuID,300,300,300,300,"A propos de ")
    		EditorGadget(6666,10,10,250,30,#PB_Editor_ReadOnly)
    		SetGadgetText(6666,"Sessad Manager "+version$+Str(#Pb_Editor_CompileCount))
    		ButtonGadget(6667,10,200,250,30,"OK")
    		Repeat 
			EventID3=WaitWindowEvent();
			If EventID3= #PB_Event_CloseWindow 
				Quit = #True 
			EndIf
    		Until Quit=#True
    		CloseWindow(MenuID)
    		FreeGadget(6666)
    		FreeGadget(6667)
    		EnableWindow_(#Window_0, #True) 
			SetActiveWindow(#Window_0) 
    	EndIf
    EndIf	
  EndIf    
Until Event = #WM_CLOSE

Posted: **Tue Nov 09, 2010 6:32 am**

I was about to post the exact same bug report (except it's in a fairly huge code and it took me hours to point it out) under Windows 7 64.

Using the code version, it seems to be in the procedure "SubclassTrackwinProc"

Posted: **Tue Nov 09, 2010 7:32 am**

GG, Poshu: Yes thats a bit of a nasty bug lol
Off the top of my head I believe it's to do with the internal track window code, I'll have a fix ready by the end of the day!

Thanks for reporting the bug guys!

GG wrote:Great job, really!

Thanks!

Poshu wrote:Using the code version, it seems to be in the procedure "SubclassTrackwinProc"

Whoops! didn't see that bit of your post lol (I was right though heh), thanks mate i'll get cracking!

Posted: **Tue Nov 09, 2010 7:41 am**

PrincieD wrote: I'll have a fix ready by the end of the day!

sweet. I have a fix right now, but i'm not sure it does not add bugs elsewhere (I can't get exactly what's wrong there)...

Posted: **Tue Nov 09, 2010 4:56 pm**

Hey guys!

I've fixed the problem now, also fixed the rendering bug with the office 2003 style on windows 7 but i'll upload tomorrow as i'm a bit tired now (almost midnight here in Shanghia) and the 64bit version takes forever to compile in qemu.

Poshu wrote: sweet. I have a fix right now, but i'm not sure it does not add bugs elsewhere (I can't get exactly what's wrong there)...

I fixed it by removing the call to set the window proc to it's old one in the subclasstrackwinproc() on WM_DESTROY, however it still calls the old window proc (using CallWindowProc_) so any PureBasic cleanup code should work fine (i've checked for mem leaks too, all good). I'm not sure as well why the old code shouldn't work but i think it might be that the current callback tries to jump to some now redundant location on procedurereturn due to the windowproc being set to the old one whilst still in the current

Night guys!

Chris.

PureBasic Forums - English

ProGUI V1.38 UI Library (Small Bug Fix)

Re: ProGUI V1.13! User Interface Library (New 64 bit version

Re: ProGUI V1.13! User Interface Library (New 64 bit version

Re: ProGUI V1.13! User Interface Library (New 64 bit version

Re: ProGUI V1.13! User Interface Library (New 64 bit version

Re: ProGUI V1.13! User Interface Library (New 64 bit version

Re: ProGUI V1.13! User Interface Library (New 64 bit version

Re: ProGUI V1.13! User Interface Library (New 64 bit version

Re: ProGUI V1.13! User Interface Library (New 64 bit version

Re: ProGUI V1.13! User Interface Library (New 64 bit version

Re: ProGUI V1.13! User Interface Library (New 64 bit version

Re: ProGUI V1.13! User Interface Library (New 64 bit version

Re: ProGUI V1.13! User Interface Library (New 64 bit version

Re: ProGUI V1.13! User Interface Library (New 64 bit version

Re: ProGUI V1.13! User Interface Library (New 64 bit version

Re: ProGUI V1.13! User Interface Library (New 64 bit version