Clipper On Line • Ver Tópico - Como usar o calendário do windows?

Como usar o calendário do windows?

Discussão sobre a biblioteca Fivewin - O Clipper para Windows.

Moderador: Moderadores

Postar uma resposta
 

Como usar o calendário do windows?

Mensagempor Daiane » 13 Mai 2016 10:01

Olá pessoal, estou tentando chamar o calendario do windows e não estou conseguindo

Ja utilizei desta forma:

ACTION WinExec( "Calendar" )


mas no windows 7 não reconhece

esta forma abaixo não é interessante pois trás a tela de alteração do relógio e da data
WinExec( "Control date/time" )


alguém teria alguma outra maneira ?
XHb 1.2.1 + FW 12.05 + Pelles C IDE
"Eu adoraria mudar o mundo, mas não me deram o código-fonte."
Avatar de usuário

Daiane
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 122
Data de registro: 28 Out 2014 15:19
Cidade/Estado: Feira de Santana - BA
Curtiu: 27 vezes
Mens.Curtidas: 13 vezes
Voltar ao topo

Como usar o calendário do windows?

Mensagempor Kapiaba » 13 Mai 2016 11:57 

   WinExec( "CONTROL TIMEDATE.CPL" )


abs
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1766
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 311 vezes
Mens.Curtidas: 119 vezes
Voltar ao topo

Como usar o calendário do windows?

Mensagempor Kapiaba » 13 Mai 2016 11:59

Mas o melhor, seria você ter o seu próprio calendário:

Veja:

http://fivewin.com.br/index.php?/topic/24620-colocar-calendario-na-tela-principal-do-sistema-ou-seja-escrever-na-imagem/?hl=calendario

Abs
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1766
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 311 vezes
Mens.Curtidas: 119 vezes
Voltar ao topo

Como usar o calendário do windows?

Mensagempor Daiane » 13 Mai 2016 16:02

Na verdade acabei de fazer meu próprio calendário
pois faz tempo que procuro uma forma de chamar do próprio windows e nada

Mas obrigada Kapiaba pela resposta :)

Vou disponibilizar meu código caso alguém precise

*****************************************
* DlgCalendar.prg
* ADD Por Daiane 13/05/2016
*****************************************

#include "FiveWin.ch"

static DlgCalendar

//----------------------------------------------------------------------------//
CLASS DlgCalendar FROM JanDlg
    export:
       METHOD getInstance(oWnd)
       METHOD BuildDlg()     
    hidden:
      METHOD New(oWnd) CONSTRUCTOR
      METHOD DeleteW()
      METHOD Inicializar()
      METHOD Anterior()
      METHOD PosteriorP()
      METHOD DiaDoMes() 
      
      DATA cMes,cDiaMes,gDiaMes,gMes,NewData,NewMes
      DATA bAnte,bPosterior,xmm,xaa,cxAno,gxAno
         
ENDCLASS

METHOD getInstance(oWnd) CLASS DlgCalendar

   IF DlgCalendar = nil
      DlgCalendar := ::New(oWnd,"#8029", 0, 0,"Calendario")
   ELSE
      DlgCalendar:oChld:SetFocus()
   ENDIF                                           
return DlgCalendar
//------------------------------------------------------------------------------      

METHOD New(oWind,cIcone,vLarg,vAlt,cTitulo) CLASS DlgCalendar
   super:New(oWind,cIcone,vLarg,vAlt,cTitulo)

   ::NewData := date()
   
   ACTIVATE DIALOG ::oDlg NOMODAL CENTERED;
   VALID ( DlgCalendar:oChld:End() , .t. )
RETURN self

