Скачать: CL | DM;

Image.Canvas   Найти похожие ветки 

← →
Riki   (2004-03-11 20:09) [0]

Как в при нажатие левой кнопки мыши на линии перерисовать  эту линию в рисунке загруженном в Image, т.е получилось примерно так была такая линия "\"  а стала вот такой "-" :) и наоборот

---

← →
Gero ©   (2004-03-11 22:06) [1]

var LineStyle = (ls1, ls2);  // "\" и "-"

procedure ...ImageMouseDown(... X, Y : Integer; ...);
begin
 if Image.Canvas.Pixels[X, Y] = ПредполагаемыйЦветЛинии then
   if LineStyle = ls1 then
     begin
       LineStyle := ls2;
       РисуемДефис;
     end
   else
     begin
       LineStyle := ls1;
       РисуемСлэш;
     end;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.022 c