Canvas

@Vodoley96 · Регистрация: 09.01.2010

Author24 — интернет-сервис помощи студентам

Нарисована схема в Canvas. Схема прописана для Form1 в OnPaint. При нажатии на один их пунктов меню часть схемы должна окраситься в желтый цвет. Окрасилась. Если свернуть и вновь развернуть программу, то схема ВСЯ становится желтом. В чем искать ошибку?

@i8085 · 23.11.2010, 17:17

Наверное, переменная установки цвета одна для всех линий и при последующей перерисовке действует на все рисуемые линии? (При "разворачивании" ведь перерисовывается всё полностью.)

@Vodoley96 · 23.11.2010, 19:59 **[ТС]**

Delphi

procedure TForm1.FormPaint(Sender: TObject);
begin
Form1.Canvas.Pen.Width:=7; //рисуем схему станции 1, 2, 3 путь
Form1.Canvas.MoveTo(0,170);
Form1.Canvas.LineTo(900,170);
Form1.Canvas.MoveTo(80,170);
Form1.Canvas.LineTo(130,230);
Form1.Canvas.MoveTo(130,230);
Form1.Canvas.LineTo(640,230);
Form1.Canvas.MoveTo(640,230);
Form1.Canvas.LineTo(685,170);
Form1.Canvas.MoveTo(120,170);
Form1.Canvas.LineTo(175,110);
Form1.Canvas.MoveTo(640,170);
Form1.Canvas.LineTo(585,110);
Form1.Canvas.MoveTo(175,110);
Form1.Canvas.LineTo(585,110);
Form1.Canvas.Pen.Width:=1; //рисуем ножку светофора НI
Form1.Canvas.MoveTo(604,192);
Form1.Canvas.LineTo(616,192);
Form1.Canvas.MoveTo(604,198);
Form1.Canvas.LineTo(604,185);
Form1.Canvas.Pen.Width:=1; //рисуем ножку светофора Н
Form1.Canvas.MoveTo(15,192);
Form1.Canvas.LineTo(25,192);
Form1.Canvas.MoveTo(15,198);
Form1.Canvas.LineTo(15,185);
Form1.Canvas.Pen.Width:=1; //рисуем ножку светофора Н3
Form1.Canvas.MoveTo(604,250);
Form1.Canvas.LineTo(604,263);
Form1.Canvas.MoveTo(604,255);
Form1.Canvas.LineTo(616,255);
Form1.Canvas.Pen.Width:=5;
Form1.Canvas.MoveTo(4,140); //рисуем стрелочку подхода неч.поездов
Form1.Canvas.LineTo(26,140);
Form1.Canvas.MoveTo(26,140);
Form1.Canvas.LineTo(18,130);
Form1.Canvas.MoveTo(26,140);
Form1.Canvas.LineTo(18,150);
 
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled:=False;
Shape5.Brush.Color:=clWhite;
Shape6.Brush.Color:=clYellow;
Shape3.Brush.Color:=clWhite;
Shape2.Brush.Color:=clLime;
Form1.Canvas.Pen.Color:=clYellow;
Form1.Canvas.Pen.Width:=7;
Form1.Canvas.MoveTo(0,170);
Form1.Canvas.LineTo(80,170);
Form1.Canvas.MoveTo(80,170);
Form1.Canvas.LineTo(130,230);
Form1.Canvas.MoveTo(130,230);
Form1.Canvas.LineTo(640,230);
end;

@Vodoley96 1 / 1 / 1 Регистрация: 09.01.2010 Сообщений: 110
		1
	Canvas 23.11.2010, 15:20. Показов 1142. Ответов 2 Метки нет (Все метки) Нарисована схема в Canvas. Схема прописана для Form1 в OnPaint. При нажатии на один их пунктов меню часть схемы должна окраситься в желтый цвет. Окрасилась. Если свернуть и вновь развернуть программу, то схема ВСЯ становится желтом. В чем искать ошибку? 0

@i8085 3218 / 2361 / 540 Регистрация: 11.09.2009 Сообщений: 8,601
	23.11.2010, 17:17	2
	Наверное, переменная установки цвета одна для всех линий и при последующей перерисовке действует на все рисуемые линии? (При "разворачивании" ведь перерисовывается всё полностью.) 1

	23.11.2010, 19:59

Canvas

Решение