@ Ulrich:
Ich weiß nicht mal, wasDu mit einem Construktor ohne Bittiefe meinst.
Ich erzeuge ein ganz normales Picture mit "New Picture"
...
In der Language Reference finde ich unter Picture die Funktion ConvertToAlphaPicture. Meinst Du das?
Erstmalig trat der Fehler auf, nachdem ich in der Methode "Vorlageausgeben" eine Vorlage mit einem Bild nutzte. Das habe ich aber zwischenzeitlich wieder rausgenommen und bekomme den Fehler dennoch.
@Beatrix:
den Code habe ich als Bild eingefügt, weil er sich besser liest (ich finde es übersichtlicher). Hier der eingefügte Code als Text:
dim g as graphics
dim s1,s3,abstand,i As integer
dim gd, sd as string
dim p as Picture
redim textzeile(-1)
Etikettbuffer.append MyNewPicture(x,y,32)
if etikettbuffer(ubound(etikettbuffer))=nil then
Hinweis("Konnte Ettikett(en) nicht erzeugen. Zuwenig Speicher?")
else
etikettbuffer(ubound(etikettbuffer)).transparent=1 //(1=weiß ist transparent)
g=etikettbuffer(ubound(etikettbuffer)).graphics
if g<> nil then
g.TextFont=ZeichensatzPopup.text
g.foreColor=rgb(255,255,255)//ws
g.fillRect 0,0,g.width,g.height
if RadioButton3.value=false then
//auskommentiert
else
//Etikett anhand Vorlage erzeugen
if Vorlagenpfad="" then
p=hintergrund3
else
p=Vorlageausgeben(nr)
end
if p<>nil then
g.DrawPicture p,0,0,g.Width,g.Height,0,0,p.Width,p.Height
else
Hinweis(EtikettendruckHinweis1)
end
end
else
Hinweis(EtikettendruckHinweis1)
end
end
Exception err