//------------------------------------------------------------------------------   
METHOD BuildDlg() CLASS DlgCalendar
  
 DEFINE DIALOG ::oDlg RESOURCE "#2003" OF ::oChld ;
 TITLE "Calendario" Color 1, nRGB(209,209,209) 

 
 ::cDiaMes := ARRAY(37)
 ::gDiaMes := ARRAY(37)

 REDEFINE SAY ID 4031 OF ::oDlg

 REDEFINE GET ::gMes VAR ::cMes ID 4037  OF ::oDlg when .f.
 
 REDEFINE GET ::gDiaMes[1] VAR ::cDiaMes[1] ID 4001 OF ::oDlg when .f. UPDATE
 REDEFINE GET ::gDiaMes[2] VAR ::cDiaMes[2] ID 4006 OF ::oDlg when .f. UPDATE
 REDEFINE GET ::gDiaMes[3] VAR ::cDiaMes[3] ID 4002 OF ::oDlg when .f. UPDATE
 REDEFINE GET ::gDiaMes[4] VAR ::cDiaMes[4] ID 4003 OF ::oDlg when .f. UPDATE
 REDEFINE GET ::gDiaMes[5] VAR ::cDiaMes[5] ID 4004 OF ::oDlg when .f. UPDATE
 REDEFINE GET ::gDiaMes[6] VAR ::cDiaMes[6] ID 4005 OF ::oDlg when .f. UPDATE
 REDEFINE GET ::gDiaMes[7] VAR ::cDiaMes[7] ID 4007 OF ::oDlg when .f. UPDATE
  
 REDEFINE GET ::gDiaMes[8] VAR ::cDiaMes[8] ID 4008 OF ::oDlg when .f. UPDATE
 REDEFINE GET ::gDiaMes[9] VAR ::cDiaMes[9] ID 4013 OF ::oDlg when .f. UPDATE
 REDEFINE GET ::gDiaMes[10] VAR ::cDiaMes[10] ID 4009 OF ::oDlg  when .f. UPDATE
 REDEFINE GET ::gDiaMes[11] VAR ::cDiaMes[11] ID 4010 OF ::oDlg  when .f. UPDATE
 REDEFINE GET ::gDiaMes[12] VAR ::cDiaMes[12] ID 4011 OF ::oDlg  when .f. UPDATE
 REDEFINE GET ::gDiaMes[13] VAR ::cDiaMes[13] ID 4012 OF ::oDlg  when .f. UPDATE
 REDEFINE GET ::gDiaMes[14] VAR ::cDiaMes[14] ID 4014 OF ::oDlg  when .f. UPDATE
  
 REDEFINE GET ::gDiaMes[15] VAR ::cDiaMes[15] ID 4015 OF ::oDlg  when .f. UPDATE
 REDEFINE GET ::gDiaMes[16] VAR ::cDiaMes[16] ID 4020 OF ::oDlg  when .f. UPDATE
 REDEFINE GET ::gDiaMes[17] VAR ::cDiaMes[17] ID 4016 OF ::oDlg  when .f. UPDATE
 REDEFINE GET ::gDiaMes[18] VAR ::cDiaMes[18] ID 4017 OF ::oDlg  when .f. UPDATE
 REDEFINE GET ::gDiaMes[19] VAR ::cDiaMes[19] ID 4018 OF ::oDlg  when .f. UPDATE
 REDEFINE GET ::gDiaMes[20] VAR ::cDiaMes[20] ID 4019 OF ::oDlg  when .f. UPDATE
 REDEFINE GET ::gDiaMes[21] VAR ::cDiaMes[21] ID 4021 OF ::oDlg  when .f. UPDATE
 
 REDEFINE GET ::gDiaMes[22] VAR ::cDiaMes[22] ID 4022 OF ::oDlg  when .f. UPDATE
 REDEFINE GET ::gDiaMes[23] VAR ::cDiaMes[23] ID 4027 OF ::oDlg  when .f. UPDATE
 REDEFINE GET ::gDiaMes[24] VAR ::cDiaMes[24] ID 4023 OF ::oDlg  when .f. UPDATE
 REDEFINE GET ::gDiaMes[25] VAR ::cDiaMes[25] ID 4024 OF ::oDlg  when .f. UPDATE
 REDEFINE GET ::gDiaMes[26] VAR ::cDiaMes[26] ID 4025 OF ::oDlg  when .f. UPDATE
 REDEFINE GET ::gDiaMes[27] VAR ::cDiaMes[27] ID 4026 OF ::oDlg  when .f. UPDATE
 REDEFINE GET ::gDiaMes[28] VAR ::cDiaMes[28] ID 4028 OF ::oDlg  when .f. UPDATE
 
 REDEFINE GET ::gDiaMes[29] VAR ::cDiaMes[29] ID 4029 OF ::oDlg  when .f. UPDATE
 REDEFINE GET ::gDiaMes[30] VAR ::cDiaMes[30] ID 4034 OF ::oDlg  when .f. UPDATE
 REDEFINE GET ::gDiaMes[31] VAR ::cDiaMes[31] ID 4030 OF ::oDlg  when .f. UPDATE
 REDEFINE GET ::gDiaMes[32] VAR ::cDiaMes[32] ID 4032 OF ::oDlg  when .f. UPDATE
 REDEFINE GET ::gDiaMes[33] VAR ::cDiaMes[33] ID 4035 OF ::oDlg  when .f. UPDATE
 REDEFINE GET ::gDiaMes[34] VAR ::cDiaMes[34] ID 4033 OF ::oDlg  when .f. UPDATE
 REDEFINE GET ::gDiaMes[35] VAR ::cDiaMes[35] ID 4036 OF ::oDlg  when .f. UPDATE

 REDEFINE GET ::gDiaMes[36] VAR ::cDiaMes[36] ID 4040 OF ::oDlg  when .f. UPDATE
 REDEFINE GET ::gDiaMes[37] VAR ::cDiaMes[37] ID 4041 OF ::oDlg  when .f. UPDATE
 
    REDEFINE GET ::gxAno VAR ::cxAno ID 4045 OF ::oDlg  when .f. UPDATE
 
   REDEFINE BUTTONBMP ::bAnte   ID 4039 OF ::oDlg BITMAP "#7049";   
   ACTION ::Anterior() UPDATE 
   REDEFINE BUTTONBMP ::bAnte   ID 4038 OF ::oDlg BITMAP "#7050";   
   ACTION ::PosteriorP() UPDATE

   REDEFINE BUTTON ::bCancelar   ID 4044 ACTION DlgCalendar:oDlg:End() UPDATE CANCEL

   ::inicializar() 

