Paintbox sichtbar machen

[Code46]

ich habe mal da eine frage und zwar ich schreibe gerade ein Programm wie MS-Paint oder soll so ähnlich sein. Ich weis jetzt nicht genau weiter wie ich die Paintbox sichtbare mache oder die Farbe verändere. Könnt ihr mir vielleicht weiter helfen würde mich sehr freuen.

[blink182]

Delphi-Quellcode:

paintbox1.canvas.brush.color:=clwhite;
paintbox1.Canvas.FillRect(Rect(0,0,paintbox1.width,paintbox1.height));

?

[jaenicke]

Crossposts solltest du angeben:
http://forum.delphi-treff.de/showthread.php?t=26135
Grund: So kann man schauen, ob vielleicht woanders schon das geantwortet wurde, was man selber sich gerade überlegen und posten wollte. Dann kann man sich das sparen oder vielleicht das ergänzen.

[Code46]

wo muss ich den Code einbinden??? [delphi]
paintbox.canvas.brush.color:=clwhite;
paintbox.Canvas.FillRect(Rect(0,0,paintbox.width,p aintbox.height));


Ich würde mich auf antworten sehr freuen.

Danke an euch.

[blink182]

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"

[Code46]

sorry aber ich habe nicht genau verstaden was du meinst.

mein code sieht im moment so aus:





unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ColorGrd, StdCtrls;

type
TForm1 = class(TForm)
PaintBox: TPaintBox;
Btn_Clearall: TButton;
procedure Mousmove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure Btn_ClearallClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;
x,y: integer;

implementation

{$R *.dfm}

procedure TForm1.Mousmove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if ssleft in shift then PaintBox.Canvas.LineTo(x,y);
end;

procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
PaintBox.Canvas.MoveTo(x,y);

end;

procedure TForm1.Btn_ClearallClick(Sender: TObject);
begin
PaintBox.Invalidate;
end;

end.

[blink182]

Delphi-Quellcode:

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
// hier
end;

[Code46]

funktioniert nicht wie du das meinst

Delphi-Quellcode:

procedure TForm1.Btn_ClearallClick(Sender: TObject);
begin
PaintBox.Invalidate;
paintbox.canvas.brush.color:=clwhite;
paintbox.Canvas.FillRect(Rect(0,0,paintbox.width,paintbox.height));
end;

// wie soll ich das denn hier angeben das muss ja in eine Procedure rein???


procedure TForm1.FormCreate(Sender: TObject);
begin
paintbox.canvas.brush.color:=clwhite;
paintbox.Canvas.FillRect(Rect(0,0,paintbox.width,paintbox.height));
end;

[blink182]

weiß jetzt nicht ganz was du willst, wie man das OnFormCreate-Ereignis erstellt oder was? Doppelklick auf die Form

[Code46]

Das ding ist ich will einfach nur die Hintergrund farbe der Paintbox WEIß haben. Das ist alles