(.RES) to (.RC)

Anderson.OL · January 18, 2007

Bom dia pessoal, bem estou com uma dÃºvida que nÃ£o Ã© especificamente sobre FiveWin, mas sim sobre recursos.

Sei que Ã© possÃvel pois editores como WorkShop e outros fazem, daÃ gostaria de saber como converter um recurso para um arquivo .RC!

AlguÃ©m jÃ¡ teve tal curiosidade e chegou ao ponto de desvendar tal mistÃ©rio??

Bem, fico aguardando a ajuda de uma alma caridosa!

AbraÃ§os

----

Anderson.OL

msn + email: anderson.ol@gmail.com

Skype: andersonol

FWid=red>(2.6) | Clppid=red> (5.3)

Editado por - anderson.ol on 18/01/2007 08:24:33

Anderson.OL · January 18, 2007

Bom dia pessoal, bem estou com uma dÃºvida que nÃ£o Ã© especificamente sobre FiveWin, mas sim sobre recursos.

Sei que Ã© possÃvel pois editores como WorkShop e outros fazem, daÃ gostaria de saber como converter um recurso para um arquivo .RC!

AlguÃ©m jÃ¡ teve tal curiosidade e chegou ao ponto de desvendar tal mistÃ©rio??

Bem, fico aguardando a ajuda de uma alma caridosa!

AbraÃ§os

----

Anderson.OL

msn + email: anderson.ol@gmail.com

Skype: andersonol

FWid=red>(2.6) | Clppid=red> (5.3)

Editado por - anderson.ol on 18/01/2007 08:24:33

aferra · January 18, 2007

olÃ¡ Anderson, senÃ£o me engano nÃ£o basta vc abrir o .res e mandar salva como... e indicar para .rc???? vc jÃ¡ tentou isso?

Alessandro F. Silvaid=blue>

E-mail :aferracini@terra.com.br

FW2.0d + CL53b + Blinker 7.0 + @Say + CDX

MSN: ferracini_silva@hotmail.com

RibeirÃ£o Preto/SP

Anderson.OL · January 18, 2007

citaÃ§Ã£o:
olÃ¡ Anderson, senÃ£o me engano nÃ£o basta vc abrir o .res e mandar salva como... e indicar para .rc???? vc jÃ¡ tentou isso?

Alessandro F. Silvaid=blue>

E-mail :aferracini@terra.com.br

FW2.0d + CL53b + Blinker 7.0 + @Say + CDX

MSN: ferracini_silva@hotmail.com

RibeirÃ£o Preto/SP

id=quote>id=quote>

Sim pelo workshop, mas eu gostaria de fazer isto via programaÃ§Ã£o, mesmo que tivesse que usar um programa de terceiro, entende?

----

Anderson.OL

msn + email: anderson.ol@gmail.com

Skype: andersonol

FWid=red>(2.6) | Clppid=red> (5.3)

Editado por - anderson.ol on 18/01/2007 09:01:22

kapiaba · January 18, 2007

// Gerador de arquivos

// *.CH / *.RC / *.PRG

#include "fivewin.ch"

static cIniFile

#define CRSM " ;"+chr(13)+chr(10)

#define TAB space(8)

#define FNTX 14

#define FNTY 7

static aVars := {}

static aLines := {}

static cDbfName

static nTotal := 0

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

FUNCTION Main()

LOCAL oDlg, oGet

LOCAL cTemp

cDbfName := Space(40)

SET _3DLOOK ON

DEFINE DIALOG oDlg RESOURCE "Gen"

REDEFINE GET oGet VAR cDbfName ID 110 OF oDlg

REDEFINE BUTTON ID 120 OF oDlg ;

ACTION ( cTemp := ;

cGetfile( "*.dbf", "Selecione um DBF") , ;

if( !empty( cTemp ), ( cDbfName := cTemp , ;

oGet:Refresh() ),))

REDEFINE BUTTON ID 130 OF oDlg ;

ACTION ( CursorWait(), GenRC( cDbfName ), CursorArrow() )

REDEFINE BUTTON ID 140 OF oDlg ACTION oDlg:End()

ACTIVATE DIALOG oDlg ;

CENTERED

RETURN( NIL )

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

FUNCTION GenRC( cDbfName )

LOCAL n, nId := 110

