bug REDEFINE GROUP

[MOISES]

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.

[MOISES]

Up!

[Silvio.Falconi]

do you publish a small test sample please ?

[MOISES]

Up!

[Silvio.Falconi]

USE TRANSPARENT
for the color you can use a codeblock because nClrBorder can have a codeblock

or you can use this method

from a Nages sample

Code: Select all  Expand view  RUN

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]

I tried with the clause and it also fails.

It worked OK in FW 14.14.

[Silvio.Falconi]

here run ok and I use fwh 19.12

[MOISES]

Must be on REDEFINE GROUP using resources.

[karinha]

Must be on REDEFINE GROUP using resources.

Post small test sample, please.

Regards, saludos.

[karinha]

Example,

Code: Select all  Expand view  RUN

/*

   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
*/
 

Regards.