2Images übereinaderlegen...

[pluto]

Die Pen Farbe solltest du schon auf clBlack stellen.

[Bauer321]

das wird ja hier im nächsten abschnitt gemacht aber es geht trotzdem nicht, das problem ist halt immer noch, dass das erste TImage(im quellcode mit panel benannt) nicht transparent ist.

Code: Alles auswählen

procedure TFPaint.panelMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  label1.caption := 'X: ' + inttostr(x) + '  Y: ' + inttostr(y);
  if (spx > -1) and (spy > -1) then
     begin
       RedrawPanel();
       FPaint.Panel.Canvas.Pen.Color:= clblack;
       FPaint.Panel.Canvas.MoveTo(spx,spy);
       FPaint.Panel.Canvas.LineTo(x,y);
     end;
end;

(da wird nochmal die farbe geändert)

[pluto]

Möchtest du zwei Panels übereinander Legen? Das wird nicht gehen.

Mich würde es wundern, wenn die LCL sowas unterstützen würde.

Vielleicht solltest du beschreiben, was du genau vor hast. Aber für mich hört es sich in etwa so an:
Du möchtest zwei Objekte überainender legen. Diese Objekte sind Panels.

Wenn das stimmt: Du musst hier schon etwas selbst machen. Panels kannst du hier nicht nehmen. Du könntest vielleicht TImage versuchen.
Das hat entsprechende Eigenschaften unter TImage.Picture.Bitmap

Aber ich glaube dir bleibt nichts anders übrig, als selbst Objekte zu erstellen und diese dann auf eine Paint Box zu Zeichnen. Ist etwas aufwendiger, aber dafür hast du mehr Kontrolle und mehr Möglichkeiten.

In meinem Paint2 Projekt, mache ich das ebenfalls selbst. Das Projekt findest du hier im Forum. Ist etwas größer... Ob das noch Läuft in der neuen Lazarus Version weiß ich nicht. Ist schon etwas älter. Vielleicht hilft es dir weiter.

[Bauer321]

ok dann guck ich da mal....
(ich lege übrigens 2 TImage übereinadner, auf dem oberen soll immer eine vorschau der nächsten aktion sien und wenn diese ausgeführt wird soll aufs untere gezeichnet werden)