LOCAL cRC := ""

LOCAL cCH := " " + CRLF // "// Criado por GEN" + CRLF

LOCAL aFields

LOCAL cRCFile := ""

IF empty( cDbfName ) .OR. !file( cDbfName )

MsgAlert( "Nenhum arquivo DBF selecionado!", "Erro" )

RETURN( NIL )

ENDIF

CursorWait()

USE ( cDbfName ) NEW shared

aFields := dbstruct()

cRC += '#include "\fw23\include\WinApi.ch"' + CRLF + CRLF

// Se for usar o arquivo x.CH habilite a linha seguinte

// cRC += '#include "' + alias() + '.ch"' + CRLF + CRLF

cRC += alias() + " DIALOG 32, 18, 236," + ;

str( ( len( aFields ) * 14) + 20, 4 ) + CRLF

cRC += "STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE |" +;

" WS_CAPTION | WS_SYSMENU" + CRLF

// cRC += "STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION |"+ ;

// " WS_SYSMENU" + CRLF

cRC += 'CAPTION "' + alias() + '"' + CRLF

cRC += 'FONT 8, "MS Sans Serif"' + CRLF

cRC += "{" + CRLF

FOR n := 1 TO len( aFields )

cCH += "#define ID_" + PadR( aFields[ n ][ 1 ], 11 ) + ;

str( nId, 4 ) + CRLF

DO CASE

CASE aFields[ n ][ 2 ] $ "CND"

cRC += ' RTEXT "' + properCase(aFields[n][1]) + '"' + ;

space(10-len( aFields[ n ][ 1 ] ) ) + ", -1, 3,"+;

str( 5 + 14 * ( n - 1 ), 4 ) + ", 41, 8" + CRLF

/* desabilitado para quem nao usar o x.CH

cRC += " EDITTEXT ID_" + aFields[ n ][ 1 ] + ;

", 48," + str( 3 + 14 * ( n - 1 ), 4 ) + ", " + ;

str( aFields[ n ][ 3 ] * 7 *.5 + 8, 4 ) + ", 12" + CRLF

*/

cRC += " EDITTEXT " + str( nId, 5, 0 ) + ;

", 48," + str( 3 + 14 * ( n - 1 ), 4 ) + ", " + ;

str( aFields[ n ][ 3 ] * 7 *.5 + 8, 4 ) + ", 12" + CRLF

CASE aFields[ n ][ 2 ] == "L"

cRC += ' CONTROL "' + properCase(aFields[ n ][ 1 ]) + ;

'", ' + str( nId, 5, 0 ) + ; // ID_' + aFields[ n ][ 1 ] + ;

', "BUTTON", BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, ' + ;

"45, " + str( 3 + 14 * ( n - 1 ), 4 ) + ;

", 50, 12" + CRLF

CASE aFields[ n ][ 2 ] == "M"

cRC += ' RTEXT "' + properCase(aFields[ n ][ 1 ]) + '"' + ;

space( 10 - len( aFields[ n ][ 1 ] ) ) + ", -1, 100," + ;

str( 5 + 14 * ( n - 1 ), 4 ) + ", 41, 8" + CRLF

// cRC += ' CONTROL "' + aFields[ n ][ 1 ] + ;

cRC += ' CONTROL "' + "" + ;

'", ' + str( nId, 5, 0 ) + ; // ID_' + aFields[ n ][ 1 ] + ;

"145, " + str( 3 + 14 * ( n - 1 ), 4 ) + ", " + "77, 63" + CRLF

//^^^ gotta put it out to the right somewhere so you can see it

// and not sit under a bunch of other controls

ENDCASE

nId += 1

cCh += CRLF

/* Add version info to .RC // CLW

cRC += "" + CRLF

cRC +='1 VERSIONINFO LOADONCALL MOVEABLE '+ CRLF

cRC +='FILEVERSION 1, 0, 0, 0' + CRLF

cRC +='PRODUCTVERSION 1, 0, 0, 0' + CRLF

cRC +='FILEOS VOS__WINDOWS16' + CRLF

cRC +=' {' + CRLF

cRC +=' BLOCK "StringFileInfo"' + CRLF

cRC +=' {' + CRLF

cRC +=' BLOCK "040904E4"' + CRLF

cRC +=' {' + CRLF

cRC +=' VALUE "ProductVersion", "Criado por GEN"'+ CRLF

cRC +=' VALUE "FileVersion", " Criado em '+ ;

dtoc(date())+' as '+time()+'"' + CRLF

cRC +=' VALUE "FileDescription", "Criado por GEN"'+CRLF

cRC +=' }' + CRLF

cRC +='' + CRLF

cRC +=' }' + CRLF

cRC +='' + CRLF

cRC +='}' + CRLF

*/

