AUTOCODE

[Otto]

Hello friends,

Inspired by a video -Designer Minigui ( https://www.youtube.com/watch?v=UcFw1bqsaV4 ) -, I restarted after a long time with my project: AUTOCODE.
You are right that you have to use wizards.
I will extend AUTOCODE and AUTOCODE4modHarbour.

Here is a link to AUTOCODE
https://www.youtube.com/watch?v=FKiJc6l3oW8




First I extend Autocode to use xBrowser- funciton:
//XBrowse( uData, cTitle, lAutoSort, bSetUp, aCols, bSelect, lExcel, lFastEdit, ;
// bValid, "SlNo", lNoModal, lAutoFit )




Best regards,
Otto

[Antonio Linares]

Dear Otto,

thank you for all your great contributions!

best regards

[Otto]

Dear Antonio,
thank you.
I am thinking if I should try to use a webview2 FROM or a FW DIALOG for the input dialog.
Maybe I can create a xbrowse-function equivalent for mod harbour.
This would be great if AUTOCODE code provide both source codes.

Best regards,
Otto

[Otto]

Hello friends,
maybe someone knows a more effective way to resolve the string info variables?
local cCode := 'XBrowse( uData , "This is my title, subtitle , test neu", .F. , bSetUp, aCols, bSelect, lExcel, lFastEdit,bValid, cSerial, lNoModal, lAutoFit )'
Best regards,
Otto

Code: Select all  Expand view

 #include "fivewin.ch"
//XBrowse( uData, cTitle, lAutoSort, bSetUp, aCols, bSelect, lExcel, lFastEdit, bValid, "SlNo", lNoModal, lAutoFit )

function main
    local uData, cTitle, lAutoSort, bSetUp, aCols, bSelect, lExcel, lFastEdit, bValid, cSlNo, lNoModal, lAutoFit
    //local cCode := "XBrowse( uData , cTitle, lAutoSort, bSetUp, aCols, bSelect, lExcel, lFastEdit,bValid, cSerial, lNoModal, lAutoFit )"
//  local cCode := 'XBrowse( uData , "This is my title, subtitle , test neu", lAutoSort, bSetUp, aCols, bSelect, lExcel, lFastEdit,bValid, cSerial, lNoModal, lAutoFit )'
    local cCode := 'XBrowse( uData , "This is my title, subtitle , test neu", .F. , bSetUp, aCols, bSelect, lExcel, lFastEdit,bValid, cSerial, lNoModal, lAutoFit )'
                   
    local cTmp := ""
    local nlencTmp := 0
    local cTmp2 := ""
    local cLog := ""
   
    cCode := ALLTRIM( cCode )
    cTmp := StrToken( cCode, 1, "," )
    nlencTmp := len( cTmp )
   
   cTmp2 := ALLTRIM( SUBSTR( cCode, ( nlencTmp + 2 ) ) )
   uData := SUBSTR( cTmp, 8 )
   uData := STRTRAN( uData, "(", "" )
   cLog := "uData: " + uData  + CRLF + "remaining: " + cTmp2
 
   if cTmp2 = '"' // to do .or. cTmp2 = "'"
    cTmp := ALLTRIM( StrToken( cTmp2, 1, '"' ) )
        cTitle := cTmp
        nlencTmp := len( cTmp )
    cTmp2 := ALLTRIM( SUBSTR( cTmp2, ( nlencTmp + 2 ) ) )
    cTmp2 := SUBSTR( cTmp2, 2 )
   else
    cTmp := StrToken( cTmp2, 1, "," )
    cTitle := cTmp
        nlencTmp := len( cTmp )
    cTmp2 := ALLTRIM( SUBSTR( cTmp2, ( nlencTmp + 2 ) ) )
   endif
   
   
    cTmp := StrToken( cTmp2, 1, "," )
    lAutoSort := cTmp
    nlencTmp := len( cTmp )
    cTmp2 := ALLTRIM( SUBSTR( cTmp2, ( nlencTmp + 2 ) ) )
   
   
   
   
   
   cLog :=  "uData: " + uData  + CRLF +;
                "cTitle: " + cTitle + CRLF +;  
                "lAutoSort: " + lAutoSort + CRLF +;  
                CRLF + "remaining: " + cTmp2
   
   MsgInfo( cLog )

return



 

[Jimmy]

hi Otto,

where do i find those Form-Designer

[Otto]

Hello Jimmy,
see the last post on:

https://www.facebook.com/groups/harbour.project/

Best regards,
Otto

[Jimmy]

hi Otto,

see the last post on:

https://www.facebook.com/groups/harbour.project/

thx for Advice

but i do not use Facebook so i can´t open Website without Facebook Account

did you have a direct Link

[Otto]

Jimmy, there is a youtube-link:
https://www.youtube.com/watch?v=UcFw1bqsaV4
Maybe there is a download link inside.
Best regards,
Otto