Problem mit Imagelist

[kalle]

Ich habe erst vor Kurzem erfahren, dass GFA weiter gepflegt wird und finde das großartig!
Da ich eine ganze Reihe von GFA-Programmen auf meinem Rechner laufen habe und sie nahezu täglich benutze, bin ich natürlich daran interessiert auch auf WIN 7 ev. Bugs zu korrigieren oder Verbesserungen anzubringen. Mein altes GFA hatte allerdings den Fehler, dass ich OCX'e im Editor nicht umbenennen konnte. Der Editor stürzte auf WIN 7 dann ab.
Jetzt gibt es den neuen 2.30 1169 und ich dachte hurra! Alles funktionierte bestens, die alten teilweise recht komplexen Programme schienen einwandfrei zu funktionieren, bis ich den Code compilierte und per "Execute" starten wollte. Hier stellte sich leider heraus, dass Imagelists plötzlich keine Bilder mehr enthielten
Hier ein Beispielcode mit einer Imagelist, die ich im Formulareditor mit Bitmaps gefüllt habe:

LoadForm frm1
Do : Sleep : Until Me Is Nothing
Sub frm1_Load
 Local Integer i
 tb1.ImageList = iml1
 For i = 1 To 3
   tb1.Buttons.Add , , "", , i
 Next
 OcxOcx tb1 ComboBox fontcomb = "", 100, 2, 150
EndSub
Sub tb1_ButtonClick(Btn As Button)
 If Btn = 3
   End
 EndIf
EndSub

Starte ich diesen Code per "RUN" im Editor, ergibt das eine Toolbar mit korrekten, bebilderten Buttons und rechts daneben eine nette Combobox.
Compiliere ich nach speichern und starte per execute, sind die Buttons ganz klein, ohne Bilder und die Toolbar ist so schmal, dass die Combobox nur noch halb sichtbar ist.
s.Anhang

Ich fahre WIN 7 Professional 64 Bit. Könnte der Fehler vielleicht bei den 64 Bit liegen?

Attachments:

[seaman]

Moin moin Kalle, ich kann Dir (leider) nicht bei Deinem Problem helfen, möchte aber ein kurzes "Willkommen im Forum" loswerden. So wie es aussieht wohnen wir sehr nah zusammen. Ich werde demnächst wieder mehr mit GFA durchstarten. Schau doch einfach einmal auf meine Heimseite, ich mache fast nur etwas in Kombination mit Hardware. Liebe Grüße, z.Z. noch aus Hamburg.
Willi

[kalle]

Hi,
ich wohne dann zwar am anderen Ende von Kiel, aber vielleicht trifft man sich ja tatsächlich mal
Schade, aber irgendetwas läuft da schief mit dem compilieren auf meinem Rechner. Leider ist es so, dass ich alten Code zwar im neuen Basic bearbeiten kann, wenn ich ihn abspeichere und ihn wieder mit dem alten Basic lade, um ihn damit zu compilieren, sind leider auch dort die Imagelists leer. Schade, aber so kann ich mit den neuen Basic noch nichts anfangen. Vielleicht fällt Souke Hamstra eine Lösung ein

[funkheld]

Hmmm..., hallo ich grüsse euch aus Lüneburg.

Probiere es auch seit ca 1 jahr mit GFA32, hatte aber zwischen drin wieder aufgehört.

Mal sehen, ich fang dann mal wieder an.

Gruss

[esr]

Hallo Kalle,

ich kenne das Problem. Die im Editor eingeladenen Images Bilder stehen nach dem kompalieren nicht mehr zur Verfügung.
Du musst die ImageList manuell aufbauen. D.h. du lädst die Bilder in den Editor unter Dateien und baust die ImageList bei Programmstart neu auf.

=> Einladen der Bilder in die Imagelist 2 (Der Clear Befehl funktioniert aber unter Windows 10 nicht!!)
iml2.Clear : iml2.MaskColor = $ffffff : iml2.BackColor = $ffffff
iml2.UseMaskColor = -1 : iml2.ImageHeight = 18 : iml2.ImageWidth = 18 : Local Picture pic
Set pic = LoadPicture(":M1") : iml2.AddPart , , pic, (0) * 16, 0
Set pic = LoadPicture(":M2") : iml2.AddPart , , pic, (0) * 16, 0
Set pic = LoadPicture(":M3") : iml2.AddPart , , pic, (0) * 16, 0
Set pic = LoadPicture(":M4") : iml2.AddPart , , pic, (0) * 16, 0

Die Bilder werden jetzt der Reihe nach in die ImageList eingeladen und stehen dann wieder, wie gewohnt zur Verfügung.

Probier mal, ob es hilft.

wie mal iml2.clear unter windows10 ersetzen kann weiß ich nicht. Unter Windows 7 funktioniert es!

Gruß
ESR