Показать сообщение отдельно
Старый 08.08.2010, 14:36   #6
Rock2roll
Знающий
 
Аватар для Rock2roll
 
Регистрация: 14.05.2010
Сообщений: 297
Написано 13 полезных сообщений
(для 13 пользователей)
Ответ: Моя первая прога: ScreenInfo

о_О либа....я все функции которые ты перечислил за 2 мин зделаю без либы, 10 строк максимум кода...ОМГ. имхо.

Program screen;
Var
Begin
drawText('Width: '+getWidth,5,5);
drawText('Height: '+getHeight,5,30);
//это размеры. как-то так...
drawText('Colors: '+GetColorsNum,5,50);
//цвета.
repaint;
delay(-1);
end;

А вот "битые пиксели" я хз????
__________________
G502, GT S5230w user!
(Offline)
 
Ответить с цитированием