Cool Separators

[Num3]

Code updated for 5.20+

You might have seen these in many programs..

Here's the code.

It will work on all versions of PB!

Code: Select all

Procedure separator(id,x,y,width,height,text.s,fontid,color1,color2)
 
  If CreateImage(id,width,height)
   
    i = width
    sRed.f   = Red(color1)   : r.f = (Red  (color1) - Red  (color2))/i
    sGreen.f = Green(color1) : g.f = (Green(color1) - Green(color2))/i
    sBlue.f  = Blue(color1)  : b.f = (Blue (color1) - Blue (color2))/i
   
    StartDrawing(ImageOutput(id))
      For a = 0 To i-1
        xx.f = sRed   - a*r
        yy.f = sGreen - a*g
        zz.f = sBlue  - a*b
        Line(a,0,1,height,RGB(xx,yy,zz))
      Next a
     
      DrawingMode(1)
      FrontColor(RGB($FF,$FF,$FF))
      If fontid<>0
        DrawingFont(fontid)
      EndIf
      DrawText(5,2,text)
    StopDrawing()
   
  EndIf
 
  ImageGadget(id,x,y,width,Header,ImageID(id))
 
EndProcedure

OpenWindow(0,0,0,600,400,"Nice bars",
           #PB_Window_TitleBar|#PB_Window_ScreenCentered|#PB_Window_SystemMenu)
ButtonGadget(0,390,270,100,20,"Cancel")
separator(0,100,100,250,20,"Hello world",0,RGB($50,$50,$50),GetSysColor_(#COLOR_3DFACE))
fontid=LoadFont(1,"Lucida Console",12)
separator(1,100,200,250,20,"My configuration",fontid,RGB($40,$40,$40),RGB($CC,$CC,$CC))

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_Gadget
      Select EventGadget()
        Case 0
          Quit = #True
      EndSelect
  EndSelect
Until Quit