topic-41085

Board index FiveWin for Harbour/xHarbour Xbrowse generating dialogs !

Posts: 1487

Joined: Tue Jun 14, 2016 07:51 AM

Xbrowse generating dialogs !
Posted: Thu Nov 18, 2021 11:54 AM

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 (fw): Select all Collapse

#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

Marc Venken

Using: FWH 23.08 with Harbour

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: Xbrowse generating dialogs !
Posted: Thu Nov 18, 2021 03:05 PM

Hello Mark,

have you seen my posts

viewtopic.php?f=3t=40952p=245353hilit=localhostsid=b2ee5ec19cf8337796ff13d7acb77d11#p245353

viewtopic.php?f=3t=40968p=245447hilit=sortingsid=b2ee5ec19cf8337796ff13d7acb77d11#p245447

Best regards,
Otto

&&&&&&&&

Marc Venken

Posts: 1487

Joined: Tue Jun 14, 2016 07:51 AM

Re: Xbrowse generating dialogs !
Posted: Thu Nov 18, 2021 03:12 PM

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

Marc Venken

Using: FWH 23.08 with Harbour

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: Xbrowse generating dialogs !
Posted: Thu Nov 18, 2021 06:53 PM

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 (fw): Select all Collapse

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

FiveTech Support Forums

Continue the discussion