Code: Alles auswählen
Global Dim PAL.l(255)
Procedure LoadBMPPal()
#Pal=0
If OpenFile(#Pal,"FFTecPAL.BMP")
FileSeek(#Pal,54)
For i=0 To 255
R=ReadByte(#Pal)
If R<0 : R=256+R : EndIf
Debug R
G=ReadByte(#Pal)
If G<0 : G=256+G : EndIf
Debug G
B=ReadByte(#Pal)
If B<0 : B=256+B : EndIf
Debug B
A=ReadByte(#Pal)
Debug "-"
PAL(i)=RGB(B,G,R)
Next
CloseFile(#Pal)
EndIf
EndProcedure Variante 2
Code: Alles auswählen
Global Dim PAL.l(255)
Procedure LoadBMPPal()
#Pal=0
If OpenFile(#Pal,"FFTecPAL.BMP")
FileSeek(#Pal,54)
*Palette = AllocateMemory(1024)
Bis=ReadData(#Pal,*Palette,1024)
For i=0 To Bis / 4 -1
R=PeekB(*Palette+i*4+0)
If R<0 : R=256+R : EndIf
G=PeekB(*Palette+i*4+1)
If G<0 : G=256+G : EndIf
B=PeekB(*Palette+i*4+2)
If B<0 : B=256+B : EndIf
A=PeekB(*Palette+i*4+3)
PAL(i)=RGB(B,G,R)
Next
FreeMemory(*Palette)
CloseFile(#Pal)
EndIf
EndProcedureHoffe, es nutzt wem.
@Kaeru, die Sache mit dem Kopieren und dem Einfügen ist etwas schlecht, wenn es viele Formatierungen im Text gibt, auch für Zmieliez.
:: Noch was, ich glaub auch, die Suche ist noch nicht ausgereift.
Wenn man nicht innerhalb eines Beitrags, aber zum selben Thema zwei Worte sucht, findet die SUCHE das nicht.
Beipiel: Rübenk... (von Seite eins) und nach dem Suchbegriff auf dieser Seite:
Suchbegriff: Blumenkohl
>> Das Thema wird nicht gefunden.
Wenn man beide Suchbegriffe in einem Thema vorkommen sollen.
Sie würden höchstens gefunden, wenn sie beide in einem Beitrag vorkommen.
Gruß, Folker
>> hab gerade gesehen, dass es fast zwei Jahre her sein muss als die Sache mal von Interesse war ... bin hoffentlich mit der Antwort nicht zu spät
...
