GUI-Example: WB-like BorderScrollbars

[hackball]

Man kann diese Pfeil-Gadgets auch innerhalb eines Windows nutzen, dafür setzen wir das GZZ-Flag (und natürlich auch die Rel-Flags) jeweils auf 0 und nutzen absolute Koordinaten:
:

Code:

.
; ArrowGadgets Example BlitzBasic2
; by F.Brandis


FindScreen1

ArrowGadget2,3,$B,50,20,0,0   ;up
ArrowGadget2,4,$D,50,50,0,0   ;down

ArrowGadget2,5,$A,25,35,0,0   ;left
ArrowGadget2,6,$C,76,35,0,0   ;right

Window 2,140,90,200,100,$14FF,"arrow me",0,2,2

Repeat

Until WaitEvent=$200
End

   
GadgetJam?

Interessanterweise kann man auch andere Classimages statt der Pfeile ausprobieren, aber die Fehlerbehandlung innerhalb der Library (gadgetlib.obj) läßt das nicht wirklich zu. 
Aber zum Spaß einfach mal z.B. statt $A (left) eines hiervon eingeben; man braucht amigalibs.res resident.

Code:

#DEPTHIMAGE    ;Window depth arrangement image.
#ZOOMIMAGE    ;Window Zoom image.
#SIZEIMAGE    ;Window Sizing image.
#CLOSEIMAGE    ;Window close image.
#SDEPTHIMAGE    ;Screen depth arrangement image.
#LEFTIMAGE    ;Left arrow image.  die kennen wir schon!
#RIGHTIMAGE    ;Right arrow image.
#UPIMAGE    ;Up arrow image.
#DOWNIMAGE    ;Down arrow image.
#CHECKIMAGE    ;Checkmark image.
#MXIMAGE    ;Radio button image.
;Kickstart 3.0 oder höher
#MENUCHECK
#AMIGAKEY