| |
| |
|
H.Brill | Salut,
Habe la fois une Frage trop Bildern bzw. Icônes.
là es Icônes comment le sable am mer gibt, habe je
mir la fois un Programme geschrieben, cela une
Dossier avec Icônes einliest et cet ensuite comme
Bilderliste (Toolbar) dans un .bmp speichert.
but sollte son, qui je mir qui travail avec einem
Malprogramm spare.
Herausgekommen ist que voici :
Déclarer Handle btn1, btn2, lb
Déclarer Long ende, String fichier, ordner
ende = 0
fichier = $PROGDIR + "\Images.bmp"
Fenêtre 600, 400
btn1 = Créer("Button", %HWnd, "Ordner", 10, 10, 60, 25)
btn2 = Créer("Button", %HWnd, "Ende", 80, 10, 60, 25)
lb = Créer("Listbox", %HWnd, 0, 10, 50, 450, 200)
WhileNot ende
WaitInput
Si Clicked(btn1)
ordner = ChooseDir$(%HWnd, "Ordner wählen", "C: \", 3, »)
Si ordner <> »
CHDIR ordner
ClearList
AddFiles "*.ico"
Si %GetCount > 0
ClearList lb
Move("ListToHandle", lb, ordner)
InsertImages(lb)
EndIf
D'autre
MessageBox("Kein Dossier ausgewählt !", "Fehler !", 0)
EndIf
ElseIf Clicked(btn2)
ende = 1
EndIf
Cas %Key = 2 : ende = 1
Endwhile
Proc InsertImages
Paramètres Handle liste, String pfad
Déclarer Long x, y, g
x = 1
y = 1
g = GetCount(liste) * 32
Mcls g, 32
Début de peinture -1
WhileLoop 0, GetCount(liste) - 1
DrawPic pfad + GetString$(liste, &LOOP), x, y; 0
Inc x, 32
Endwhile
EndPaint
Début de peinture -1
SaveBmp ordner + "Images.bmp", 0, 0 - g, 32
EndPaint
MessageBox("Datei : " + ordner + "images.bmp \ngespeichert !", "Info !", 0)
ENDPROC
Fin
cela funktioniert aussi so wunderbar. Bloß, si je qui
Bitmap avec dem Reshacker importiere, bekommen qui
individuel Bildchen une rose Teint et volonté aussi so
anschließend dans mon Programme angezeigt.je zeige vous
comme Toolbar à. Lade je qui Bitmap dans un Malprogramm,
volonté qui Bildchen entier normal dargestellt.
Woran pourrait cela liegen ? |
|
| |
| 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 du cela rose im Reshacker comme Transparenzfarbe définir? Alternativ peux du oui dans Profan qui Transparenzfarbe einstellen. facultativement cela linke untere Pixel ou bien une libre wählbare Colornummer. |
|
| |
| |
| |
|
|
ByteAttack |
|
| |
| |
| |
|
|
H.Brill | Es hat am Sauver gelegen.
qui Bitmap wurde dans 24Bit gespeichert.
Hab vous maintenant dans Paint dans 256 Farben
gespeichert.
PS:
Byte-Attack :
qui avec deinem Toolbarmaker gespeicherte
Bitmap wird aussi rose im ResHacker
angezeigt.
cela einzige, quoi hilft, ist comment dit
dans Paint magasin et comme 256 Farben-Bitmap
wieder Sauver. |
|
| |
| 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