FiveDBU for 32/64 bits

[Antonio Linares]

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

http://code.google.com/p/fivewin-contri ... p&can=2&q=

[ukoenig]

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: Select all

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

[Otto]

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]

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]

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]

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]

Otto,

I am developing and testing FiveDBU on Windows 8 and works fine

[Otto]

Hello Antonio,

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

[Antonio Linares]

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

[Otto]

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]

Otto,

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

[Otto]

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]

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)

[Otto]

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]

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/micros ... 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 ?