Found Feature :-)

[Joerg B.]

Hello Paul and all other of course, too

First of all I want to say that it's great that Firefly will be further developed.

I try FreeBasic with Firefly and now in the status bar I eventually found a mistake.

I have compiled a form with a status bar with three entries (text field, date and time).
With 32bit all three fields are displayed. With 64bit is the complete date field does not appear.
I do not know if the fault is to be found in Firefly or FreeBasic, or 80 cm in front of the monitor. 

I have attached a sample project with compiled exe..

[Paul Squires]

Thanks Joerg, I will check this tonight on my 64 bit computer. I only have access to a 32 bit machine today. Probably has something to do with me using Integers when I should have used Long's on 64 bit.

[Paul Squires]

The problem was indeed that I was using an Integer when I should have been using a Long.

The code that creates the panels expects an array of 32-bit values.

Code Select Expand


    Dim FLY_SbParts( 1 To 3 ) As Long 'Integer
    ' Calculate the StatusBar Panel Widths.
    FLY_SbParts( 1 ) = 0 + afxScaleY(100)
    FLY_SbParts( 2 ) = 100 + afxScaleY(100)
    FLY_SbParts( 3 ) = 200 + afxScaleY(100)
    SendMessage FLY_hStatusBar, SB_SETPARTS, 3, Cast(LPARAM, VarPtr( FLY_SbParts(1)))


I will upload the fixed FireFly exe shortly.

[Joerg B.]

Hello Paul

Thanks for the quick fix! The panels are visible in both versions now.