AUTOCODE - new download ready

[Otto]

To all,
Do you think AutoCode can be of any help?
What is missing for you?
Best regards,
Otto

http://www.atzwanger-software.com/fw/ACD5DEMO.Zip

[Rick Lipkin]

Otto

Thank you for your contribution .. it seems that when you start the .exe the file dwmaip.dll is missing.

Rick Lipkin

[Otto]

Hello Rick,
can you please download the file again. Thank you.
Best regards,
Otto

[frose]

Otto,

Autocode is very useful for me, I'll integrate it in my workflow from now on.

Even though it's working without crash, this error comes up: c:\fwh\include\Objects.ch(5) Error F0029 Can't open #include file 'hbclass.ch'

And I have two wishes:
- Can you save the position and the dimensions of the dialogs and also the state of the browse, e.g. in an ini file, so you can restore it for the next start
- I also use the class syntax, perhaps it is possible to add it, doing something like this:

Input:

Code: Select all  Expand view

oCbx := TComboBox():New(  p1,  p2,  { | u | If( PCount() == 0, p8, p8 := u ) },  p7,  ,  ,  oDlg,  ,  ,  ,  0,  16777215,  .T.,  oFont_default,  ,  .F.,  ,  .F.,  ,  ,  ,  ,  )

Output:

Code: Select all  Expand view

  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
 

[frose]

Otto,

... and the Copy-Button doesn't function, always saying 'Not valid code', it's the missing hbclass.ch!?

[Euclides]

Hi Otto
Your EXE still asks for dwmaip.dll (
Regards
Euclides

[Otto]

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

[frose]

Otto,

it's working now!

THX

[Otto]

Hello Frank,

please let me know which classes we should work on next.
Best regards,
Otto

[frose]

Hi Otto,

especially I'm using the 'normal' dialog elements, as:

Code: Select all  Expand view

  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. ;                                        //
                        )
 

[frose]

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?

[j.fmagalhaes]

Otto
The DWMAPI.DLL?

[Otto]

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

[juan carlos bellucci]

Hola Otto buen dia... donde se puede conseguir el autocode sin que sea una version demo.
desde ya muchas gracias

[Otto]

Hello Juan,

at the Moment we publish only a Version which is valid always 1 or 2.
We are changeing much and therefore we need the feedback.
Please let me know what you think about AutoCode and what is missing.
The link is always the same:

http://www.atzwanger-software.com/fw/ACD5DEMO.Zip

Best regards,
Otto