Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.01.2012, 02:12   #1
toxid13
 
Регистрация: 17.06.2011
Сообщений: 7
Сообщение Программа, закрашивающая окно попиксельно

Доброго времени суток!
Данной средой пользуюсь впервые.
В борланде как делать знаю, но тут не могу разобраться что подключить и как заставить работать графические функции.
(ОС Linux)
toxid13 вне форума Ответить с цитированием
Старый 13.01.2012, 08:35   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

о какой среде идет речь?
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 13.01.2012, 09:21   #3
toxid13
 
Регистрация: 17.06.2011
Сообщений: 7
Сообщение

Цитата:
Сообщение от Пепел Феникса Посмотреть сообщение
о какой среде идет речь?
Я кроме Lazarus ничего нормального не нашел..
toxid13 вне форума Ответить с цитированием
Старый 13.01.2012, 10:36   #4
Smitt&Wesson
Старожил
 
Аватар для Smitt&Wesson
 
Регистрация: 31.05.2010
Сообщений: 13,543
По умолчанию

Цитата:
Сообщение от Пепел Феникса Посмотреть сообщение
о какой среде идет речь?
Если раздел " Общие вопросы Delphi", то наверное о Delphi.
Только я сути вопроса не понял. Что делать? Что знаю? Чего не знаю? Сплошной туман.
Пиши пьяным, редактируй трезвым.
Справочник по алгоритмам С++ Builder

Последний раз редактировалось Smitt&Wesson; 13.01.2012 в 10:38.
Smitt&Wesson вне форума Ответить с цитированием
Старый 13.01.2012, 14:24   #5
toxid13
 
Регистрация: 17.06.2011
Сообщений: 7
По умолчанию

Код:
begin
z:=0;
setwindowsize(256,256);

while z<1 do
  begin

i:=0;
j:=0;
k:=0;

  for x:=0 to 255 do
    begin
      i:=i+1;
      j:=j+1;
      k:=k+1;
  for y:=0 to 255 do
    begin
      setpixel(x,y,RGB(i,j,k));
  end;
  end;
  
i:=0;
j:=0;
k:=0;

  for x:=255 downto 0 do
    begin
      i:=i+1;
      j:=j+1;
      k:=k+1;
  for y:=255 downto 0 do
    begin
      setpixel(x,y,RGB(i,j,k));
    end;
    end;
    
  end;

END.
вот код, писался он в PascalABC под виндой. Сейчас у меня Linux, пользуюсь Lazarus. Как заставить это работать здесь?)
toxid13 вне форума Ответить с цитированием
Старый 13.01.2012, 22:11   #6
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

Цитата:
Если раздел " Общие вопросы Delphi", то наверное о Delphi.
в Линухе?

ТС, да в принципе вам надо заменить SetWindowSize на Self.Width,Self.Height(один раз в OnCreate)
а SetPixel на Canvas.Pixels[x,y]:=color в OnPaint.(ну и циклы соответственно, хотя правильнее было бы создать буфер, а его и рисовать)
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вывод картинки попиксельно SmilingBull Мультимедиа в Delphi 6 11.01.2011 02:01
Закрас попиксельно. NSvirus Паскаль, Turbo Pascal, PascalABC.NET 11 14.09.2010 21:08
Рисовать попиксельно Ooops Софт 2 15.12.2009 10:00
Сравнение попиксельно зоны рабочего стола с указанным *.bmp Travolta Общие вопросы .NET 1 02.12.2008 13:01
Как из .BMP считать попиксельно OrdJONY Мультимедиа в Delphi 7 17.08.2008 15:46