An enhanced RE.EXE version
http://www.mediafire.com/?sharekey=45bb ... eaa7bc68bc
See the advantages of storing it in the wiki for reviewing changes
http://wiki.fivetechsoft.com/doku.php?id=fivewin_resources_editor&rev=1252082366&do=diff
case cFirst == "CONTROL"
cResource += ParseControl( cLine )
nControls++
cResource += Beschriftung( cLine )
nControls++
function Beschriftung( cLine )
local nTop, nLeft, nWidth, nHeight, nId, nAt
local cClassName, cStyle, nStyle := nOr( WS_VISIBLE, WS_CHILD, WS_TABSTOP ), cCaption, cToken
local cId
cCaption = StrToken( cLine, 2, '"' )
cLine = StrToken( cLine, 1, '"' ) + '"-"' + StrToken( cLine, 3, '"' ) + '"' + ;
StrToken( cLine, 4, '"' ) + '"' + StrToken( cLine, 5, '"' )
nId = Val( StrToken( cLine, 1, "," ) )
nLeft = Val( StrToken( cLine, 5, "," ) )
nTop = Val( StrToken( cLine, 6, "," ) )
nWidth = Val( StrToken( cLine, 7, "," ) )
nHeight = Val( StrToken( cLine, 8, "," ) )
cClassName = StrToken( cLine, 4, '"' )
cStyle = StrToken( cLine, 4, "," )
cId := STRTRAN(StrToken( cLine, 3, '"' ),",")
cClassName = "edit"
nHeight := 2
nWidth := 20
nStyle:= 1342373888
return cCtrl2Chr( nTop, nLeft, nTop + nHeight, nLeft + nWidth, nId, nStyle,;
cClassName, + cId + "#")
oCtrl:bLDblClick = { || msginfo( AllTrim( Str( GetWindowLong( oCtrl:hWnd, GWL_ID ) ) ))}
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 36 guests