Hi,
I have a painting issue, now a shadow is added in Opciones de gestión. I need to remove it, to be as it was before (Observaciones).
Thank you.
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
MOISES wrote:Must be on REDEFINE GROUP using resources.
/*
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
*/
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 45 guests