Моя первая прога: ScreenInfo
 

Вот решил опубликовать...
Данная программа:
-Отображает ваше разрешение экрана (версия глюкавая, 128х128 не показывает)
-Отображает количество различных цветов вашего экрана
-Включает тест на "Битые пиксели"

Не судите строго...:-)

P.S. Архив называется ScreenMeter по имени прошлых версий (они только экран мерили)
Новое в build 11:
+добавлено разрешние 360 на 640
(отпишетесь в личку, какие ещё они бывают, я из сибирской глубинки:-D )

Ответ: Моя первая прога: ScreenInfo
 

Тест на Nokia 5800
Ваше разрешение:360px. xpx.
Количество цветов, которые может отображать ваш экран: 16777216
Высоту, похоже, не определил, а она 640
Тест на битые пиксели только в половину экрана.

Ответ: Моя первая прога: ScreenInfo
 

странно что не работает...
ты ведь просто getwidth и getheight юзаешь, а они вроде не подводят...

Ответ: Моя первая прога: ScreenInfo
 

----------Новое в build 12------------
Тест на битые пиксели можно запускать раз 15-20 (точно не считал);
Добавлено разрешение 480х800 (Samsung WiTu);

Ответ: Моя первая прога: ScreenInfo
 

Я поборол свою лень и доделал Screen Info... :-)
Теперь показывает все размеры экранов! (спасибо огромное Bruteo за lib_displaysize)

Ответ: Моя первая прога: 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;

А вот "битые пиксели" я хз????

Ответ: Моя первая прога: ScreenInfo
 

На форме getheight возвращает не всю высоту а только часть (без заголовка и строки команд в пикс.)
А пиксели -- секрет фирмы (за $100,000 продам :-D)
+ у меня в коде 78 строк, чтобы "секрет фирмы" можно было бесконечно нажимать... (я считаю, что в проге не должно быть недоработок)

--------------
:p
--------------