Цитата:
|
Сообщение от lmikle
Ну, я так не писал никогда. У меня были хорошие учителя, кторые сразу отучили меня от писания " в лоб".
|
"Эх.мне бы таких учителей, а то приходится самому всякое непонятное писать и разбираться во всём этом. Т.е. здесь
Код:
procedure PaintLine(Canvas:TCanvas;x1,y1,x2,y2:integer);
begin
Canvas.Pen.Width:=5;
Canvas.Brush.Color:=clred;
Canvas.MoveTo(x1,y1);
Canvas.LineTo(x2,y2);
exit;
end;
тоже цвет на красный из стандартного черного меняться не будет?