return    
//-----------------------------------------------------------------------------
METHOD DeleteW() CLASS DlgCalendar
   DlgCalendar := nil
return .T. 

//-----------------------------------------------------------------------------   

METHOD Anterior() CLASS DlgCalendar
   yaux := 0
   xdate := ctod("")
     xday   := day(::NewData)
   xmonth := month(::NewData) - 1
   xyear  := year(::NewData)
   if xmonth < 1
      xmonth := 12
      xyear--
   endif    
   xdate := ctod(str(xday,2)+"/"+str(xmonth,2)+"/"+str(xyear)) 
   ::NewData := xdate
   ::cMes :=  Mfolha():Meses(::NewData) 
   ::gMes:Refresh()
   ::xmm:= MONTH(::NewData)
   ::xaa:= left(dtos(::NewData),4)
   ::cxAno := ::xaa 
   ::gxAno:Refresh()
   yCont := ::DiaDoMes()
   yUltimoDia := ULTIMODIA("/"+STRZERO(::xmm,2)+"/"+alltrim(::xaa))
    FOR i := 1 to 37
       if i >= yCont  .and. yaux <= (day(yUltimoDia)-1)
          yaux++
          ::cDiaMes[i] := alltrim(str(yaux))
       else
          ::cDiaMes[i] := space(2)
       endif    
   NEXT
   FOR i := 1 to 37
       ::gDiaMes[i]:Refresh()
   NEXT 
return 
//------------------------------------------------------------------------------      
METHOD PosteriorP() CLASS DlgCalendar
   xaux := 0
   ::NewData := addmonth(::NewData)
   ::cMes :=  Mfolha():Meses(::NewData) 
   ::gMes:Refresh()
   ::NewMes := ALLTRIM(STR(MONTH(::NewData)))
   ::xmm:= MONTH(::NewData)
   ::xaa:= left(dtos(::NewData),4)
    ::cxAno := ::xaa 
   ::gxAno:Refresh()
   xCont := ::DiaDoMes()
   xUltimoDia := ULTIMODIA("/"+STRZERO(::xmm,2)+"/"+alltrim(::xaa))
    FOR i := 1 to 37
       if i >= xCont  .and. xaux <= (day(xUltimoDia)-1)
          xaux++
          ::cDiaMes[i] := alltrim(str(xaux))
       else
          ::cDiaMes[i] := space(2)
       endif    
   NEXT
   FOR i := 1 to 37
       ::gDiaMes[i]:Refresh()
   NEXT 
return
//------------------------------------------------------------------------------      
METHOD inicializar() CLASS DlgCalendar
   xaux := 0
   ::NewData := date()
   ::cMes :=  Mfolha():Meses(::NewData) 
   ::gMes:Refresh()
   ::NewMes := ALLTRIM(STR(MONTH(::NewData)))
   ::xmm:= MONTH(::NewData)
   ::xaa:= left(dtos(::NewData),4)
   ::cxAno := ::xaa 
   ::gxAno:Refresh()
   xCont := ::DiaDoMes()
   xUltimoDia := ULTIMODIA("/"+STRZERO(::xmm,2)+"/"+alltrim(::xaa))
    FOR i := 1 to 37
       if i >= xCont  .and. xaux <= (day(xUltimoDia)-1)
          xaux++
          ::cDiaMes[i] := alltrim(str(xaux))
       else
          ::cDiaMes[i] := space(2)
       endif    
   NEXT
   FOR i := 1 to 37
       ::gDiaMes[i]:Refresh()
   NEXT 

