2004-05-26 17:52

'Modificado para RapidQ por Jordi Ramos 26/05/2004

     $INCLUDE "RapidQ.inc"
     $INCLUDE "MOD_DECL.inc"
     $INCLUDE "CLSOMBRE.bas"

     DECLARE SUB Button1Click (Sender AS QBUTTON)

     CREATE Form AS QFORM
      CAPTION = "Form1"
      Width = 320
      Height = 240
      Center
      CREATE Panel1 AS QPANEL
       Left = 64
       Top = 16
       CAPTION = "Panel1"
       Height = 105
      END CREATE
      CREATE Button1 AS QBUTTON
       CAPTION = "Shadow !!!"
       Left = 112
       Top = 150
       OnClick = Button1Click
      END CREATE
     END CREATE

'Insert your initialization code here

     Form.SHOWMODAL

'--------- Subroutines ---------

     SUB Button1Click (Sender AS QBUTTON)
      Ombrer_Std Panel1.Handle
     END SUB

2004-05-26 17:52