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..
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.
:)
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.
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.
Hello Paul
Thanks for the quick fix! The panels are visible in both versions now.