topic-24179

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: FiveDBU for 32/64 bits
Posted: Sat Jun 09, 2012 09:38 AM

Enhanced version (memo fields display when editing), edited dates:

http://code.google.com/p/fivewin-contributions/downloads/detail?name=fivedbu_20120609.zip&can=2&q=

regards, saludos

Antonio Linares
www.fivetechsoft.com

ukoenig

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

Re: FiveDBU for 32/64 bits
Posted: Sat Jun 09, 2012 03:16 PM

Added Brush and Skinbutton-support.
Started to change Buttonstyle from Button to ButtonBMP.
Added Button < File-selection >, to fill a Field with Fileinfo ( Path and Filename ) :
All brushes in Realtime-preview. Only changing Skins, will restart.
You can test it, maybe it is useful.

The new Functions You will find at the Prg-bottom.
The Start is marked with 3 Lines.
Some more changes are needed : have a look at the Prg-top and < Activate Dialog >

static oWndMain, oMruDBFs, aSearches := {}
static nSkinSet := 0, nBack1 := 1, nBack2 := 1, nGposW := 1, nGposD := 1
static nGDirectW := 1, nGDirectD := 1, cDefRdd := "DBFCDX"

function Main( cDbfName )
local oBar, oBmpTiled

SET DATE FORMAT TO "DD/MM/YYYY"
SET _3DLOOK ON
SetBalloon( .T. )
// not needed
// SetDlgGradient( { { 1, RGB( 199, 216, 237 ), RGB( 237, 242, 248 ) } } )

IF nSkinSet > 0
SET_SKIN( nSkinSet )
ENDIF

// Changed, to solve NUMERIC Error !!!
// Restart fom inside the Prog., uses a numeric-value, as well I don't want to load a DBF
// used RESTART.exe from Daniel to start with a new Button-skin
if ! Empty( cDbfName ) .and. TYPE( cDbfName ) <> "N"
Open( cDbfName )
endif

Dialog-changes :

DEFINE DIALOG oDlg TITLE Alias() + " fields" SIZE 400, 400 TRANSPARENT

// The Value 27 means : NO Brushes selected

ACTIVATE DIALOG oDlg CENTERED ;
ON INIT ( IIF( nBack2 < 27, SET_BRUSH(oDlg, nBack2, nGPosD, nGDirectD), NIL ), ;

Double-function for Gradients : can be used as Button-Skin and Background

Download :

http://www.pflegeplus.com/fw_downloads/dbubrush1.zip

Moved to Section < Preferences >

Some changes in :

For Fileselection, have a look at the PRG.

Changes in function < view >
The shortest File would be something like < D:\A.bmp > 8 Chars, all others are blocked.

Code (fw): Select all Collapse

function View( oBrw, oWnd )
local cAlias := Alias()
//local cFileName := oBrw:aRow[ 2 ]
//local cExt := Lower( cFileExt( cFileName ) )

IF ( Alias() )->( FIELDTYPE( oBrw:nArrayAt ) ) = "C" .and. ;
        LEN( ( cAlias )->( Fieldget( oBrw:nArrayAt ) ) ) > 7
    cFileName := ALLTRIM(oBrw:aRow[ 2 ])
    cExt := Lower( cFileExt( cFileName ) )
    IF !EMPTY( cExt )
        do case
            case cExt == "bmp"
                WinExec( "mspaint" + " " + cFileName )
            case cExt == "txt"
                WinExec( "notepad" + " " + cFileName )     
        otherwise
               ShellExecute( oWnd:hWnd, "Open", cFileName )
        endcase
    ENDIF
ELSE
    MsgAlert( "No valid File to load for Preview !", "File-Error")
ENDIF

return nil

Best Regards
Uwe

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.

Otto

Posts: 6984

Joined: Fri Oct 07, 2005 07:07 PM

Re: FiveDBU for 32/64 bits
Posted: Sat Jun 09, 2012 05:01 PM

Hello Antonio,

thank you for your work on fiveDBU.

I would suggest instead of the build in right click on header to open a new window where one can select all the columns one wants to show and where we can reorganize the order of the columns. I attach some screens.
Best regards,
Otto

Otto

Posts: 6984

Joined: Fri Oct 07, 2005 07:07 PM

Re: FiveDBU for 32/64 bits
Posted: Sat Jun 09, 2012 05:10 PM

Hello Antonio,
is there a special reason why you selected MDI design fort he new FiveDBU.
I will remember that I read that MDI is no longer part of WINDOWS 8.
So bringing the design to WINDOWS 8 is the more mature FIVEDBU becomes the more work it will be.
Best regards,
Otto

Otto

Posts: 6984

Joined: Fri Oct 07, 2005 07:07 PM

Re: FiveDBU for 32/64 bits
Posted: Sat Jun 09, 2012 05:16 PM

Hello Antonio,
one more question WINDOWS 8 metro style concerning.
If we plan to adapt FiveDBU to MetroStyle the conversation if resources are used is much more work confronted to coded dialogs or windows.
Best regards,
Otto

Otto

Posts: 6984

Joined: Fri Oct 07, 2005 07:07 PM

Re: FiveDBU for 32/64 bits
Posted: Sat Jun 09, 2012 05:28 PM

Hello Antonio,
if I use filter the system seems to hang and becomes extremly slow.
I tried with a small dbf and a simple filter (kdnr=123).
Best regards,
Otto

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: FiveDBU for 32/64 bits
Posted: Sat Jun 09, 2012 06:41 PM

Otto,

I am developing and testing FiveDBU on Windows 8 and works fine :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

Otto

Posts: 6984

Joined: Fri Oct 07, 2005 07:07 PM

Re: FiveDBU for 32/64 bits
Posted: Sat Jun 09, 2012 06:55 PM

Hello Antonio,

I know but it does not look like Windows 8 Metro style. :roll:
lg
Otto

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: FiveDBU for 32/64 bits
Posted: Sun Jun 10, 2012 11:21 AM

Dear Otto,

By now, what we are looking for is for a free and full source code provided functional DBU :-)

