Xbrowse generating dialogs !

[Marc Venken]

I would like to use Xbrowse with dbf (not array) to generate simple dialogs. I used Workshop, Pelles, ... but always there is something.... not ok.

Xbrowse is FW, so always compatible

It is not the intension to create or ask a full option designer, but just a starting sample that can be enhanced when wanted.
It is also not used for other people then myself, so errorchecking enz... is not needed. I will enter the correct data

Here is a example of simple dialog used on a previous post by Otto

For starter, the Get, Say, combo, radio and button would be great.

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()
    local oDlg, oIco, cTest := "Hello world!   "
    local oBrush  
   
    DEFINE BRUSH oBrush FILENAME "../bitmaps/Backgrnd/linie.bmp"
   
    DEFINE ICON oIco FILE "..\icons\fivewin.ico"
   
    DEFINE DIALOG oDlg ;
    TITLE "I am a DialogBox" ;
    SIZE 500, 500 ;
    ICON oIco
    @ 10,10 ;
    SAY oSay ;
    PROMPT "Five Win" ;
    PIXEL ;
    SIZE 50, 16
   
    oSay:SetBrush( oBrush )
   
    @ 2, 3 GET cTest
   
    @ 4, 5 BUTTON "&Ok" SIZE 40, 12 ;
    ACTION MsgInfo( "Any action here!" ) DEFAULT
   
    @ 4, 16 BUTTON "&Cancel" SIZE 40, 12 ACTION oDlg:End()
   
    ACTIVATE DIALOG oDlg ;
    CENTERED  
   
return nil
 
 

[Otto]

Hello Mark,

have you seen my posts

viewtopic.php?f=3&t=40952&p=245353&hilit=localhost&sid=b2ee5ec19cf8337796ff13d7acb77d11#p245353

viewtopic.php?f=3&t=40968&p=245447&hilit=sorting&sid=b2ee5ec19cf8337796ff13d7acb77d11#p245447

Best regards,
Otto

[Marc Venken]

Otto,

Yes I did !

But i'm not changing or looking into something else then plain FW. I have no need for a any new ways of using my personel programs, since there is no business in software at my point.
But it looks promissing for those who need it ))

Thanks

[Otto]

Hello Mark,

I understand you.
But I think you should check it out.
For example, if you just want to do DIALOGs, it's as easy as with the Resource Workshop.
Here is the call that you incorporate into your FIVEWIN program.

Code: Select all  Expand view  RUN

function runIndxprg(nkdnr)
    local cText := ""
   
    cText += "cd\" + CRLF
    cText += "cd C:\Windows\System32" + CRLF
    cText += "REM window-position=y col,x row" + CRLF  
    cText += "start chrome --new-window --app=http://localhost/formular/index.prg?recnr=" + ALLTRIM(STR( nkdnr )) + " --window-position=600,300  --window-size=950,630" + CRLF
    memowrit("c:\xwinhotel\formular.bat", cText )
        waitrun( "c:\xwinhotel\formular.bat", 0 )

return nil

With the xWHTools you can automatically generate the web form and the program which saves the data.

As I know, you have installed APACHE. If you want, I can show you how to quickly create DIALOOGs and the program to save the data.

Best regards,
Otto