Page 2 of 3
Posted: Mon Oct 31, 2005 2:45 pm
by ts-soft
Droopy wrote:The same lib without need of init function
You don't call gDesign_Init(). Set the name ob the lib to gDesign.pbi, the call is automatic by using any Function
I see, you have renamed the initfunction, that doesn't work
TailBite.chm wrote: ProcedureDLL MyLib_Init()
; Do some initializing stuff, allocate memory, etc.
EndProcedure
ProcedureDLL MyLib_End()
; Do some cleaning, free memory, unload third party DLLs, etc.
EndProcedure
Posted: Mon Oct 31, 2005 4:30 pm
by Droopy
@Ts-Soft : gDesignInit is called by the gDesignMaxItem function internally.
I think it's the first function the user call .
It works, here the lib File:1->
GDesign
and a test for the Lib :
Code: Select all
Dim ItemIndex.l(gDesignMaxItem(?gadgets))
;/ Spécify Windows options / Windows Title
OpenWindow(0, 0, 0,gDesignClientWidth(?gadgets) ,gDesignClientHeight(?gadgets), #PB_Window_MinimizeGadget|#PB_Window_ScreenCentered, "Template gDesign")
CreateGadgetList(WindowID())
gDesign(?gadgets,@ItemIndex(),0,0)
;/ N° of Gadget is given by ToolTip
Repeat
Event=WaitWindowEvent()
If Event = #PB_EventGadget
Debug EventGadgetID()
EndIf
Until Event=#PB_Event_CloseWindow
DataSection
gadgets: IncludeBinary "new.gdf"
EndDataSection
Posted: Mon Oct 31, 2005 4:50 pm
by Mischa
@Droopy
You don't need the gDesignMaxItem function for creating gDesign,
if you KNOW the Result before. = Highest ItemNumber.
You should make the initcall in beginning of gDesign() function.
Regards
Posted: Mon Oct 31, 2005 5:04 pm
by ts-soft
@Droopy
When you use my original-version, there is no call required of Init.
The Name of Lib must: gDesign
The automatic Initfunction must: gDesign_Init()
Initfunction without Parameters and without ProcedureReturn. It was called automatic bei using the lib
TailBite create descfile like this:
gDesign_Init ()
InitFunction | StdCall
;
gDesignClientWidth, Long (*gdata)
Long | StdCall
;
gDesignClientHeight, Long (*gdata)
Long | StdCall
;
gDesignMaxItem, Long (*gdata)
Long | StdCall
;
gDesign, Long, Long, Long, Long (*gdata, *gitems, goffx, goffy)
None | StdCall
;
Posted: Mon Oct 31, 2005 7:31 pm
by Droopy
I agree and Add init function ( the lib of Ts-soft )
Posted: Mon Oct 31, 2005 7:51 pm
by Droopy
Add gDesign to the New menu (aka ShellNew entries) ?
http://windowsxp.mvps.org/shellnewadd.htm
Posted: Tue Nov 01, 2005 2:14 am
by Intrigued
Very compact, easy to use... from the couple minutes I have used it.
*thumbs up*
Posted: Tue Nov 01, 2005 1:40 pm
by Droopy
It is possible reorder gadget number.
When i use Tab to navigate thru gadgets, the order is done by gadget order of creation.
Posted: Tue Nov 01, 2005 2:59 pm
by xgp
Really nice;)
xgp
Posted: Tue Nov 01, 2005 4:49 pm
by rsts
This will be quite handy.
Many thanks.
Posted: Tue Nov 01, 2005 5:38 pm
by dracflamloc
Very nice. Its great when projects like this are created =)
Posted: Tue Nov 01, 2005 10:46 pm
by dagcrack
Am I stupid or the gadgets moves when you click on them? I just loaded the included gui examples, clicked on a button and it moved to the left a little (and couldnt move it back to the original pos)
I believe it's the grid causing this (you designed the gui with a smaller grid for example, since the default grid is bigger / different sized, odd things might happen) you should store the grid settings on each gui file, are you doing it already?
cheers.
(I wouldnt switch the official editor for this one, however if you add a couple of more features I might).
also, set the window to foreground every time you reset its contents (for example new design, will "reset" the program, it might not come back to the top - the window -, so make sure..)
So far its kicking certain paid designer because of certain feature I requested for certain paid designer which was never added ehem.. jrk..
Posted: Tue Nov 01, 2005 11:01 pm
by Droopy
You can move gadget with arrow key, can you add autorepeat function for keys ?
Posted: Wed Nov 02, 2005 2:05 pm
by Mischa
Ok, i will work a few days more on gDesign.
First changes made. Update the next days.
But i will change the licence from freeware
to donationware, ok?
And now...let me work.
Regards,
Mischa
Posted: Fri Nov 18, 2005 1:53 pm
by Mischa
Hi!
In a few days more, i will release beta 2.
For those, which can't await i will give an first impression.
Regards,
Mischa