| |
| |
|
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 ▲ |
|
| |
|
(482)
Deutsch
English
Français
Español
Italia