| |
|
|
H.Brill | ¡Hola, Posesiones veces una Cuestión a Bildern o. Icons. Como lo Icons como Sand al Meer son, Yo me de tiempo una Programa geschrieben, el una Ordner con Icons einliest y esta entonces como Bilderliste (Toolbar) en un .bmp speichert. Ziel debería ser, Yo me el Arbeit con un Malprogramm spare.
Herausgekommen es el hier :
Declarar Handle btn1, btn2, lb
Declarar Largo ende, String datei, ordner
ende = 0
datei = $PROGDIR + "\Images.bmp"
Ventana 600, 400
btn1 = Crear("Button", %HWnd, "Ordner", 10, 10, 60, 25)
btn2 = Crear("Button", %HWnd, "Ende", 80, 10, 60, 25)
lb = Crear("Listbox", %HWnd, 0, 10, 50, 450, 200)
Sinestar encargado ende
WaitInput
If Clicked(btn1)
ordner = ChooseDir$(%HWnd, "Ordner wählen", "C:\", 3, "")
If ordner <> ""
CHDIR ordner
ClearList
AddFiles "*.ico"
If %GetCount > 0
ClearList lb
Move("ListToHandle", lb, ordner)
InsertImages(lb)
EndIf
Más
MessageBox("Kein Ordner ausgewählt !", "Fehler !", 0)
EndIf
ElseIf Clicked(btn2)
ende = 1
EndIf
Case %Key = 2 : ende = 1
EndWhile
Proc InsertImages
Parámetros Handle liste, String pfad
Declarar Largo x, y, g
x = 1
y = 1
g = GetCount(liste) * 32
Mcls g, 32
StartPaint -1
WhileLoop 0, GetCount(liste) - 1
DrawPic pfad + GetString$(liste, &LOOP), x, y; 0
Inc x, 32
EndWhile
EndPaint
StartPaint -1
SaveBmp ordner + "Images.bmp", 0, 0 - g, 32
EndPaint
MessageBox("Datei : " + ordner + "images.bmp \ngespeichert !", "Info !", 0)
ENDPROC
End
Das funktioniert auch así wunderbar. Bloß, si yo el Mapa de bits con el Reshacker importiere, bekommen el individual Bildchen una rosa Teint y voluntad auch así anschließend en mi Programa adecuado.Yo zeige ellos como Toolbar a. Lade Yo el Mapa de bits en una Malprogramm, voluntad el Bildchen bastante normal dargestellt.
Woran podría el mentira ? |
|
|
| Benutze XPROFAN X3 + FREEPROFAN Wir sind die XProfaner. Sie werden von uns assimiliert. Widerstand ist zwecklos! Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 21.08.2017 ▲ |
|
|
|
|
Jörg Sellmeyer | Könntest Si es usted el Rosa en el Reshacker como Transparenzfarbe definieren? Alternativ kannst du sí en Profano el Transparenzfarbe einstellen. Wahlweise el linke untere Pixel oder una frei wählbare Colornummer. |
|
|
| |
|
|
|
ByteAttack |
|
|
| |
|
|
|
H.Brill | Lo ha al Guardar gelegen. El Mapa de bits wurde en 24Bit gespeichert. Hab ellos ahora en Paint en 256 Farben gespeichert. PS: Byte-Attack : El con deinem Toolbarmaker gespeicherte Mapa de bits se auch rosa en el ResHacker muestra.
Das einzige, qué hilft, es como dijo en Paint invitar y como 256 Farben-Mapa de bits otra vez speichern. |
|
|
| Benutze XPROFAN X3 + FREEPROFAN Wir sind die XProfaner. Sie werden von uns assimiliert. Widerstand ist zwecklos! Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 22.08.2017 ▲ |
|
|
|