Окно больше экрана/создание и сохранение графики произвольного размера

@czym6 · 12.01.2017, 19:31. **Показов** 2311. **Ответов** 3

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

Доброго вечера.
Есть какие-то способы сделать окно GraphABC (если нельзя, но есть альтернативы, в которых можно - пишите) больше размера монитора и/или создавать и сохранять графику произвольного (Имеется в виду, чтобы опять же больше экрана) размера?
Если кратко - программа должна сгенерировать некую картинку и затем сохранить ее, причем чем больше будет ее размер, тем лучше (желательно все-же больше размера обычных сейчас мониторов, например, моего 1366x768).

@Puporev · 12.01.2017, 20:12

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses graphABC;
var b:Picture;
    i,j:integer;
begin
b:=Picture.create(2000,2000);
for i:=1 to 100 do
for j:=1 to 100 do
 begin
  if odd(i+j) then setbrushcolor(clRed)
  else setbrushcolor(clBlue);
  b.rectangle(j*20,i*20,j*20+20,i*20+20);
 end;
b.Save('1.bmp'); 
 
end.

@volvo · 12.01.2017, 20:42

WinForm-у можно:

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
{$reference 'System.Windows.Forms.dll'}
{$reference 'System.Drawing.dll'}
uses system, System.Windows.Forms, System.Drawing;
 
function MoveWindow(handle : System.IntPtr; x, y, w, h : Integer; repaint : boolean) : boolean; external 'User32.dll';
 
var f : form;
 
procedure OnLoad(sender : object; e : EventArgs);
begin
  f.MaximumSize := new System.Drawing.Size(1920, 1080);
  MoveWindow(f.Handle, f.Left, f.Top, 1920, 1080, true);
end;
procedure OnPaint(sender: object; e: PaintEventArgs);
begin
  e.Graphics.DrawLine(new Pen(Color.Black), 0, 0, f.Width, f.Height);
end;
 
begin
  f := new Form;
  f.Load += OnLoad;
  f.Paint += OnPaint;
  Application.Run(f);
end.

В принципе, главное окно GraphABC можно тем же макаром сделать любого размера, но вот рисовать в нем можно будет только по размеру экрана, все остальное прорисовываться не будет.

@czym6 · 12.01.2017, 23:52 **[ТС]**

А если сдвигать окно? То есть, например, нужно отрисовать на участке картинки "за экраном" - сместить картинку влево?

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

@czym6 Заблокирован

	Окно больше экрана/создание и сохранение графики произвольного размера 12.01.2017, 19:31. Показов 2311. Ответов 3 Метки нет (Все метки) Доброго вечера. Есть какие-то способы сделать окно GraphABC (если нельзя, но есть альтернативы, в которых можно - пишите) больше размера монитора и/или создавать и сохранять графику произвольного (Имеется в виду, чтобы опять же больше экрана) размера? Если кратко - программа должна сгенерировать некую картинку и затем сохранить ее, причем чем больше будет ее размер, тем лучше (желательно все-же больше размера обычных сейчас мониторов, например, моего 1366x768). 0

@czym6 Заблокирован
	12.01.2017, 23:52 [ТС]
	А если сдвигать окно? То есть, например, нужно отрисовать на участке картинки "за экраном" - сместить картинку влево? 0

Опции темы