На фоне экрана построить пунктирную линию красного цвета нормальной толщины

@mkrw · Регистрация: 24.03.2016

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

Ответившему огромное спасибо)

@Joy · 07.04.2016, 15:01

для меня пятерка - нормальная толщина

Pascal

uses GraphAbc, System.Windows.Forms;
var
  ok:boolean:=false;
procedure st(Key:integer);
begin
   if Key=VK_Escape then ok:=true;
end;    
begin
  OnKeyDown:=st;
  graphabc.MainForm.TransparencyKey:=MainForm.BackColor;
  graphabc.MainForm.FormBorderStyle:=FormBorderStyle.None;
  Window.Maximize;
  SetPenStyle(DashStyle.Dash);
  SetPenWidth(5);
  SetPenColor(clRed);
  Line(0,ScreenHeight div 2,ScreenWidth,ScreenHeight div 2);
  while not ok do;
  Window.Close;
end.

@mkrw · 07.04.2016, 15:13 **[ТС]**

не запускает ,выдает ошибку в 10 строке

@capricornus CF · 07.04.2016, 15:34

Всё работает.Какая ошибка?

@mkrw · 07.04.2016, 15:37 **[ТС]**

а вот все хорошо,простите

@mkrw 0 / 0 / 0 Регистрация: 24.03.2016 Сообщений: 22
		1
	На фоне экрана построить пунктирную линию красного цвета нормальной толщины 07.04.2016, 14:07. Показов 1341. Ответов 4 Метки нет (Все метки) Ответившему огромное спасибо) 0

@mkrw 0 / 0 / 0 Регистрация: 24.03.2016 Сообщений: 22
	07.04.2016, 15:13 [ТС]	3
	не запускает ,выдает ошибку в 10 строке 0

@capricornus CF 318 / 208 / 162 Регистрация: 08.12.2015 Сообщений: 863
	07.04.2016, 15:34	4
	Всё работает.Какая ошибка? 0

@mkrw 0 / 0 / 0 Регистрация: 24.03.2016 Сообщений: 22
	07.04.2016, 15:37 [ТС]	5
	а вот все хорошо,простите 0

На фоне экрана построить пунктирную линию красного цвета нормальной толщины

Решение