return .T. 
//-------------------------------------------------------------------------------                                       
METHOD DiaDoMes() CLASS DlgCalendar
     
   xDiaSemana := CDOW(ctod("01/"+ alltrim(str(::xmm)) + "/"+left(dtos(::NewData),4))) 
   xDia := 1
   if xDiaSemana = "Monday"
      xDia := 2
   elseif xDiaSemana = "Tuesday"
      xDia := 3
   elseif xDiaSemana = "Wednesday"
      xDia := 4
   elseif xDiaSemana = "Thursday"
      xDia := 5
   elseif xDiaSemana = "Friday"
      xDia := 6
   elseif xDiaSemana = "Saturday"
      xDia := 7
   elseif xDiaSemana = "Sunday"  
      xDia := 1
   endif   

RETURN xDia
      
Anexos
Calendario.jpg
XHb 1.2.1 + FW 12.05 + Pelles C IDE
"Eu adoraria mudar o mundo, mas não me deram o código-fonte."
Avatar de usuário

Daiane
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 122
Data de registro: 28 Out 2014 15:19
Cidade/Estado: Feira de Santana - BA
Curtiu: 27 vezes
Mens.Curtidas: 13 vezes
Voltar ao topo

Como usar o calendário do windows?

Mensagempor Kapiaba » 13 Mai 2016 16:38

Congratulations,

Daiane, faltou o .RC das tela, sem isso não é possivel incorporar o calendário.

abs.
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1766
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 311 vezes
Mens.Curtidas: 119 vezes
Voltar ao topo

Como usar o calendário do windows?

Mensagempor Daiane » 16 Mai 2016 08:59

Verdade Kapiaba :)

ta ai em anexo
Anexos
CalendarTela.rar
(1.38 MiB) Baixado 117 vezes
XHb 1.2.1 + FW 12.05 + Pelles C IDE
"Eu adoraria mudar o mundo, mas não me deram o código-fonte."
Avatar de usuário

Daiane
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 122
Data de registro: 28 Out 2014 15:19
Cidade/Estado: Feira de Santana - BA
Curtiu: 27 vezes
Mens.Curtidas: 13 vezes
Voltar ao topo

Como usar o calendário do windows?

Mensagempor Kapiaba » 16 Mai 2016 12:22

Thanks, Daiane.

//////////////////////////////////////////////////////////////////////////////
//
// Resource Script generated by Anders Melander's Resource Editor
//
//////////////////////////////////////////////////////////////////////////////

// DIALOGEX : Dialog

2003 DIALOGEX 6, 18, 234, 218
  LANGUAGE LANG_PORTUGUESE,SUBLANG_PORTUGUESE_BRAZILIAN // Português (Brasil)
  CAPTION "Dialog"
  EXSTYLE 0 // 0x00000000L
  STYLE DS_3DLOOK | DS_FIXEDSYS | DS_SETFONT | DS_MODALFRAME | DS_CONTEXTHELP | WS_MINIMIZEBOX | WS_MAXIMIZEBOX | WS_SYSMENU | WS_DLGFRAME | WS_BORDER | WS_VISIBLE | WS_POPUP // 0x90CB20CCL
  FONT 8, "Tahoma", 0, 0, 1
