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?