ttile ejemplo necesito ejemplo desde recursos

[D.Fernandez]

Hola amigos:

Alguien seria tan amable de colocar el Wyndows Style y el Extended windows style de la clase ttitle hecho con PelleC
Ej.: 0x110000 o algo parecido.

Lo he creado desde recursos pero los estilo quedo 0x00000 y no funciona.

Muy amab les gracias.

Saludos

Dario Fernandez

[Antonio Linares]

Dario,

Que estilos quieres darle al control ? cuales WS_... ?

[D.Fernandez]

Antonio: lo que quiero hacer es usar el tTitle de FWH, pero al crearlo en PellesC, el estilo que queda es 0x000000 y no me muestra nada.

lo tengo asi:
REDEFINE TITLE oTitle ID 222 of oDlgN SHADOW TEXT "Prueba "
oTitle:lBorder:=.T.
oTitle:aGrdBack = { { 1, nRGB( 129, 130, 138 ), nRGB( 59, 60, 62 ) } }

No se ve el texto Prueba no se darle el color al texto....

Saludos y gracias

Dario Fernandez

[Antonio Linares]

Dario,

Aqui tienes un ejemplo completo:

testtitr.prg

Code: Select all  Expand view  RUN

#include "FiveWin.ch"
#include "ttitle.ch"

function Main()

   local oDlg, oTitle, oFont

   DEFINE FONT oFOnt NAME "Verdana" SIZE 0, -14
 
   DEFINE DIALOG oDlg RESOURCE 1001

   REDEFINE TITLE oTitle ID 222 of oDlg

   // oTitle:lBorder:=.T.
   // oTitle:aGrdBack = { { 1, nRGB( 129, 130, 138 ), nRGB( 59, 60, 62 ) } }

   @ 25, 25 TITLETEXT OF oTitle TEXT "Prueba" FONT oFont

   ACTIVATE DIALOG oDlg CENTERED
   
   oFont:End()

return nil

testtitr.rc

Code: Select all  Expand view  RUN

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

#include <windows.h>

LANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_US

1001 DIALOGEX DISCARDABLE 6, 18, 294, 150
STYLE DS_SHELLFONT|WS_POPUP|DS_MODALFRAME|DS_CONTEXTHELP|DS_3DLOOK|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "Dialog"
FONT 8, "Tahoma"
{
  CONTROL "OK", IDOK, "Button", WS_TABSTOP, 168, 124, 45, 15
  CONTROL "Cancel", IDCANCEL, "Button", WS_TABSTOP, 224, 124, 45, 15
  CONTROL "Custom control", 222, "TTITLE", WS_VISIBLE | WS_CHILD, 8, 12, 276, 32
}

[D.Fernandez]

Gracias Antonio, todo funcionando ok.

Saludos.

Dario Fernandez