// memowrit( ".\rc\" + alias() + ".ch", cCH )

memowrit( alias() + ".ch", cCH )

// cRCFile := ".\rc\" + alias() + ".rc"

cRCFile := alias() + ".rc"

CursorArrow()

IF !file( cRCFile )

CursorWait()

memowrit( cRCFile, cRC )

ELSEIF MsgYesno( "O Arquivo de Recursos ja existe - Sobrescrever?", "OOPS")

CursorWait()

memowrit( alias() + ".rc", cRC )

ELSE

MsgStop("Renomeie o arquivo existente " + cRCFile + " e tente novamente")

ENDIF

// CursorArrow()

// WinExec( "\workshop\workshop" + " " + cRCFile )

dbclosearea()

AnzFile()

RETURN( NIL )

static function properCase(cString)

return left(cString,1)+ lower(right(cString,len(cString)-1))

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

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

function AnzFile()

local cFileIn

local cFileOut

local nIHdl

local nOHdl

local nBlen := 256

local cBuff := space(256)

local cLine

local nRead

local nAt

local cFile := ""

local cFileCH := ""

local lNoDoc := .t.

local nFileSize := 0

// cFile := cGetFile("Resource | *.rc",OemToAnsi("Resource"))

cFile := cFilePath( cDbfName ) + cFileNoExt( cDbfName )

cFileCH := cFile + ".CH"

cFile := alltrim( cFile )

USE ( cFile ) NEW

cFileIn := cFile+".RC"

cFileOut := cFile+".PRG"

if (nIHdl := fopen(cFileIn)) > 0

fseek(nIHdl,0,0)

if (nOhdl := fcreate(cFileout)) > 0

fwrite(nOhdl,CRLF+'#include "fivewin.ch"'+CRLF)

fwrite(nOhdl, CarregaCh( cFileCH ) )

// fwrite(nOhdl, '#include "' + LOWER ( cFileCH ) + '.ch"'+CRLF+CRLF)

while (nRead := fread(nIhdl,@cBuff,nBlen)) > 0

if (nAt := at(chr(13),cBuff)) > 0

cLine := substr(cBuff,1,nAt - 1)

fseek(nIHdl,nAt - nRead+1,1)

else

cLine := cBuff

endif

nTotal += len(cLine)+2

AnzLine(cLine,nOHdl,lNoDoc)

cBuff := space(nBlen)

enddo

fwrite( nOHdl, DbfGen( Alias() ) )

endif

fclose(nOHdl)

close all

MsgInfo( "Arquivos: " + CRLF + ;

cFile + ".RC" + CRLF + ;

cFileCH + CRLF + ;

cFileOut + CRLF + CRLF + "Criados com sucesso!")

endif

fclose(nIHdl)

return 0

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

function AnzLine(cLine,nOhdl,lNoDoc)

static oFont

static cDlg := "" // Nome da Dialog

static cFont := "" // Fonte da Dialog

static nFont := 0 // Tamanho da Fonte

static cCaption := "" // Titulo da Dialog

static aValues := {} // Valor de cada linha

static lFunc := .f. // Function header written

local cMain := "" // Main code identifier

local cCode := "" // Local code

local nAt := 0

local cOut := "" // Output line

local cTmp

// LOCAL aFont := {-21,0,0,0,400,.f.,.f.,0,3,2,1,34,"Arial"}

cLine := ltrim(cLine)

if !lNoDoc

aadd( aLines,"// " + cLine + CRLF )

endif

if " DIALOG " $ cLine .and. empty(cDlg) // Get Dialog name

aValues := {}

cDlg := substr(cLine,1,at(" ",cLine) - 1)

cLine := ","+substr(cLine,at("DIALOG",cLine)+7)

cMain := "DIALOG"

endif

if 'CAPTION "' $ cLine .and. empty(cCaption)

