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;

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