Weitere enthaltene Funktionen

Die Datei ControlBase.bi (wird immer geladen) enthält die Funktionen :

Function isFileExist(sFile As String) As BOOL

sFilegültiger Dateiname(ggf. mit Path )
Rückgabe True wenn die Datei existiert , sonst False
Bemerkung:FILEEXISTS aus file.bi hat im zusammenhang mit Messagebox einen Absturz verursacht.
Deshalb diese eigene Function

Function SaveDCToFile( sFile As String, ByRef dc As HDC, ByVal dcWidth As Integer, ByVal dcHeight As Integer ) As Integer

sFile gültiger Dateiname(ggf. mit Path )
dcHDC der gespeichert werden soll
dcWidth Weite des HDC
dcHeight Höhe des HDC
Rückgabe0 bei Fehler, sonst 1
Bemerkung: Der Dateityp wird aus der Dateierweiterung gelesen und kann BMP,JPG,PNG,GIF oder TIFF sein. (GDI+ wird verwendet)

Function ImgLoadFromFile(sFile As String,ByVal bkColor As UInteger, ByRef tDC As HDC,ByRef w As Integer,ByRef h As Integer) As Integer

sFile gültiger Dateiname(ggf. mit Path )
bkColorMuss ein RGBA-Wert sein oder 0 für Schwarz. Ist nur bei Bildern mit transparenten Bereichen
von Bedeutung. Diese werden mit bkColor gefüllt
tDCHDC der das Bild erhält
wEnthält die Weite des Bildes
hEnthält die Höhe des Bildes
Rückgabe0 bei Fehler, sonst 1
Bemerkung: Der Dateityp wird aus der Dateierweiterung gelesen und kann BMP,JPG,PNG,GIF oder TIFF sein. (GDI+ wird verwendet).
Die Argumente tDC, w und h müssen vorher dimensionierte Variable sein.
Beispiel:

Dim as HDC tDC
Dim as integer w,h

if ImgLoadFromFile("xyz.png",RGBA(255,255,255,255), tDC, w , h )  = 0 then
    ' Fehler '
endif
' tDC enthält jetzt das Bild
' w , h enthalten jetzt die Weite und Höhe des Bildes
' Bild kann jetzt beliebig oft verwendet werden
' bis :
DeleteDC(tDC)  ' nicht vergessen !'
    

Function ImgLoadFromRes(sResName As String,ByVal bkColor As UInteger, ByRef tDC As HDC,ByRef w As Integer,ByRef h As Integer) As Integer

Argumente und Bedingungen sind die gleichen wie bei ImgLoadFromFile.
Die Resource-Datei muss folgende Bedingungen erfüllen:
- Resource wird nur am Namen erkannt ( keine ID )
- Resource muss mit RCDATA gespeichert sein
Beispiel Inhalt Resourcedatei:
bild1 RCDATA info1.jpg

Function DrawImageFromFile(sFile As String,ByVal zielDC As HDC,ByVal x As Integer,ByVal y As Integer,ByVal w As Integer,ByVal h As Integer) As Integer

sFile gültiger Dateiname(ggf. mit Path )
zielDCHDC in dem das Bild gezeichnet wird
xLinke Position im HDC wo das Bild beginnt
yObere Position im HDC wo das Bild beginnt
wWeite das Bild gezeichnet werden soll. Wenn hier 0 ist, wird die Orginal-Weite des Bildes benutzt
hHöhe das Bild gezeichnet werden soll. Wenn hier 0 ist, wird die Orginal-Höhe des Bildes benutzt
Rückgabe0 bei Fehler, sonst 1
Bemerkung: Der Dateityp kann BMP,JPG,PNG,GIF oder TIFF sein. (GDI+ wird verwendet). Transparente Bereiche werden auch transparen gezeichnet
Beispiel:
Dim As HDC hdcForm
hdcForm = GetDC(form1.Handle)
DrawImageFromFile("sekt.png",hdcForm,40,30 ,0, 0 )
ReleaseDC(form1.Handle,hDCForm)
(das könnte auch in einer onPaint Event-Sub stehen)

Function DrawImageFromRes(sResName As String,ByVal zielDC As HDC,ByVal x As Integer,ByVal y As Integer,ByVal w As Integer,ByVal h As Integer) As Integer

Argumente und Bedingungen sind die gleichen wie bei DrawImageFromFile.
Die Resource-Datei muss folgende Bedingungen erfüllen:
- Resource wird nur am Namen erkannt ( keine ID )
- Resource muss mit RCDATA gespeichert sein
Beispiel Inhalt Resourcedatei:
bild1 RCDATA info1.jpg

Die Datei FBComdlg.bi (muß geladen sein ) enthäl die Funktion :

Function getColor(BYVAL hWnd AS HWND) AS UInteger
Bei Aufruf wird ein Farbauswahl Dialog angezeigt.

Rückgabe:
-1 wenn Abbruch geklickt wurde sonst der ausgewählte FarbWert (RGB)