Minor observation. How about using GetSystemTimeAsFileTime()... ' ======================================================================================== ' Returns the current system time as a FILETIME structure. ' ====================================================================================...

Yep, I was using the older 1.05.0.
Code updated...

For the fun of it... #define JumpCompiler "<D:\Free\32\fbc.exe>" 'Compiler to use "< = left delimiter, >" = right delimiter #define JumpCompilerCmd "<-s console -w pedantic "D:\Free\bas\~~Default.rc">" 'Command line to send to compiler (gui or console) #Lang &...

(DWORD) .time is the number of milliseconds since the system was started.
A roll over will occur after 49.7 days.

Hi,

Depending on your IDE, be sure to have resource file
with a xml manifest file that ask for Microsoft.Windows.Common-Controls 6.0.
This is necessary for a split button.

Note that I updated the code to add ImageList_Destroy() in WM_DESTROY.

.rc resource and .xml manifest example

Here is one Nastasa... 'Be sure to have resource with a xml manifest 'that ask for Microsoft.Windows.Common-Controls 6.0. #Define JumpCompiler "<D:\Free\64\fbc.exe>" #Define JumpCompilerCmd "<-s gui -w pedantic "D:\Free\bas\~~Default.rc">" #Print Control resize #Print C...

To elaborate a little... You don't need anything in the resource file. You can load the questionmark icon dynamically by using hIco = LoadImage(NULL, MAKEINTRESOURCE(OIC_QUES), IMAGE_ICON, 0, 0, LR_SHARED) or the older hIco = LoadIcon(NULL, IDI_QUESTION) A MsgBox with the questionmark can be called ...

Great!
I'm glad to help a little. :-)

Hey, This could be one way, using WM_SETCURSOR... #Define JumpCompiler "<D:\Free\64\fbc.exe>" #Define JumpCompilerCmd "<-s gui -w pedantic "D:\Free\bas\~~Default.rc">" #define unicode #Include Once "windows.bi" #Include Once "win\shellapi.bi" #Define...

José, I did a quick test in PowerBASIC, So to be clear, in fb, rgb() is bgr() and bgr() is rgb(). Yep, having those letters reverse is really a counter intuitive surprise! The kind of thing you cannot forget once you know it... Colour = rgb(&h11,&h22,&h33) ColourRed = GetRValue(Colour) '...

Hola José, Despite the note about the macro, I based my conclusion on the result of the following code where rgb() and bgr() do not give the same colour order. MessageBox(HWND_DESKTOP, "rgb(&hAA, &hBB, &hCC) = 0x" & HEX(rgb(&hAA, &hBB, &hCC), 8) ...

Hi David,

Still off topic: Agreed, it might be my imagination
but I feel there is a lot of new peoples now posting
who probably didn't wanted to get involved with him.
Life is good! :-)

I see, The colors where fine on my side, this is a good thing that yours where not. I was literraly doing a GetSysColor(GetSysColor(Colour)), plus I had many more issues. I did updated the code. Finally, except for the rgba() vs rgb() correction and the "if wParam = NULL" in WM_MEASUREITEM...

Some quick observation... CreateSolidBrush() ask for RGB, so BGR is to be avoided or the colours won't match. FB's rgb() automatically set the alpha channel to &hFF for opaque. bgr() does not, leaving it to &H00. This is the reason why it worked. With CreateSolidBrush() the high-order byte m...

kcvinu & jj2007,

"Everything is in black backcolor"
Did you have black menus with the updated code I posted?