And we are almost there

regards, saludos

Antonio Linares
www.fivetechsoft.com

Otto

Posts: 6984

Joined: Fri Oct 07, 2005 07:07 PM

Re: FiveDBU for 32/64 bits
Posted: Sun Jun 10, 2012 11:30 AM

Hello Antonio,
I don’t understand the problem.
Why can’t we use hard coded dialogs instead of resources and no MDI windows.
You also did this in your touch.prg MetroStyle.
It would be a great opportunity to have a WDBU with a modern looking design.
Best regards,
Otto

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: FiveDBU for 32/64 bits
Posted: Sun Jun 10, 2012 12:04 PM

Otto,

If we want tiled child windows, how can we implement them using W8 look ? I guess we can't...

regards, saludos

Antonio Linares
www.fivetechsoft.com

Otto

Posts: 6984

Joined: Fri Oct 07, 2005 07:07 PM

Re: FiveDBU for 32/64 bits
Posted: Sun Jun 10, 2012 12:58 PM

Hello Antonio,
I think we should pass this task to the OS.
Best regards,
Otto

http://en.wikipedia.org/wiki/Multiple_d ... _interface

Please see:
Comparison with single document interface and Disadvantages

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: FiveDBU for 32/64 bits
Posted: Sun Jun 10, 2012 02:29 PM

Otto,

Thats what we do in FWH, we use Windows built in MDI

but Windows 8 does not provide it (unless you use tabs, etc)

regards, saludos

Antonio Linares
www.fivetechsoft.com

Otto

Posts: 6984

Joined: Fri Oct 07, 2005 07:07 PM

Re: FiveDBU for 32/64 bits
Posted: Sun Jun 10, 2012 02:49 PM

Hello Antonio,
please read the chapter "Disadvantages" of MDI.

>but Windows 8 dors not provide it (unless you use tbas, etc)

Therefore I think we should not use them anymore.

Best regards,
Otto

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: FiveDBU for 32/64 bits
Posted: Sun Jun 10, 2012 03:56 PM

Dear Otto,

I enjoy very much John Lenon's sentence: "Life is what happens to you while you're busy making other plans"

Why I say that ?

1. Windows provided MDI Windows for many years. Thats a fact. It happened and happens. We know MDI, we use it and surely we will keep using it.

2. Windows 8 is a "plan". It is not available yet, it has not been installed on millions of computers, and we don't know if it will be another "Vista".

http://www.marketwatch.com/story/microsoft-reinvents-the-wheel-with-windows-8-2012-06-01

as if to say that they were wrong the whole time, so let’s try something altogether new

Now Microsoft wants to take all the habits and workflows and new skill sets we’ve developed and toss them into the bin for this?

I have installed each Windows 8 preview available and I am writting this from Windows 8. It does not provide me any functionality that I may need that it is not already available in Windows 7. Then, why do I need it ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums