Solutions was posted many times, IIRC it's short, very close similar code
I'll try to solve it as in designer, just having opened too many things now...

Code: Select all
REM put fixed
REM 'put (x1,y1),dizzyBck1,pset
if x1<0 then
put (0,y1),dizzyBck1,pset
else
put (x1,y1),dizzyBck1,pset
end if
REM get fixed
REM 'get (x1,y1)-(x2,y2),dizzyBck1
if x1<0 then
get (0,y1)-(x2,y2),dizzyBck1
elseif x2>scrW-1 then
get (x1,y1)-(scrW-1,y2),dizzyBck1
else
get (x1,y1)-(x2,y2),dizzyBck1
end if
Muttonhead wrote:Nice to see a user :)
At the moment I do not have much time for the further development of the new version.
But if you are interested, you can take a look at the "current" development status:
http://www.muttonhead.homepage.t-online.de/data/sGUI_v0.8.6.zip
Mutton
Code: Select all
sub DrawList (gad as Gadget ptr)
dim as Gadget ptr listbox
listbox=gad->subevent->GadgetList->GetFirst
DrawGadget(listbox)
end sub
Code: Select all
sub DrawList (gad as Gadget ptr)
dim as Gadget ptr listbox,scrollbar
listbox=gad->subevent->GadgetList->GetFirst
scrollbar=cast(Gadget ptr,listbox->next_node)
DrawGadget(listbox)
DrawGadget(scrollbar)
end sub
Muttonhead wrote:oh it looks like a bug in sGUI_v0.8.56
open ListBox.bas in the sGUI folder
at row 90 you will find this:
...
change it to:
..
not tested !!
Mutton
Muttonhead wrote:At the moment I do not have much time for the further development of the new version.
But if you are interested, you can take a look at the "current" development status:
http://www.muttonhead.homepage.t-online.de/data/sGUI_v0.8.6.zip
Kot wrote:The link to short pdf reference gives 404 error :(
Code: Select all
** compiling TmpFb.bas with -t 2000 -s console **
sGUIWin_v0.9.00_01\tmp\TmpFb.bas(6) error 14: Expected identifier, found 'TextObject'
sGUIWin_v0.9.00_01\tmp\TmpFb.bas(7) error 41: Variable not declared, TOList
sGUIWin_v0.9.00_01\tmp\TmpFb.bas(8) warning 13(0): Function result was not explicitly set
sGUIWin_v0.9.00_01\tmp\TmpFb.bas(11) error 58: Illegal specification, at parameter 1 (t) of DelTextObject()
sGUIWin_v0.9.00_01\tmp\TmpFb.bas(12) error 3: Expected End-of-Line, found 'TOList'
sGUIWin_v0.9.00_01\tmp\TmpFb.bas(16) error 14: Expected identifier, found 'sGUIImage'
sGUIWin_v0.9.00_01\tmp\TmpFb.bas(17) error 41: Variable not declared, ImageList
sGUIWin_v0.9.00_01\tmp\TmpFb.bas(18) warning 13(0): Function result was not explicitly set
sGUIWin_v0.9.00_01\tmp\TmpFb.bas(22) error 58: Illegal specification, at parameter 1 (sguiimg) of DelImageEntry()
sGUIWin_v0.9.00_01\tmp\TmpFb.bas(23) error 3: Expected End-of-Line, found 'ImageList'
sGUIWin_v0.9.00_01\tmp\TmpFb.bas(27) error 14: Expected identifier, found 'Menu'
sGUIWin_v0.9.00_01\tmp\TmpFb.bas(28) error 41: Variable not declared, MenuList
sGUIWin_v0.9.00_01\tmp\TmpFb.bas(28) error 132: Too many errors, exiting
Users browsing this forum: No registered users and 12 guests