cCaption := rtrim(substr(cLine,at("CAPTION",cLine)+8))

cMain := "CAPTION"

cLine := ""

endif

if 'FONT ' $ cLine .and. empty(cFont) .and. !empty(cDlg)

nFont := val(rtrim(substr(cLine,at('FONT',cLine)+5)))

cFont := alltrim(substr(cLine,at(',',cLine)+1))

cFont := substr(cFont,2,len(cFont) - 2)

cMain := "FONT"

cLine := ""

endif

while len(cLine) > 0

if empty(cMain)

if (nAt := at(" ",cLine)) > 0

cMain := substr(cLine,1,nAt - 1)

cLine := ","+substr(cLine,nAt+1)

else

cMain := cLine

cLine := ""

endif

if substr(cMain,1,1) == chr(9)

cMain := substr(cMain,2)

endif

else

if (nAt := at(",",cLine)) > 0

cCode := substr(cLine,1,nAt - 1)

cLine := substr(cLine,nAt+1)

else

cCode := cLine

cLine := ""

endif

aadd( aValues, cCode )

endif

end

// Analyze codes

do case

case empty(cDlg) // Do nothing while no Dialog found

case cMain == "DIALOG" .and. !empty(cDlg) .and. !lFunc

cTmp:= "//" + replicate("-",73) + "//" + CRLF +;

"// EdiÃ§Ã£o dos dados" + CRLF +;

"//" + replicate("-",73) + "//" + CRLF +;

"static function Editar( oManut )" + CRLF + CRLF

aadd( aLines, cTmp )

aadd( aVars, "oDlg, oDbf, bGrav, bCanc, oVar, lGravou:= .f., i" )

lFunc := .t.

case cMain == "CAPTION" .and. !empty(cDlg)

case cMain == "FONT" .and. !empty(cDlg)

/*

cOut := CRLF + " DEFINE FONT oFnt " + ' NAME "'+cFont+'"'+CRSM+;

TAB+" SIZE "+ ltrim(str(nFont)) + ", "+ltrim(str(nFont * 2)) + CRLF

aadd( aVars, "oFnt" )

*/

case (cMain == "BEGIN" .or. cMain == "{") .and. !empty(cDlg) // Start writing Dialog clause

cOut := " DEFINE DIALOG oDlg RESOURCE " + ;

'"' + cDlg + '"' + CRSM + ;

TAB + " TITLE if( lIncluir, " + '" Incluir", "Alterar"' + " ) " + ;

'"' + properCase( cCaption ) + '"' + CRLF

aValues := {}

case (cMain == "END" .or. cMain == "}") .and. !empty(cDlg)

aadd(aLines," ACTIVATE DIALOG oDlg CENTERED" + CRLF + CRLF )

aadd(aLines,"return Nil"+CRLF+CRLF + "//" + replicate("-",73) + "//" + CRLF)

// Write accumulated vars (e.g. EDITTEXT)

fwrite(nOhdl,aLines[1])

for nAt := 1 to len( aVars )

fwrite(nOhdl, " local " + strtran( aVars[nAt], '"', '' ) + CRLF )

CRLF +;

" //--- Verifica se o usuario tem permissÃ£o de acessar" + CRLF +;

" if !VerAcesso( " + '"' + cDlg + '"' + "), if( lIncluir, " + '"I", "A"' + " ) )" + CRLF +;

" return .f." + CRLF +;

" endif" + CRLF +;

CRLF +;

" //--- cria o objeto que contem o array de campos editÃ¡veis" + CRLF +;

" DEFINE STRUCT oVar" + CRLF +;

" FOR i=1 to Len( oManut:oDbf:aFldNames )" + CRLF +;

" STRUCT FIELD ( oManut:oDbf:aFldNames )" + CRLF +;

" NEXT i" + CRLF +;

" STRUCT FIELD nOldReg" + CRLF +;

" STRUCT FIELD nOldOrd" + CRLF +;

" END STRUCT" + CRLF +;

CRLF +;

" //--- salva o registro atual" + CRLF +;

" oVar:nOldReg:= ( oManut:oDbf:cAlias )->( OrdKeyNo() )" + CRLF +;

" oVar:nOldOrd:= ( oManut:oDbf:cAlias )->( Indexord() )" + CRLF +;

