Otto
Thank you for your contribution .. it seems that when you start the .exe the file dwmaip.dll is missing.
Rick Lipkin
Hello Rick,
can you please download the file again. Thank you.
Best regards,
Otto
oCbx := TComboBox():New( p1, p2, { | u | If( PCount() == 0, p8, p8 := u ) }, p7, , , oDlg, , , , 0, 16777215, .T., oFont_default, , .F., , .F., , , , , ) oCbx := TComboBox():New( ;
p1, ; // nRow
p2, ; // nCol
{ | u | If( PCount() == 0, p8, p8 := u ) }, ; // bSetGet
p7, ; // aItems
, ; // nWidth
, ; // nHeight
oDlg, ; // oWnd
, ; // nHelpId
, ; // bChange
, ; // bValid
CLR_BLACK, ; // nClrText
CLR_WHITE, ; // nClrBack
.T., ; // lPixel
oFont_default, ; // oFont
, ; // cMsg
.F., ; // LUpdate
, ; // bWhen
.F., ; // lDesign
, ; // acBitmaps
, ; // bDrawItem
, ; // nStyle
, ; // cPict
) // bEChangeOtto,
... and the Copy-Button doesn't function, always saying 'Not valid code', it's the missing hbclass.ch!?
Hi Otto
Your EXE still asks for dwmaip.dll 
(
Regards
Euclides
Euclides, Frank and Rick,
can you please download the file again. Thank you.
We have not implemented direct (class) function calls yet. This will take some time.
Fixed having problem with "not finding include" files.
Best regards,
Otto
Otto,
it's working now!
THX
Hello Frank,
please let me know which classes we should work on next.
Best regards,
Otto
oBtn := TBtnBmp():New( ;
p1, ; // nTop
p2, ; // nLeft
, ; // nWidth
, ; // nHeight
, ; // cResName1
, ; // cResName2
cPathFilename, ; // cBmpFile1
, ; // cBmpFile2
p5, ; // bAction
oDlg, ; // oWnd
, ; // cMsg
, ; // bWhen
.F., ; // lAdjust
.F., ; // lUpdate
p3, ; // cPrompt - Entweder Bild ODER Text, nicht Beides!
, ; // oFont
, ; // cResName3
, ; // cBmpFile3
! .F., ; // lBorder
, ; // cLayout
.F., ; // l2007
, ; // cResName4
, ; // cBmpFile4
.F., ; // lTransparent
HB_OemToAnsi( p12 ), ; // cToolTip
! .F. ) // lRound
oChk := TCheckBox():New( ;
p1, ; // p1 - nRow,
p2, ; // p2 - nCol,
p3, ; // p3 - cCaption,
{ | u | If( PCount() == 0, p4, p4 := u ) }, ; // p4 - bSetGet,
oDlg, ; // oWnd,
, ; // nWidth,
, ; // nHeight,
, ; // nHelpTopic,
bCodeblock, ; // p6 - bChange,
oFont_default, ; // oFont,
, ; // bValid,
CLR_BLACK, ; // nClrFore,
CLR_WHITE, ; // nClrBack,
.F., ; // lDesign,
.T., ; // lPixel,
, ; // cMsg,
.F., ; // lUpdate,
) // bWhen, z. B. { || MsgBeep() }
oCbx := TComboBox():New( ;
p1, ; // nRow
p2, ; // nCol
{ | u | If( PCount() == 0, p8, p8 := u ) }, ; // bSetGet
p7, ; // aItems
, ; // nWidth
, ; // nHeight
oDlg, ; // oWnd
, ; // nHelpId
, ; // bChange
, ; // bValid
CLR_BLACK, ; // nClrText
CLR_WHITE, ; // nClrBack
.T., ; // lPixel
oFont_default, ; // oFont
, ; // cMsg
.F., ; // LUpdate
, ; // bWhen
.F., ; // lDesign
, ; // acBitmaps
, ; // bDrawItem
, ; // nStyle
, ; // cPict
) // bEChange
oGet := TGet():New( p1 * 1.00, ; // nRow
p2, ; // nCol
p5, ; // bSetGet
oDlg, ; // oWnd
nWidth, ; // nWidth
nHeight, ; // nHeight
p6, ; // cPict
, ; // p11 - bValid
aColor[ 1 ], ; // nClrFore
aColor[ 2 ], ; // nClrBack
oFont, ; // oFont
.F., ; // lDesign
, ; // oCursor
.T., ; // lPixel
, ; // cMsg
.F., ; // lUpdate
, ; // bWhen
lCenter, ; // lCenter
lRight, ; // lRight
{ || Browse_Dialog_ubChange( cVarname ) }, ; // bChange,
!p7, ; // lReadOnly
.F., ; // lPassword
.F., ; // lNoBorder
, ; // nHelpId
.F., ; // lSpinner
, ; // bUp
, ; // bDown
, ; // bMin
, ; // bMax
, ; // bAction
, ; // cBmpName
, ; // cVarName
) // cCueText
oLbx := TListBox():New( ;
p1, ; // nRow,
p2, ; // nCol,
{ | u | If( PCount() == 0, p7, p7 := u ) }, ; // bSetGet,
p8, ; // aItems,
, ; // nWidth,
, ; // nHeight,
bCodeblock, ; // p11 - bChange,
, ; // oWnd,
, ; // bValid,
CLR_BLACK, ; // nClrFore,
CLR_WHITE, ; // nClrBack,
.T., ; // lPixel,
.F., ; // lDesign,
, ; // bLDblClicked,
oFont_default, ; // oFont,
, ; // cMsg,
.F., ; // lUpdate,
, ; // bWhen,
, ; // aBitmaps,
, ; // bDrawItem,
.F., ; // lMulti,
.F. ; // lSort
)
oRadioMenue := TRadMenu():New( ;
p1, ; // nRow
p2, ; // nCol
p8, ; // acItems
{ | u | IIf( PCount() == 0, p9, p9 := u ) }, ; // bSetGet
oDlg, ; // oWnd
, ; // aHelpIds
bCodeblock, ; // p13 - bChange
CLR_BLACK, ; // nClrText
CLR_WHITE, ; // nClrPane
, ; // cMsg
.F., ; // lUpdate
, ; // bWhen
, ; // nWidth
, ; // nHeight
, ; // bValid
.F., ; // lDesign
.F., ; // l3D
.T. ; // lPixel )
)
oText := TSay():New( ;
p1, ; // <nRow>, ;
p2, ; // <nCol>, ;
{|| cLabel}, ; // <{cText}>, ;
oDlg,; // [<oWnd>], ;
, ; // [<cPict>], ;
oFont, ; // <oFont>, ;
lCenter, ; // <.lCenter.>, ;
lRight, ; // <.lRight.>, ;
.F., ; // <.lBorder.>, ;
.T., ; // <.lPixel.>, ;
aColor[ 1 ], ; // <nClrText>, ;
aColor[ 2 ], ; // <nClrBack>, ;
nWidth, ; // <nWidth>, ;
nHeight, ; // <nHeight>, ;
.F., ; // <.design.>, ;
.F., ; // <.update.>, ;
.F., ; // <.lShaded.>, ;
.F., ; // <.lBox.>, ;
.F., ; // <.lRaised.>, ;
.F., ; // <.adj.> ;
.F. ; //
)Otto,
wouldn't it be great to implement an interface, e.g. a xml or ini file, to import additional user functions, classes and/or methods to Autocode?
Otto
The DWMAPI.DLL?
j.fmagalhaes,
can you please download the file again. Thank you.
Fixed:
- does not ask for dwmapi.dll
- does not have problems with include files
Frank,
your proposals / suggestions will be supported very soon.
Best regards,
Otto
Hola Otto buen dia... donde se puede conseguir el autocode sin que sea una version demo.
desde ya muchas gracias