Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: Prinzipielle Frage zu TImage

   
    by Bummi, 22. Dez 2010
  Ok, so habe ich es noch nie gebraucht, ich arbeite sonst mit GDI+ in Graphiccontrols, aber so gehts
  
  procedure TForm1.Image1Click(Sender: TObject);
  begin
  image1.Canvas.Brush.Color := clWhite;
  image1.Canvas.FillRect(Rect(0,0,Image1.Width ,Image1.Height ));
  image1.Transparent := true;
  image1.Canvas.pen.Color := clRed;
  image1.Canvas.Brush.Color := clLime;
  ...
• Forum: Object-Pascal / Delphi-Language

  AW: Prinzipielle Frage zu TImage

   
    by Bummi, 22. Dez 2010
  deldie erste Frage ist schnell beantwortet wenn Du Dir den Getter für das Canvas von TImage anschaust
  
  function TImage.GetCanvas: TCanvas;
  var
  Bitmap: TBitmap;
  begin
  if Picture.Graphic = nil then
  begin
  Bitmap := TBitmap.Create;
  try