Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: kein ZEichnen auf vergrößerten Image

    Delphi
    by extrem, 24. Jun 2008
  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....
• Forum: Multimedia

  Re: kein ZEichnen auf vergrößerten Image

    Delphi
    by extrem, 23. Jun 2008
  Da irrst du dich, die Zeichenfläche muss man selber vergrößern:Vergrößern von TImage bzw. Bitmap
  
  @punker-lili Wie zeichnest du denn deine Noten, ist das ein Bild oder zeichnest du mit Hilfe von Image.canvas...? Wenn gar nicht anders, dann kannst du ja ein Mini- Projekt hier mal anhängen oder per PM schicken.
• Forum: Multimedia

  Re: kein ZEichnen auf vergrößerten Image

    Delphi
    by extrem, 21. Jun 2008
  Hi
  
  Wenn ich auch die Breite und Höhe von Graphic vergrößert habe dann hat sich auch die Leinwand mit vergrößert. Habe es gerade noch mal anhand einer Demo ausprobiert:
• Forum: Multimedia

  Re: kein ZEichnen auf vergrößerten Image

    Delphi
    by extrem, 16. Jun 2008
  Hi
  
  Hast du schon mal versuch die Größe von Graphic zu ändern, ich meine etwa so:
  Image1.Canvas;//damit Graphic <> nil
  if assigned(Image1.Picture.Graphic) then
  begin
  image1.Width := ...;
  image1.Height := ...;
  Image1.Picture.Graphic.Width := image1.Width;
  Image1.Picture.Graphic.Height := image1.Height;