bug REDEFINE GROUP

bug REDEFINE GROUP

Postby MOISES » Mon Dec 23, 2019 4:20 pm

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.

Image
Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
MOISES
 
Posts: 838
Joined: Wed Aug 22, 2007 10:09 am

Re: bug REDEFINE GROUP

Postby MOISES » Mon Dec 30, 2019 7:40 am

Up!
Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
MOISES
 
Posts: 838
Joined: Wed Aug 22, 2007 10:09 am

Re: bug REDEFINE GROUP

Postby Silvio.Falconi » Mon Dec 30, 2019 9:22 am

do you publish a small test sample please ?
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 7033
Joined: Thu Oct 18, 2012 7:17 pm

Re: bug REDEFINE GROUP

Postby MOISES » Tue Jan 07, 2020 10:06 am

Up!
Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
MOISES
 
Posts: 838
Joined: Wed Aug 22, 2007 10:09 am

Re: bug REDEFINE GROUP

Postby Silvio.Falconi » Tue Jan 07, 2020 11:12 am

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

Image

Code: Select all  Expand view
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
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 7033
Joined: Thu Oct 18, 2012 7:17 pm

Re: bug REDEFINE GROUP

Postby MOISES » Tue Jan 07, 2020 11:19 am

I tried with the clause and it also fails.

It worked OK in FW 14.14.
Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
MOISES
 
Posts: 838
Joined: Wed Aug 22, 2007 10:09 am

Re: bug REDEFINE GROUP

Postby Silvio.Falconi » Tue Jan 07, 2020 1:04 pm

here run ok and I use fwh 19.12
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 7033
Joined: Thu Oct 18, 2012 7:17 pm

Re: bug REDEFINE GROUP

Postby MOISES » Tue Jan 07, 2020 1:14 pm

Must be on REDEFINE GROUP using resources.
Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
MOISES
 
Posts: 838
Joined: Wed Aug 22, 2007 10:09 am

Re: bug REDEFINE GROUP

Postby karinha » Tue Jan 07, 2020 1:19 pm

MOISES wrote:Must be on REDEFINE GROUP using resources.


Post small test sample, please.

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7794
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: bug REDEFINE GROUP

Postby karinha » Tue Jan 07, 2020 1:40 pm

Example,

Code: Select all  Expand view

/*

   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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7794
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 45 guests