Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: Verständnisfrage: TImage

    Delphi
    by Bummi, 15. Sep 2012
  Da Du mit dem automatisch generierten Format in clWhite nicht glücklich bist....
  
  Procedure SetEmptyBitmap(i:TImage;C:TColor);
  var
  bmp:TBitmap;
  begin
  bmp := TBitmap.Create;
  try
  bmp.PixelFormat := pf32Bit;
  bmp.Canvas.Brush.Color := C;
• Forum: Object-Pascal / Delphi-Language

  AW: Verständnisfrage: TImage

    Delphi
    by Bummi, 12. Sep 2012
  Wenn Du das Bitmap auf nil setzt ist es weg ...
  Sobald Du auf das Canvas von TImage zugreifst wird ein neues in der Größe des Images erstellt und alle Zugriffe auf Imagex.Canvas auf das interne FBitmap angewendet, dieses wird dann von TImage aus seinem nicht zugreifbaren Canvas dargestellt. (wie bereits erwähnt wurde ist TImage selten die beste Lösung)
  
  Ich hatte weiter ober ein Microbeispiel...
• Forum: Object-Pascal / Delphi-Language

  AW: Verständnisfrage: TImage

    Delphi
    by Bummi, 11. Sep 2012
  hast Du #12 nicht gesehen?
  
  
  image1.Picture.Bitmap := nil;
• Forum: Object-Pascal / Delphi-Language

  AW: Verständnisfrage: TImage

    Delphi
    by Bummi, 9. Sep 2012
  wenn man schon ein Image dafür missbrauchen will kann man die ganzen Automatismen die TImage bei Zugriff aus das (Pseudo)Canvas bietet nutzen...
  
  procedure TForm2.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  begin
  image1.Picture.Bitmap := nil;
  Image1.Canvas.Ellipse(x-10,y-10,x+10,y+10);
  end;