Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Paintbox sichtbar machen

    Delphi
    by blink182, 17. Mär 2009
  mhm die abfrage kannst du ja auch in dem button machen, wie du willst ;)
  
  if ColorDialog1.execute then
  paintbox1.canvas.brush.color:=ColorDialog1.Color
  else
  paintbox1.canvas.brush.color:=clwhite;
  paintbox1.Canvas.FillRect(Rect(0,0,paintbox1.width,paintbox1.height));
  
  
  wobei colorgrid die auswahl derfarben sehr gering ist ;) bei 16/255^3 Farben :D
• Forum: Multimedia

  Re: Paintbox sichtbar machen

    Delphi
    by blink182, 17. Mär 2009
  im OnChange Ereignis von dem ColorGrid kannst du dann
  
  paintbox1.canvas.brush.color:=ColorGrid1.BackgroundColor;
  
  und zum malen vllt
  
  paintbox1.canvas.pen.color:=ColorGrid1.ForegroundColor;
  
  aber wie du möchtest ;)
• Forum: Multimedia

  Re: Paintbox sichtbar machen

    Delphi
    by blink182, 16. Mär 2009
  mhm der Code färbt doch deine Paintbox weiß, ich weiß jetzt nicht wo dein Problem ist, dann mach dir einen Button und schreib den Code im OnClick-Ereignis darein
• Forum: Multimedia

  Re: Paintbox sichtbar machen

    Delphi
    by blink182, 16. Mär 2009
  weiß jetzt nicht ganz was du willst, wie man das OnFormCreate-Ereignis erstellt oder was? Doppelklick auf die Form
• Forum: Multimedia

  Re: Paintbox sichtbar machen

    Delphi
    by blink182, 16. Mär 2009
  procedure TForm1.Btn_ClearallClick(Sender: TObject);
  begin
  // hier kannst du es einfügen
  end;
  
  
  // bzw hier solltest du es einfügen :
  
  procedure TForm1.FormCreate(Sender: TObject);
  begin
• Forum: Multimedia

  Re: Paintbox sichtbar machen

    Delphi
    by blink182, 16. Mär 2009
  je nach dem wenn du die Komponente zur Laufzeit erstellst, nach der Erstellung sonst nach dem Form-Create und beim "löschen" bzw "neu erstellen"
• Forum: Multimedia

  Re: Paintbox sichtbar machen

    Delphi
    by blink182, 16. Mär 2009
  paintbox1.canvas.brush.color:=clwhite;
  paintbox1.Canvas.FillRect(Rect(0,0,paintbox1.width,paintbox1.height)); ?