[Delphi] Dwa osobne Canvas'y

0

Witam. Jak mogę stworzyć dwa osobne Canvas'y na formie. Mają pracować całkowicie osobno. Tymczasem używam takiego kodu Canvas.MoveTo(190, 190);
Canvas.Pen.Width := 2;
//tarcza

Canvas.LineTo(190 , 130);
for I := 0 to 11 do //podzialka
begin
x1 := round((cos(PI * (i*30-90) / 180))90);
y1 := round((sin(PI * (i
30-90) / 180))90);
x2 := round((cos(PI * (i
30-90) / 180))80);
y2 := round((sin(PI * (i
30-90) / 180))*80);
Canvas.MoveTo(x1+190, y1+190);
Canvas.LineTo(x2+190, y2+190);

Canvas.MoveTo(590, 190);
Canvas.Pen.Width := 2;
//tarcza

Canvas.LineTo(190 , 130);
for I2 := 0 to 11 do //podzialka
begin
x12 := round((cos(PI * (i2*30-90) / 180))90);
y12 := round((sin(PI * (i2
30-90) / 180))90);
x22 := round((cos(PI * (i2
30-90) / 180))80);
y22 := round((sin(PI * (i2
30-90) / 180))*80);
Canvas.MoveTo(x12+190, y12+190);
Canvas.LineTo(x22+190, y22+190);

no i mam jeden obrazek. jak mogę zrobić dwa osobne obrazki w canvasach?
0

Jakoś nie za bardzo wiem co chcesz zrobić... powiedz to może znajdziemy lepsze wyjście?

A poza tym, z mojego doświadczenia wynika że lepiej pracować na zmiennej klasy TBitmap, a potem wszystko wrzucić na Canvas.

0

A na jednej kartce robisz jeden czy dwa rysunki? Użyj np. TPaintBox położonego na formę jako drugiego canvasa. A tak z ciekawości: co chcesz osiągnąć?

1 użytkowników online, w tym zalogowanych: 0, gości: 1