BEGIN
  CONTROL "", 4001, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 52, 72, 16, 12
  CONTROL "", 4006, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 72, 72, 16, 12
  CONTROL "", 4002, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 92, 72, 16, 12
  CONTROL "", 4003, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 112, 72, 16, 12
  CONTROL "", 4004, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 132, 72, 16, 12
  CONTROL "", 4005, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 152, 72, 16, 12
  CONTROL "", 4007, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 172, 72, 16, 12
  CONTROL "", 4008, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 52, 92, 16, 12
  CONTROL "", 4013, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 72, 92, 16, 12
  CONTROL "", 4009, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 92, 92, 16, 12
  CONTROL "", 4010, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 112, 92, 16, 12
  CONTROL "", 4011, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 132, 92, 16, 12
  CONTROL "", 4012, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 152, 92, 16, 12
  CONTROL "", 4014, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 172, 92, 16, 12
  CONTROL "", 4015, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 52, 112, 16, 12
  CONTROL "", 4020, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 72, 112, 16, 12
  CONTROL "", 4016, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 92, 112, 16, 12
  CONTROL "", 4017, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 112, 112, 16, 12
  CONTROL "", 4018, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 132, 112, 16, 12
  CONTROL "", 4019, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 152, 112, 16, 12
  CONTROL "", 4021, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 172, 112, 16, 12
  CONTROL "", 4022, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 52, 132, 16, 12
  CONTROL "", 4027, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 72, 132, 16, 12
  CONTROL "", 4023, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 92, 132, 16, 12
  CONTROL "", 4024, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 112, 132, 16, 12
  CONTROL "", 4025, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 132, 132, 16, 12
  CONTROL "", 4026, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 152, 132, 16, 12
  CONTROL "", 4028, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 172, 132, 16, 12
  CONTROL "", 4029, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 52, 152, 16, 12
  CONTROL "", 4034, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 72, 152, 16, 12
  CONTROL "", 4030, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 92, 152, 16, 12
  CONTROL "", 4032, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 112, 152, 16, 12
  CONTROL "", 4035, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 132, 152, 16, 12
  CONTROL "", 4033, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 152, 152, 16, 12
  CONTROL "", 4036, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 172, 152, 16, 12
  CONTROL "", 4037, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_VISIBLE | WS_CHILD, 60, 32, 116, 12
  CONTROL "", 4038, "Button", WS_TABSTOP | WS_VISIBLE | WS_CHILD, 184, 32, 20, 14
  CONTROL "", 4039, "Button", WS_TABSTOP | WS_VISIBLE | WS_CHILD, 28, 32, 20, 14
  CONTROL "   D        S        T        Q        Q       S       S", 4031, "Static", WS_GROUP | WS_VISIBLE | WS_CHILD, 52, 56, 140, 8
  CONTROL "", 4040, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 52, 168, 16, 12
  CONTROL "", 4041, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_DISABLED | WS_VISIBLE | WS_CHILD, 72, 168, 16, 12
  CONTROL "", 4042, "Button", 00000001L | 00000002L | 00000004L | WS_VISIBLE | WS_CHILD, 20, 8, 192, 40
  CONTROL "", 4043, "Button", 00000001L | 00000002L | 00000004L | WS_VISIBLE | WS_CHILD, 4, 0, 224, 188
  CONTROL "&Sair", 4044, "Button", WS_TABSTOP | WS_VISIBLE | WS_CHILD, 84, 192, 68, 18
  CONTROL "", 4045, "Edit", 00000001L | 00000080L | WS_TABSTOP | WS_BORDER | WS_VISIBLE | WS_CHILD, 60, 16, 116, 12
END

//////////////////////////////////////////////////////////////////////////////
//
// VERSIONINFO : VersionInfo
//

1 VERSIONINFO
  FILEVERSION 1,0,0,0
  PRODUCTVERSION 1,0,0,0
  FILEFLAGSMASK 0x3FL
  FILEFLAGS 0x0L
  FILEOS 0x4L
  FILETYPE 0x1L
  FILESUBTYPE 0x0L
BEGIN
  BLOCK "StringFileInfo" BEGIN
    BLOCK "040904B0" BEGIN
      VALUE "FileVersion", "1.0"
      VALUE "ProductVersion", "1.0.0.0"
      VALUE "Comments", "Add-in template for Pelles C"
      VALUE "FileDescription", "Description for resources.c"
    END
  END
  BLOCK "VarFileInfo" BEGIN
    VALUE "Translation", 0x0409, 1200 // Inglês (Estados Unidos)
  END
END


Kapiaba
Colaborador

Colaborador
 
Mensagens: 1766
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 311 vezes
Mens.Curtidas: 119 vezes
Voltar ao topo
Postar uma resposta


Retornar para FiveWin

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 4 visitantes

Mudar para estilo Celular

Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Traduzido por phpBB Brasil
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro
Conversão Sistema Clipper para Harbour - Você tem um programa desenvolvido em Clipper e quer atualizar ele para executar em versões mais recentes do Windows (7, 8, 10, etc)? Então o melhor caminho é converter seu programa Clipper para Harbour. Clique aqui para mais detalhes.