CRLF +;

" oDbf:= oClone( oManut:oDbf )" + CRLF +;

CRLF +;

" if lIncluir" + CRLF +;

" oManut:oDbf:Blank()" + CRLF +;

" else" + CRLF +;

" oManut:oDbf:Load()" + CRLF +;

" endif" + CRLF +;

CRLF +;

" //--- Janela de EdiÃ§Ã£o" + CRLF

fwrite(nOhdl, cTmp )

// escreve as linhas acumuladas

for nAt := 2 to len(aLines)

fwrite(nOhdl,aLines[nAt])

next

// Reset main Static values

aLines := {}

aVars := {}

// Reset local Static values to begin new Dialog

cDlg := ""

cFont := ""

nFont := 0

cCaption := ""

aValues := {}

lFunc := .f.

case cMain == "PUSHBUTTON"

cOut := " REDEFINE BUTTON ID " + aValues[2] +;

" OF oDlg " + CRSM + ;

TAB+" ACTION .t. " + CRLF

aValues := {}

case cMain == "LISTBOX"

cOut := " @ "+aValues[4]+","+aValues[3]+;

" LISTBOX oLbx"+ltrim(strtran( aValues[2], '"', "" ))+CRSM+;

TAB+" SIZE"+aValues[5]+", "+aValues[6]+CRSM+;

TAB+' OF o'+cDlg+CRSM+; // TAB+' FONT oFnt '+ CRSM + ;

TAB+" PIXEL"+CRLF

aadd( aVars, "oLbx" + ltrim(strtran( aValues[2], '"', "" ) ) )

aValues := {}

case cMain == "LTEXT" .or. cMain == "RTEXT"

if val( aValues[2] ) = 10

cOut := ' @ '+aValues[5]+', '+aValues[4]+' SAY '+;

aValues[2] + ' OF o'+cDlg+CRSM // +; TAB+' FONT oFnt'+CRSM

if cMain == "RTEXT"

cOut += TAB + " SIZE " + aValues[6] + ", " + aValues[7] + CRSM +;

TAB + " RIGHT" + CRSM

endif

cOut += TAB + " PIXEL" + CRLF

aValues := {}

endif

case cMain == "COMBOBOX"

cOut := ' @ '+aValues[5]+', '+aValues[4]+' COMBOBOX oCbx'+;

strtran( aValues[2], '"', "" )+CRSM+;

TAB+' SIZE '+aValues[6]+', '+aValues[7]+CRSM+;

TAB+' OF o'+cDlg+CRSM+; // TAB+' FONT oFnt'+CRSM+;

TAB+" PIXEL"+CRLF

aadd( aVars,"oCbx"+strtran( aValues[2], '"', "" ))

aValues := {}

case cMain == "CONTROL"

cOut := "// Control:"

aeval(aValues,{| a | cOut += " ["+a+"]"})

cOut += CRLF

do case

case alltrim(aValues[4]) == '"COMBOBOX"'

cOut := " @ "+aValues[7]+","+aValues[6]+;

" COMBOBOX oCbx"+ltrim(aValues[3])+CRSM+;

TAB+" SIZE"+aValues+", "+aValues[9]+CRSM+;

TAB+' OF o'+cDlg+CRSM+; // TAB+' FONT oFnt'+CRSM+;

TAB+" PIXEL"+CRLF

aadd(aVars,"oCbx"+ltrim(aValues[3]))

case alltrim(aValues[4]) == '"LISTBOX"'

cOut := " @ "+aValues[7]+","+aValues[6]+;

" LISTBOX oLbx"+ltrim(aValues[3])+CRSM+;

TAB+" SIZE"+aValues+", "+aValues[9]+CRSM+;

TAB+' OF o'+cDlg+CRSM+; // TAB+' FONT oFnt'+CRSM+;

TAB+" PIXEL"+CRLF

aadd(aVars,"oLbx"+ltrim(aValues[3]))

endcase

aValues := {}

case cMain == "EDITTEXT"

cOut := " REDEFINE GET oVar:" +;

strtran( aValues[2], '"', "" ) + ' VAR oDbf:' + strtran( aValues[2], '"', "" ) + CRSM + ;

TAB+' ID ' + Trim( strtran( aValues[9], '"', "" ) ) + ; // CRSM + ;

