kein ZEichnen auf vergrößerten Image

[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?