2013-06-19 07:48

'From:  billk2867 Tue Jan 28, 2003  9:44 pm
' QStatusBar font color
' It creates a qpanel that you can set the
'font on and forces into the statusbar. I posted my Statusbitmaps.rqb
'in the files section (http://h.ods.org/f.php?f=314&r=2330#425).
'It shows a method like this I came up with when
'I wanted some bitmaps displayed in the statusbar.

' BILL K 1-2003
     $OPTIMIZE ON
     $APPTYPE GUI
     $TYPECHECK ON
'
     DECLARE FUNCTION SetParent LIB "user32" ALIAS _
      "SetParent" (hWndChild AS LONG, hWndNewParent _
      AS LONG) AS LONG
'
     DECLARE SUB DOINIT
'
     CREATE REDFONT AS QFONT
      SIZE=9
      BOLD=1
      NAME="ARIAL"
      COLOR=255
     END CREATE
     CREATE BLUFONT AS QFONT
      SIZE=9
      BOLD=1
      NAME="ARIAL"
      COLOR=13369344
     END CREATE
'
     CREATE FORM AS QFORM
      CAPTION="FORM"
' to show it will be black in .panel(2)
      FONT=REDFONT
      ONSHOW=DOINIT
      CENTER
      CREATE STATUSBAR AS QSTATUSBAR
       ADDPANELS "","",""
       Panel(0).Width = 90
       Panel(1).Width = 90
       PANEL(2).CAPTION="RED IS BLACK FONT"
      END CREATE
      CREATE PANEL0 AS QPANEL
       CAPTION="RED FONT"
       BEVELOUTER=0
       ALIGNMENT=0
       TOP=3
       LEFT=3
       WIDTH=StatusBar.PANEL(0).WIDTH-4
       HEIGHT=STATUSBAR.HEIGHT-5
       FONT=REDFONT
      END CREATE
      CREATE PANEL1 AS QPANEL
       CAPTION="BLUE FONT"
       BEVELOUTER=0
       ALIGNMENT=0
       TOP=3
       LEFT=StatusBar.PANEL(0).WIDTH + 5
       WIDTH=StatusBar.PANEL(1).WIDTH-6
       HEIGHT=STATUSBAR.HEIGHT-5
       FONT=BLUFONT
      END CREATE
     END CREATE ' FORM
'
     SUB DOINIT
'do this after form shows
      SetParent PANEL0.Handle , Statusbar.Handle
      SetParent PANEL1.Handle , Statusbar.Handle
     END SUB
'
     FORM.SHOWMODAL

2013-06-19 07:48