Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Соколиный глаз
C#
226 / 165 / 114
Регистрация: 25.07.2014
Сообщений: 3,259
Записей в блоге: 10
Завершенные тесты: 2
1

Будет ли полезна такая библиотека?

15.03.2016, 16:53. Просмотров 164. Ответов 2
Метки нет (Все метки)

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
Library PasStudLib;
Uses crt,GraphABC, AbcOBJECTS, AbcButtons;
B:array of ButtonABC;
Index,XS,YS:integer;
 
///процедура создания простой кнопки
procedure Button(text_:string);
Begin
SetLength(B,Index+1);
B[Index]:=new Button(XS,YS,100,40,text_,clgray);
Inc(Index);
XS:=XS+100;
End;
 
///отступ от прошлой кнопки по X
procedure X(x_:integer);
Begin
XS:=XS+x_;
End;
 
///отступ от прошлой кнопки по Y (X обнуляется)
procedure Y(y_:integer);
Begin
XS:=0;
YS:=YS+x_;
End;
 
///процедура создания сразу нескольких кнопок (каждая следующая кнопка будет справа от прошлой)
procedure ButtonsH(texts_:array of string);
Begin
for var a:=0 to texts.length-1 do
Begin
Button(texts[a]);
End;
 
///процедура создания сразу нескольких кнопок (каждая следующая кнопка будет под прошлой)
procedure ButtonsV(texts_:array of string);
Begin
for var a:=0 to texts.length-1 do
Begin
Button(texts[a]);
Y(40);
End;
End;
 
///процедура показывает маленькое окно с сообщением 2 секунды, после его закрытия следует переписать все содержимое первого окна
procedure window(text_:string);
Begin
Var lastW,lastH:integer;
ClearWindow;
SetFontSize(14);
SetFontColor(clblack);
LastW:=Window.Width;
LastH:=Window.Height;
SetWindowIsFixedSize(true);
SetWindowWidth(150);
SetWindowHeight(30);
If text_.length>40 then text_:='Слишком длинный текст (больше 40 символов!';
TextOut(10,10,text_);
Sleep(2000);
SetWindowWidth(lastW);
SetWindowHeight(lastH);
End;
 
//ниже процедуры для рисования простых примитивов
//(!) все процедуры для установки параметров начинаются с SET
 
///рисует линию от точки с координатами (x,y) до точки с координатами (x1,y1)
procedure line(x,y,x1,y1:integer);
begin
line(x,y,x1,y1);
end;
 
///рисует линию от точки A до B, доставая их координаты из массива numbers так:
///x=numbers[n], y=numbers[n+1],*x1=numbers[n+2], y1=numbers[n+3]
procedure line(numbers:array of integer;n:integer);
begin
line(numbers[n],numbers[n+1],numbers[n+2],numbers[n+3]);
end;
 
///заливает замкнутую область того цвета какого точка с координатами (x,y) и начиная из точки с координатами (x,y)
procedure fill(x,y);
begin
floodfill(x,y,pencolor());
end;
 
initialization
SetWindowTitle('PasStudLib [учебная библиотека]');
End.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.03.2016, 16:53
Ответы с готовыми решениями:

Подскажите идею для игры, которая будет полезна в какой либо науке (химии, физике)
Мне надо сделать мини игрушку, которая будет полезна в какой либо...

MailAgent API: существует ли такая библиотека и как ею пользоваться
Добрый день. Если ли возможность манипулировать MailAgen'том через мою...

Будет ли работать такая схема?
подобная сеть. через DES-1016D/GE подсоединяются по гигабиту Интернет-шлюз и...

Будет ли работать такая антена?
Три перекрещивающихся квадруполя разной длины для трёх сигналов на разных...

Будет ли работать такая сеть?
Злравствуйте, недавно переехал в частный дом и столкнулся с проблемой в...

2
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26502 / 17797 / 7043
Регистрация: 22.10.2011
Сообщений: 31,324
Записей в блоге: 6
15.03.2016, 17:44 2
Кому и зачем? Она что, делает что-то кардинальное, что очень сложно делать без нее? Обычная обертка над очень ограниченным числом функций, по мне - так удобнее использовать стандартные функции GraphABC, чем запоминать и привыкать к этой "библиотеке".
0
Соколиный глаз
C#
226 / 165 / 114
Регистрация: 25.07.2014
Сообщений: 3,259
Записей в блоге: 10
Завершенные тесты: 2
16.03.2016, 19:27  [ТС] 3
Действительно, незачем
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.03.2016, 19:27

Будет ли нормальной такая конфигурация?
Здравствуйте, будут ли сочетаться такие компоненты, как много я смогу из них...

Будет ли работать такая конфигурация?
Здравствуйте, решил собрать компьютер своей мечты лет так на 10 вперед, бюджет...

Будет ли работать такая сеть?
привет. ребят будет ли работать такая сеть?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru