Не отрисовывается окно

@ArtyomTank · Регистрация: 21.02.2019

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
uses FormsABC, Timers;
 
type
  pos = record
    x: integer;
    y: integer;
  end;
 
var
  clockOut: PaintBox;
  clockSize: integer := 500;
  padding: integer := 5;
  r := Round(clockSize / 2) - padding;
  rs: integer := 10;
  wp, hp: array[0..12] of integer;
  h: array[0..12] of string;
  posEnd: pos;
  
  time: DateTime;
  
  family := new System.Drawing.FontFamily('Consolas');
  emSize: single := 12;
  Pen := new System.Drawing.Pen(System.Drawing.Color.Black);
  Brush := new System.Drawing.SolidBrush(System.Drawing.Color.Black);
  Font := new System.Drawing.Font(family, emSize);
  stringSize: System.Drawing.SizeF;
 
  //mainLoop:Timer;
 
function arrowpos(y0, x0: integer; r: real; time: integer; t: char): pos;
var
  position: pos;
  k: real;
begin
  if t = 'o' then k := 360 / 12;
  if t = 'h' then k := 360 / 60;
  position.x := x0 + Round(r * sin(Pi * time / k));
  position.y := y0 - Round(r * cos(Pi * time / k));
  Result := position;
end;
 
procedure Draw;
//var size:integer;
 
begin
  time := DateTime.Now;
  clockOut.Graphics.DrawEllipse(Pen, padding, padding, r * 2, r * 2);
  clockOut.Graphics.DrawEllipse(Pen, padding, padding, r * 2, r * 2);
  clockOut.Graphics.DrawEllipse(Pen, padding + r - rs / 2, padding + r - rs / 2, rs, rs);
  //FloodFill(xClock,yClock,clBlack);
  for var i := 0 to 11 do
  begin
    clockOut.Graphics.DrawString(h[i], Font, Brush, padding + (r + Round((r - 5) * sin(Pi * (i + 1) / (180 / 30))) - wp[i]), padding + (r - Round((r - 5) * cos(Pi * (i + 1) / (180 / 30))) - hp[i]));//(r+Round((r-5)*sin(Pi*(i+1)/(180/30))))-wp[i]) , padding+(r-Round((r-5)*cos(Pi*(i+1)/(180/30)))-hp[i]) ,
  end;
  posEnd := arrowpos(padding + r, padding + r, r - 30, time.second, 'o');
  Pen.width := 2;
  clockOut.Graphics.DrawLine(Pen, padding + r, padding + r, posEnd.x, posEnd.y);
  posEnd := arrowpos(padding + r, padding + r, r - 30, time.minute, 'o');
  Pen.width := 4;
  clockOut.Graphics.DrawLine(Pen, padding + r, padding + r, posEnd.x, posEnd.y);
  posEnd := arrowpos(padding + r, padding + r, r / 2, time.hour, 'h');
  Pen.width := 8;
  clockOut.Graphics.DrawLine(Pen, padding + r, padding + r, posEnd.x, posEnd.y);
  
  //clockOut.Graphics.Clear(Color.White);
  
  //Write('draw');
end;
 
 
 
///initialization
procedure Init;
begin
  MainForm.Title := 'Clock & Timer & Stopwatch';
  MainForm.SetSize(clockSize + 30, clockSize + 50);
  MainForm.CenterOnScreen;
  MainForm.IsFixedSize := true;
  
  clockOut := new PaintBox();
  clockOut.Height := clockSize;
  clockOut.Width := clockSize;
  
  for var i := 0 to 11 do
  begin
    h[i] := IntToStr(i + 1);
    stringSize := clockOut.Graphics.MeasureString(h[1], Font);
    
    wp[i] := Round(stringSize.Width / 2);
    hp[i] := Round(stringSize.Height / 2);
  end;
  
  var mainLoop := new Timer(10000, Draw);
  mainLoop.Start;
end;
 
begin
  Init;
  Draw;
end.

Добавлено через 2 часа 45 минут
При добавлении функции Draw в таймер mainLoop Отрисовка в clockOut не происходит. Почему?

@Пс · 22.03.2019, 12:13

ArtyomTank, фоорма не открыается?

@ArtyomTank · 22.03.2019, 12:30 **[ТС]**

нет форма открывается, но не происходит отрисовка в PaintBox

Добавлено через 2 минуты
вот

Сообщение от ArtyomTank

Pascal
1
2
var
* clockOut: PaintBox;

*

Добавлено через 1 минуту
таймер

Сообщение от ArtyomTank

Pascal
1
2
var mainLoop := new Timer(10000, Draw);
* mainLoop.Start;

var mainLoop := new Timer(10000, Draw);
* mainLoop.Start;

Добавлено через 1 минуту
Проследите что происходит в Draw;

Добавлено через 59 секунд
вот процедура
[quote="ArtyomTank;13424975"]procedure Draw;

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
[quote="ArtyomTank;13424975"]procedure Draw;
//var size:integer;
begin
* time := DateTime.Now;
* clockOut.Graphics.DrawEllipse(Pen, padding, padding, r * 2, r * 2);
* clockOut.Graphics.DrawEllipse(Pen, padding, padding, r * 2, r * 2);
* clockOut.Graphics.DrawEllipse(Pen, padding + r - rs / 2, padding + r - rs / 2, rs, rs);
* //FloodFill(xClock,yClock,clBlack);
* for var i := 0 to 11 do
* begin
* * clockOut.Graphics.DrawString(h[i], Font, Brush, padding + (r + Round((r - 5) * sin(Pi * (i + 1) / (180 / 30))) - wp[i]), padding + (r - Round((r - 5) * cos(Pi * (i + 1) / (180 / 30))) - hp[i]));//(r+Round((r-5)*sin(Pi*(i+1)/(180/30))))-wp[i]) , padding+(r-Round((r-5)*cos(Pi*(i+1)/(180/30)))-hp[i]) ,
* end;
* posEnd := arrowpos(padding + r, padding + r, r - 30, time.second, 'o');
* Pen.width := 2;
* clockOut.Graphics.DrawLine(Pen, padding + r, padding + r, posEnd.x, posEnd.y);
* posEnd := arrowpos(padding + r, padding + r, r - 30, time.minute, 'o');
* Pen.width := 4;
* clockOut.Graphics.DrawLine(Pen, padding + r, padding + r, posEnd.x, posEnd.y);
* posEnd := arrowpos(padding + r, padding + r, r / 2, time.hour, 'h');
* Pen.width := 8;
* clockOut.Graphics.DrawLine(Pen, padding + r, padding + r, posEnd.x, posEnd.y);
//clockOut.Graphics.Clear(Color.White);
//Write('draw');
end;
[/quote]

Новые блоги и статьи Все статьи Все блоги /
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .

@Пс 257 / 149 / 70 Регистрация: 29.07.2018 Сообщений: 1,249
	22.03.2019, 12:13
	ArtyomTank, фоорма не открыается? 0