' OF oDlg UPDATE' + CRLF

// aadd(aVars,'o'+strtran( aValues[2], '"', "" ))

// aadd(aVars,'x'+strtran( aValues[2], '"', "" ))

// showvalues( aValues )

aValues := {}

case cMain == "ICON"

cOut := ' @'+xCo(aValues[5])+', '+xCo(aValues[4])+;

' ICON oIco'+substr(strtran( aValues[2], '"', "" ),2,len(strtran( aValues[2], '"', "" )) - 2)+CRSM+;

TAB+' RESOURCE '+strtran( aValues[2], '"', "" )+CRSM+;

TAB+' OF o'+cDlg+CRLF+CRLF+;

'oIco'+substr(strtran( aValues[2], '"', "" ),2,len(strtran( aValues[2], '"', "" )) - 2)+":nWidth := "+;

aValues[6]+CRLF+;

'oIco'+substr(strtran( aValues[2], '"', "" ),2,len(strtran( aValues[2], '"', "" )) - 2)+":nHeight := "+;

aValues[7]+CRLF+CRLF

aadd(aVars,'oIco'+substr(strtran( aValues[2], '"', "" ),2,len(strtran( aValues[2], '"', "" )) - 2))

aValues := {}

endcase

if !empty(cOut)

aadd(aLines,cOut+CRLF)

endif

return NIL

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

// Dialog-Coordinates

function xCo(c,x)

if x == NIL

endif

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

function yCo(c,x)

if x == NIL

endif

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

static function DbfGen( cAlias )

local cPrg := CRLF + "//-----------------------------------------" +;

"--------------------------------//" + CRLF +;

"function Cria" + properCase( Left( cAlias, 4 ) ) + "( cArquivo )" +;

CRLF + CRLF + ' DbCreate( cArquivo ,;' + CRLF

local aInfo := ( cAlias )->( DbStruct() )

local nLen := len( aInfo )

local n := 0

for n = 1 to nLen

cPrg += Space( 13 ) + If( n == 1, "{ ", " " ) + '{ "' + ;

PADR( aInfo[ n ][ 1 ] + '", ', 12 ) + ' "' + ;

PADR( aInfo[ n ][ 2 ] + '", ', 04 ) + ;

PADL( AllTrim( Str( aInfo[ n ][ 3 ] ) ), 2, "0" ) + ", " + ;

PADL( AllTrim( Str( aInfo[ n ][ 4 ] ) ), 2, "0" ) + " }" + ;

If( n < nLen, ",;", " } )" ) + CRLF

next

cPrg += CRLF + 'return Nil' + CRLF + ;

CRLF + "//-------------------------------------------" + ;

"--------------------------------//" + CRLF + CRLF

return( cPrg )

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

static function CarregaCh( cArq )

local cTxt:= " ", cLinha, cRet

if File( cArq )

cTxt := MemoRead( cArq ) // pega o texto do arquivo CH

endif

return cTxt

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

func showvalues( aValue )

local i

for i = 1 to len( avalue )

msginfo( i )

msginfo( avalue )

next i

return .t.

id=code>id=code>

// Fim do Programa

//-> Procure nas DICAS mais dicas... GEN ou GENERA, os dois sÃ£o Ã³timos. EU USO!!!!

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

kapiaba · January 18, 2007

http://www.fivewin.com.br/exibedicas.asp?id=231

http://www.fivewin.com.br/exibedicas.asp?id=554

http://www.fivewin.com.br/exibedicas.asp?id=212

Mato a cobra e mostro o PAU!!!

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Anderson.OL · January 18, 2007

citaÃ§Ã£o:
http://www.fivewin.com.br/exibedicas.asp?id=231

http://www.fivewin.com.br/exibedicas.asp?id=554

http://www.fivewin.com.br/exibedicas.asp?id=212

Mato a cobra e mostro o PAU!!!

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

id=quote>id=quote>

aew, baixei os exemplos e analisei com calma, atÃ© aproveita uma das dicas+dicas, mas, o q estava procurando mesmo Ã© algo que faÃ§a o inverso do brcc32.exe!!!

Valeu por matar a cobra!!!

----

Anderson.OL

msn + email: anderson.ol@gmail.com

Skype: andersonol

FWid=red>(2.6) | Clppid=red> (5.3)

