Search found 89 matches

by I3I2UI/I0
Sep 06, 2011 7:06
Forum: Libraries
Topic: FBGUI library for Windows 2
Replies: 800
Views: 161004

Hi VANYA, small correction for DubleSetGadgetColor.bas ..... Function DSGC(ByVal gadget As HWND,ByVal COLBND...... ..... Case "msctls_statusbar32" SendMessage(gadget,SB_SETBKCOLOR,0,COLBND) '<-SB_SETBKCOLOR .... Otherwise the program crashes when using SetGadgetColor of StatusB...
by I3I2UI/I0
Sep 03, 2011 17:25
Forum: Windows
Topic: not free resource ( GDI+ )
Replies: 3
Views: 874

by I3I2UI/I0
Sep 03, 2011 9:07
Forum: Libraries
Topic: FBGUI library for Windows 2
Replies: 800
Views: 161004

Hi Peter,

EditorGadget(100,10,150,250,200, "")

g_hwndODS=ImageGadget(100,10,10,319,191)
by I3I2UI/I0
Aug 30, 2011 7:51
Forum: Libraries
Topic: FBGUI library for Windows 2
Replies: 800
Views: 161004

Hi Joshy, yes, I'm back. I escaped from hospital :) I comment out the line '# define WIN_INCLUDEALL' it works, thank you VANYA VANYA, two optimizations: At the ProgressBarGadget 'smooth and vertical' is not possible. I added the parameter 'Style'. 'ProgressBarGadget(gadget, x, y, Breite, Hoehe, ...
by I3I2UI/I0
Aug 27, 2011 9:02
Forum: Libraries
Topic: FBGUI library for Windows 2
Replies: 800
Views: 161004

window9_clean.zip First 'FreeGadget.bas' missing the first attempt: C:\FreeBASIC\inc\win\mshtml.bi(342) error 14: Expected identifier in 'duplicate as function(byval as IHTMLTxtRange ptr, byval as IHTMLTxtRange ptr ptr) as HRESULT' 2D_Draw.bas(86) warning 4(1): Suspicious pointer assignment Build e...
by I3I2UI/I0
Aug 15, 2011 8:11
Forum: Libraries
Topic: FBGUI library for Windows 2
Replies: 800
Views: 161004

Hi VANYA, unfortunately missing in the event.bi '#Define EventPaint &h402'. see: #Include "window9.bi" Var hwnd=OpenWindow("Nr. 5",100,100,300,300) CenterWindow(hwnd) Do Var event=WindowEvent() If event=EventClose Then End If event=EventPaint Then Wind...
by I3I2UI/I0
Nov 09, 2010 15:57
Forum: Windows
Topic: help using gdi+
Replies: 7
Views: 2166

it is possible with function GdipCreateBitmapFromHBITMAP #Include "windows.bi" #Include "win/gdiplus.bi" Using gdiplus Screen 18, 32 Dim As GdiplusStartupInput gdipsi gdipsi.GdiplusVersion = 1 Dim As ULONG_PTR gdipToken Print GdiplusStartup( @gdipToken, @gdipsi, NULL ) Di...
by I3I2UI/I0
Nov 05, 2010 19:21
Forum: Windows
Topic: Enumaration of Windows audio mixers.
Replies: 8
Views: 1047

WinME 1 x intern soundcard 1 x extern USB soundcard Mixer(0).Product USB-Audiogerät version 5.0 Mixer(0).nLines 2 Mixer(0).Lines(0).Name USB-Audiogerät Mixer(0).Lines(0).Component speakers out Mixer(0).Lines(0).nControls 2 Mixer(0&#...
by I3I2UI/I0
Nov 04, 2010 19:04
Forum: Beginners
Topic: How to make blinking color?
Replies: 4
Views: 856

Or

Code: Select all

While InKey = ""
  If (Screen(10, 25, 1) And 15) = 2 Then
    Color 1, 3
  Else
    Color 2, 4
  EndIf
  Locate 10, 25, 0
  Print "Blinking background & foreground!"
  Sleep 300,1
Wend
:-))
by I3I2UI/I0
Nov 02, 2010 22:43
Forum: Hardware Interfaces / Communication
Topic: USB
Replies: 3
Views: 2667

by I3I2UI/I0
Nov 02, 2010 20:12
Forum: General
Topic: A signum problem with UByte, division \ and /
Replies: 12
Views: 1490

"Print" will convert all parameters to a double: Never! see: Dim As UByte a=30 Print a * -3 'mov byte ptr [a], 30 'movzx eax, byte ptr [a] 'mov edx, -3 'mul edx 'push 1 'push eax 'push 0 'call _fb_PrintUInt@12 Dim As UInteger x0=1995844333, x1=3588392237 Print x0 * x1 'mov dword ptr [x0], 199584433...
by I3I2UI/I0
Nov 02, 2010 19:40
Forum: General
Topic: A signum problem with UByte, division \ and /
Replies: 12
Views: 1490

Very nice.

But simple calculations should also be correct.

Code: Select all

Dim As UByte a=30
Print a * -3

Dim As UInteger x0=1995844333, x1=3588392237
Print x0 * x1

sleep
by I3I2UI/I0
Nov 02, 2010 16:02
Forum: General
Topic: Windows Title Bar
Replies: 3
Views: 805

try 'FB_Splash.bas ------- by Volta Dim As Integer breit, hoch, ff Dim As String dateiname = "StarMap.bmp" ff = Freefile Open dateiname For Binary As #ff Get #ff, 19, breit Get #ff, 23, hoch Close #ff Screenres breit, hoch, 32,,8 Bload dateiname, 0 Sleep 5000, 1 Cls Screen 20, 32 Print &qu...
by I3I2UI/I0
Nov 02, 2010 15:11
Forum: General
Topic: A signum problem with UByte, division \ and /
Replies: 12
Views: 1490

The next problem, Dim As ULongInt m Dim As UInteger x0=1995844333, x1=3588392237 Print x0, x1 Print m = x1 * x0 Print m,"Error" 'mov eax, dword ptr [x0] 'mul dword ptr [x1] 'mov ecx, eax 'mov ebx, 0 '<------------- edx ? 'mov dword ptr [m], ecx 'mov dword ptr [m+4], ebx Print Asm xor edx, ...
by I3I2UI/I0
Sep 17, 2010 11:32
Forum: Tips and Tricks
Topic: I will guess your number
Replies: 8
Views: 1531

Print " Think of a Number between 1 and 127" Print "press RETURN when you have picked a number" Print "and I will present you with 7 screens of numbers" Print "on each screen of numbers, see if your number is there" Print "and answer y or n to the questi...

Go to advanced search