FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Problema para utilizar la clase tfolder
Posts: 85
Joined: Mon Sep 11, 2006 03:52 PM

Problema para utilizar la clase tfolder

Posted: Tue Oct 14, 2008 01:12 AM

Amigos del foro

Tengo problemas al utilizar folder definidos en .rc
aparecen des habilitados.
Queria saber si alguien ha tenido problemas usandolos
Si los creo sin utilizar .rc me funcionan bien

Espero que entiendan mi dudas

gracias

Saludos,
erick almanza

Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM

Problema para utilizar la clase tfolder

Posted: Tue Oct 14, 2008 07:30 AM

Que editor de recursos estas usando.... en algunos debes hacer un cambio de SYSTABCONTROLO32 o algo asi... yo uso Pelles C y no le hice inigun tipo de cambio y funcionan super... :shock:

Dios no está muerto...



Gracias a mi Dios ante todo!
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Problema para utilizar la clase tfolder

Posted: Tue Oct 14, 2008 07:42 AM

Erick,

Comprueba que esten definidos como SysTabControl32 y no como TFolder, en el RC

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 85
Joined: Mon Sep 11, 2006 03:52 PM

Antonio como defino systabcontrol32

Posted: Tue Oct 14, 2008 12:31 PM

Hola Antonio

Como defino este control ?

Utilizo Workshop
FWH 8.4

Saludos,
Erick

Posts: 601
Joined: Wed Jul 04, 2007 03:51 PM

Problema para utilizar la clase tfolder

Posted: Tue Oct 14, 2008 12:59 PM
Hola Erick.
Para eso debes editar el archivo RC en modo texto y solo cambiar TFolder por SystabControl32. Luego compilas el RC nuevamente y listo.

Asi es como debes tener ahora:
FOLDERS DIALOG DISCARDABLE -19, 36, 432, 361
STYLE WS_POPUP|WS_THICKFRAME|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
FONT 8, "MS Sans Serif"
BEGIN
  CONTROL "", 1000, "TFolder", WS_TABSTOP, 3, 2, 426, 318
  CONTROL "", 200, "TBtnBmp", 0x00000000, 111, 332, 51, 23
  CONTROL "", 201, "TBtnBmp", 0x00000000, 269, 332, 51, 23
END


Debes cambiarlo de este modo:
FOLDERS DIALOG DISCARDABLE -19, 36, 432, 361
STYLE WS_POPUP|WS_THICKFRAME|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
FONT 8, "MS Sans Serif"
BEGIN
  CONTROL "", 1000, "SysTabControl32", WS_TABSTOP, 3, 2, 426, 318
  CONTROL "", 200, "TBtnBmp", 0x00000000, 111, 332, 51, 23
  CONTROL "", 201, "TBtnBmp", 0x00000000, 269, 332, 51, 23
END


Espero te sirva.
Saludos. Desde Argentina, Esteban.
Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Problema para utilizar la clase tfolder

Posted: Tue Oct 14, 2008 10:11 PM

Erick,

Le das al botón que tiene una "llave" (custom control) igual que haces para TWBrowse, etc.

Y escribes como nombre "SysTabControl32"

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Problema para utilizar la clase tfolder

Posted: Tue Oct 14, 2008 10:14 PM
Eric,

Aqui tienes un ejemplo:

test.prg
#include "FiveWin.ch" 

function Main() 

   local oDlg, oFld 
    
   DEFINE DIALOG oDlg RESOURCE "Test" 

   REDEFINE FOLDER oFld ; 
      PROMPTS "One", "Two", "three" ; 
      DIALOGS "One", "Two", "Three" ; 
      ID 100 OF oDlg 
      
   ACTIVATE DIALOG oDlg CENTERED 

return nil


test.rc
#ifdef __FLAT__ 
   1 24 "WindowsXP.Manifest" 
#endif 

test DIALOG 17, 36, 185, 147 
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU 
CAPTION "Test" 
FONT 8, "MS Sans Serif" 
{ 
 CONTROL "", 100, "SysTabControl32", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 5, 6, 175, 117 
 DEFPUSHBUTTON "OK", 1, 67, 128, 50, 14 
} 

one DIALOG 6, 15, 175, 117 
STYLE WS_CHILD | WS_VISIBLE 
FONT 8, "MS Sans Serif" 
{ 
} 

two DIALOG 6, 15, 175, 117 
STYLE WS_CHILD | WS_VISIBLE 
FONT 8, "MS Sans Serif" 
{ 
} 

three DIALOG 6, 15, 175, 117 
STYLE WS_CHILD | WS_VISIBLE 
FONT 8, "MS Sans Serif" 
{ 
}
regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion