kein ZEichnen auf vergrößerten Image

[punker-lili]

also diesen Hintergrundhabe ich gemalt, damit dieser schwarze weggeht, den schwarze Noten auf schwarzen Hintergrund sieht man nicht daher wollte ich ihn weiß machen, damit ich darauf zeichnen kann Aber leider funktioniert das so nicht.
@extrem: die Noten zeichne ich via image.canvas direkt über line und move to.
für mich stellt sich erstmal die frage, warm das erweiterte image schwarz ist. dann ist noch etwas komisch, erst hat ales funktioniert dann habe ich ne procedure geschreiben die der dargestellten procedure die werte fürs image üergibt. ab da an hat es icht mehr größer gemacht. als ichs dann wider rausgemacht habe, wurde das erweiterte image wieder schwarz.
MfG Anna

[extrem]

Zitat von punker-lili:

für mich stellt sich erstmal die frage, warm das erweiterte image schwarz ist.

Das kann dadurch kommen, wenn vorher irgendwo im Code image.canvas.Brush.Color := clBlack; steht, dann wird das Bild mit dieser Farbe vergrößert. Da deine Noten auch schwarz sind, würde mich das nicht wundern. Du kannst ja zum Testen vor Aufruf der Funktion image_groesse image.canvas.Brush.Color auf eine andere Farbe setzen.

Außerdem ist wohl deine Prozedur image_groesse irgendwie fehlerhaft. Wenn du das Bild nur verbreiterst, dann wird nur unterhalb des Images gezeichnet(ist also nicht sichtbar). Ändere mal zum Test die letzten Zeilen in der Prozedur so ab so ab

Delphi-Quellcode:

...
  image.canvas.Brush.Color := clred;
  image.Canvas.FillRect(rect(image.width - diff_x,  0,//image.Height - diff_y,
                            image.width, image.height));
...

und rufe sie so auf image_groesse(image, image.Height, image.Width+ 50); also das Bild nur verbreitern.

Zitat von punker-lili:

procedure image_groesse(image:bild;hoehe,breite:integer);

Noch eine Frage ist bild bei dir = TImage?