A sexy divider gadget
BlitzPlus Forums/BlitzPlus Programming/A sexy divider gadget
| ||
If style=1, divider is vertical. Function CreateDivider(x,y,length,group,style=0) Select style Case 0 gadget=CreateCanvas(x,y,length,2,group) Case 1 gadget=CreateCanvas(x,y,2,length,group) End Select SetBuffer CanvasBuffer(gadget) LockBuffer CanvasBuffer(gadget) Select style Case 0 For x=0 To length-1 WritePixelFast x,0,10329505;RGB(157,157,161) WritePixelFast x,1,16777215;RGB(255,255,255) Next Case 1 For y=0 To length-1 WritePixelFast 0,y,10329505;RGB(157,157,161) WritePixelFast 1,y,16777215;RGB(255,255,255) Next End Select UnlockBuffer CanvasBuffer(gadget) FlipCanvas gadget Return gadget End Function |
| ||
Even better if you used GetSysColor (API) to find the "true" colour of 3D borders. |
| ||
yes with GetSysColor it would be perfect Mark please add GetSysColor to B+ :) |
| ||
Add it yourself. |
| ||
Yeah, add it yourself, bitch! *rolls eyes* |
| ||
What I mean is, there's no reason you can't write a .decls file to access that command. |
| ||
hehe :) |