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

[Bananbl4]

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

Не судите строго...

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

[ABTOMAT]

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

[cherepets]

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

[Bananbl4]

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

[Bananbl4]

Ура товарищи!

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

[Rock2roll]

о_О либа....я все функции которые ты перечислил за 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;

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

[Bananbl4]

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

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