Kreslící plátno – Delphi – Fórum – Programujte.com

Můj problém nebo spíše dotaz je celkem prostý. Mám image1 a na ten kreslím pomoci canvas. Dejme tomu že chci nakreslit obdelník. Jen tak pro představu co mám namysli tady je kód.

var x1,y1:integer



procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

  x1:=x;

  y1:=y;

end;



procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

  image1.Canvas.Rectangle(x1,y1,x,y);

end;

Buď si vytvoříš druhý paměťový device context (canvas) a budeš to dělat přes něj (kopie obrázek + obdélník a vykreslit na obrazovku) nebo můžeš použít vlastností pera, kdy nekreslíš pevně danou barvou, ale děláš inverzi barvy podkladu, tj. když pak chceš obdélník jinde, tak ho nejprve nakreslíš na to původní místo (tím ho zrušíš) a pak ho teprve nakreslíš jinde.

_

Diky za odpoved, udelam jsem to stim invertovanim a prepisovanim, jak pises, ale spis by me zajimalo, jestli to jde udelat tak, jak je to v malovani, protoze ted kdyz kreslim a mam uz neco nakreslene tak to se potom taky invertuje a vypada to zvlastne, totiz v malovani se nahled nemeni a nezalezi na tom co uz je nakresleno.

Když tak to vyfoť (malování i to tvoje), abych se ujistil, že mluvíme o stejném tématu.

Zkus to takhle
var
Form1: TForm1;
PocX,PocY,KonX,KonY: Integer;
Hranice: Boolean;

implementation

{$R *.dfm}

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
PocX := X;
KonX := X;
PocY := Y;
KonY := Y;
Hranice := True;
end;


procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Hranice then
begin
with Image1.Canvas do
begin
Pen.Mode := pmNot;
Pen.Style := psDash;
Brush.Style := bsClear;
Rectangle(PocX, PocY, KonX, KonY);
KonX := X;
KonY := Y;
Rectangle(PocX, PocY, KonX, KonY);
end;
end;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Hranice then
begin
Hranice := False;
with Image1.Canvas do
begin
Pen.Style := psSolid;
Pen.Mode := pmCopy;
Brush.Style := bsClear;
Rectangle(PocX, PocY, KonX, KonY);
end;
end;
end;

Honzc napsal:
Zkus to takhle

___

Přesně tak ... s jedním si nevystačíš. V tvém případě bude asi nejlepší obrázek vykreslit do paměti a na obrazovku ho je kopírovat (něco na způsob BitBlt). Následně do toho vykreslíš obdélník(y).