FiveTech Support Forums

function Main()

   local oDlg, oFont, oBold, aVar[ 2 ]

   AFill( aVar, Space( 60 ) )

   DEFINE FONT oFont NAME "ARIAL" SIZE 0,-14
   DEFINE FONT oBold NAME "ARIAL" SIZE 0,-14 BOLD

   DEFINE DIALOG oDlg SIZE 500,250 PIXEL TRUEPIXEL FONT oFont

   @  70,50 GET aVar[ 1 ] SIZE 200, 20 PIXEL OF oDlg
   @ 100,50 GET aVar[ 2 ] SIZE 200, 20 PIXEL OF oDlg

   oDlg:bPainted := < |hDC|
      RoundBox( hDC, 20,40,300,150,10,10,CLR_HRED, 1 )
      oDlg:SayText( "Group Title", { 30,30,50,150 }, nil, oBold, { CLR_GREEN, oDlg:nClrPane } )
      return nil
   >

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont, oBold

return nil

/*

   Demo de uso da class TSkin
   Por : Lailton Fernando Mariano
   DATA: 14/05/2010 

*/

#include "Fivewin.ch"

Function main()

   local oDlg
   local oSayA, cSayA:="Usuario:"
   local oSayB, cSayB:="Senha:"
   local oGetA, cGetA:=Space(50)
   local oLogo, cLogo:="..\bitmaps\redstarsoft.bmp"
   local oGroup
   local oBtnA, oBtnb
   local oGetB, cGetB:=Space(50)

   Define Dialog oDlg TITLE "Class TSKIN" PIXEL Resource "SAMPLE1" STYLE WS_POPUP
   
   REDEFINE BITMAP oLogo FILE cLogo ID 4008 OF oDlg ADJUST

   REDEFINE SAY oSayA VAR cSayA ID 4004 OF oDlg
   REDEFINE SAY oSayB VAR cSayB ID 4005 OF oDlg   

   REDEFINE GET oGetA VAR cGetA ID 4002 OF oDlg
   REDEFINE GET oGetB VAR cGetB ID 4003 OF oDlg

   REDEFINE GROUP oGroup ID 4001 OF oDlg PROMPT "Access Control" TRANSPARENT

   REDEFINE BUTTON oBtnA ID 4006 OF oDlg Action Msginfo("OK Group")

   REDEFINE BUTTON oBtnB ID 4007 OF oDlg Action( oDlg:End() ) CANCEL

   oDlg:bStart:= {|| SKIN( oDlg, "blue_skin" ) }
    
   Activate Dialog oDlg CENTERED ;
      ON INIT oDlg:Shadow()
   
RETURN NIL

/*

// RC file

// RESOURCE SCRIPT generated by "Pelles C for Windows, version 6.00".

#ifndef __64__
  1 24 ".\WinXP\WindowsXP.Manifest"
#endif

// 1 MANIFEST "res1.xml"

LANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_US

EW CURSOR "../cursors/res1.cur"

MOVE CURSOR "../cursors/res2.cur"

NESW CURSOR "../cursors/res3.cur"

NS CURSOR "../cursors/res4.cur"

NWSE CURSOR "../cursors/res5.cur"

ARROW CURSOR "../cursors/res6.cur"

SAMPLE1 DIALOG DISCARDABLE 6, 18, 182, 166
STYLE WS_POPUP|WS_VISIBLE
FONT 8, "MS Sans Serif"
BEGIN
  CONTROL "Controle de Acesso", 4001, "Button", BS_GROUPBOX, 8, 84, 160, 52
  CONTROL "Usuario:", 4004, "Static", WS_GROUP, 16, 102, 36, 8, WS_EX_TRANSPARENT
  CONTROL "Senha:", 4005, "Static", WS_GROUP, 16, 114, 36, 8, WS_EX_TRANSPARENT
  CONTROL "", 4003, "Edit", WS_BORDER|WS_TABSTOP, 56, 100, 100, 11
  CONTROL "", 4002, "Edit", ES_PASSWORD|WS_BORDER|WS_TABSTOP, 56, 112, 100, 11
  CONTROL "Entrar", 4006, "Button", WS_TABSTOP, 76, 140, 45, 15
  CONTROL "Cancelar", 4007, "Button", WS_TABSTOP, 124, 140, 45, 15
  CONTROL "", 4008, "Static", SS_BITMAP, 8, 8, 158, 64, WS_EX_TRANSPARENT
END

SAMPLE2 DIALOGEX DISCARDABLE 6, 18, 282, 142
STYLE WS_POPUP|WS_VISIBLE
BEGIN
  CONTROL "Cadastro de Produto", 4001, "Static", WS_GROUP, 12, 16, 116, 8
  CONTROL "", 4002, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 12, 28, 104, 12
  CONTROL "", 4003, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 12, 44, 136, 12
  CONTROL "Salvar", 4004, "Button", WS_TABSTOP, 12, 112, 45, 15
  CONTROL "Cancelar", 4005, "Button", WS_TABSTOP, 64, 112, 45, 15
  CONTROL "", 1001, "msctls_trackbar32", 0x00000000, 12, 64, 136, 14
  CONTROL "", 4006, "msctls_trackbar32", 0x00000000, 12, 92, 136, 14
  CONTROL "Transparencia", 4007, "Static", WS_GROUP, 16, 80, 132, 8
END

SAMPLE3 DIALOGEX DISCARDABLE 6, 18, 406, 218
STYLE WS_POPUP|WS_VISIBLE
BEGIN
END
*/