Editado por - anderson.ol on 18/01/2007 15:30:48

kapiaba · January 18, 2007

aew, baixei os exemplos e analisei com calma, atÃ© aproveita uma das dicas+dicas, mas, o q estava procurando mesmo Ã© algo que faÃ§a o inverso do brcc32.exe!!!

C Ã‰ CHATO HEIM?! EXPLIQUE-SE DIREITO RAPAZ.

O KE KERES DIZER?? INVERSO DO BRCC32.EXE??? O KE Ã‰???

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Anderson.OL · January 18, 2007

citaÃ§Ã£o:
aew, baixei os exemplos e analisei com calma, atÃ© aproveita uma das dicas+dicas, mas, o q estava procurando mesmo Ã© algo que faÃ§a o inverso do brcc32.exe!!!

C Ã‰ CHATO HEIM?! EXPLIQUE-SE DIREITO RAPAZ.

O KE KERES DIZER?? INVERSO DO BRCC32.EXE??? O KE Ã‰???

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

id=quote>id=quote>

Ainda me chamando de chato?!?!

Pensei q haviamos passado desta fase apos o encontro!

citaÃ§Ã£o:/****************************************************************************
rcacfg.rc

produced by Borland Resource Workshop

*****************************************************************************/

#define DIALOG_1 1

#define IDC_GROUPBOX1 101

#define IDC_GROUPBOX2 102

#define IDC_CHECKBOX1 201

#define IDC_EDIT1 101

#define IDC_EDIT2 102

#define IDC_EDIT3 103

#define IDC_EDIT5 105

#define IDC_PUSHBUTTON2 301

#define IDC_EDIT4 104

id=quote>id=quote>

Entendeste agora?!?!

----

Anderson.OL

msn + email: anderson.ol@gmail.com

Skype: andersonol

FWid=red>(2.6) | Clppid=red> (5.3)

Editado por - anderson.ol on 18/01/2007 17:46:41

kapiaba · January 18, 2007

NAO!!! NAO ENTENDI P...(PIII) DO K...(PIII)-(PIII).

QUEM SALVA UM ARQUIVO.RES, Ã‰ O WORKSHOP.EXE. The best.

O BRC32.EXE OU O ILINK32.EXE. Ã‰ O RESPONSAVEL POR LINKAR O ARQUIVO.RC OU ARQUIVO.RES, AO EXECUTAVEL.

ONDE VOCE VIU ISSO??? PASSEI 'BATIDO' NESTA AULA!!

KRA CHATO... HAHAHAHAHAHAHA. ATÃ‰ O PROXIMO ENCONTRO! AbraÃ§os.

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Anderson.OL · January 18, 2007

citaÃ§Ã£o:
NAO!!! NAO ENTENDI P...(PIII) DO K...(PIII)-(PIII).

QUEM SALVA UM ARQUIVO.RES, Ã‰ O WORKSHOP.EXE. The best.

O BRC32.EXE OU O ILINK32.EXE. Ã‰ O RESPONSAVEL POR LINKAR O ARQUIVO.RC OU ARQUIVO.RES, AO EXECUTAVEL.

ONDE VOCE VIU ISSO??? PASSEI 'BATIDO' NESTA AULA!!

KRA CHATO... HAHAHAHAHAHAHA. ATÃ‰ O PROXIMO ENCONTRO! AbraÃ§os.

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

id=quote>id=quote>

Pow cara, num sou chato naum, sou legal

Qto ao workshop, ele usa o brcc32.exe compilar os projetos dele em arquivos .RES

O que quero saber agora, eh como ele faz para conseguir ler arquivos .RES, pois estes sao arquivos compilados!!!

----

Anderson.OL

msn + email: anderson.ol@gmail.com

Skype: andersonol

FWid=red>(2.6) | Clppid=red> (5.3)

kapiaba · January 18, 2007

MAS Ã‰ CHATO PRA KARAMBA...

AI, VOCE TEM QUE ENTRAR EM CONTATO COM A BORLAND, E PEDIR OS FONTES EM C DO WORKSHOP.EXE E DO ILINK32.EXE. hehehehehe

E ELE NAO LÃŠ, ELE INCORPORA AO EXECUTAVEL, KRISTO!! EU ACHO... SAY LÃ... ESTE HOMEM ME DEIXA LOOOOOUUUUCOOOO!!

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Anderson.OL · January 18, 2007

citaÃ§Ã£o:
MAS Ã‰ CHATO PRA KARAMBA...

AI, VOCE TEM QUE ENTRAR EM CONTATO COM A BORLAND, E PEDIR OS FONTES EM C DO WORKSHOP.EXE E DO ILINK32.EXE. hehehehehe

E ELE NAO LÃŠ, ELE INCORPORA AO EXECUTAVEL, KRISTO!! EU ACHO... SAY LÃ... ESTE HOMEM ME DEIXA LOOOOOUUUUCOOOO!!

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

id=quote>id=quote>

Sou chato naum, sou curioso, alem de legal

AUhUAhUAHuHAUhAUhA......

Qto ao LoUcO!!! Vc todo programador eh louco por natureza (ou por excesso de programaÃ§Ã£o, say lah)!!

Qto a minha duvida, agora vc entendeu, kero ver vc matar a cobra e chupar o pau agora!!!!!

AbraÃ§os!!!!

----

Anderson.OL

msn + email: anderson.ol@gmail.com

Skype: andersonol

FWid=red>(2.6) | Clppid=red> (5.3)

kapiaba · January 19, 2007

CARISSIMO, NAO CONFUNDA ASNICE, COM PROGRAMAÃ‡ÃƒO, O KE VOCE KER, Ã‰ INVIAVEL. ESKEÃ‡A! PODES CRIAR ARQUIVOS.RC Y TRANSFORMAR EM ARQUIVOS.RES, O INVERSO, SOMENTE O WORKSHOP.EXE THE BEST FAZ... E FAZ BONITO!!!

Ahhh Anderson... Gostei tanto dos teus 'brinquinhos', ke mandei colocar dois em cada ORELHA! hehehehehehehe.

I AM A BAD BOY!!! I LOVE FIVEWIN!!

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Anderson.OL · January 19, 2007

citaÃ§Ã£o:
Ahhh Anderson... Gostei tanto dos teus 'brinquinhos', ke mandei colocar dois em cada ORELHA! hehehehehehehe.

id=quote>id=quote>

pow, manda uma foto aew!!!

Juro q vou achar bonitinho!!!

----

Anderson.OL

msn + email: anderson.ol@gmail.com

Skype: andersonol

FWid=red>(2.6) | Clppid=red> (5.3)

kapiaba · January 19, 2007

citaÃ§Ã£o:

citaÃ§Ã£o:
Ahhh Anderson... Gostei tanto dos teus 'brinquinhos', ke mandei colocar dois em cada ORELHA! hehehehehehehe.

id=quote>id=quote>
pow, manda uma foto aew!!!

Juro q vou achar bonitinho!!!

----

Anderson.OL

msn + email: anderson.ol@gmail.com

Skype: andersonol

FWid=red>(2.6) | Clppid=red> (5.3)

id=quote>id=quote>

HUUUUUMMMMMM....

'ESSA KOKA Ã‰ FANTA...' SAY NÃƒO... EU HEIM?!

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Anderson.OL · January 19, 2007

citaÃ§Ã£o:

citaÃ§Ã£o:

citaÃ§Ã£o:
Ahhh Anderson... Gostei tanto dos teus 'brinquinhos', ke mandei colocar dois em cada ORELHA! hehehehehehehe.

id=quote>id=quote>
pow, manda uma foto aew!!!

Juro q vou achar bonitinho!!!

----

Anderson.OL

msn + email: anderson.ol@gmail.com

Skype: andersonol

FWid=red>(2.6) | Clppid=red> (5.3)

id=quote>id=quote>
HUUUUUMMMMMM....

'ESSA KOKA Ã‰ FANTA...' SAY NÃƒO... EU HEIM?!

ROGÃ‰Ã‰Ã‰Ã‰Ã‰Ã‰Ã‰Ã‰Ã‰Ã‰RIO.... Hoje Ã© Sexta-Feira!!! Meu taxi!!!

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

id=quote>id=quote>

----

Anderson.OL

msn + email: anderson.ol@gmail.com

Skype: andersonol

FWid=red>(2.6) | Clppid=red> (5.3)

(*.RES) to (*.RC)

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation

(.RES) to (.RC)