type TRGB=record b,g,r:byte; end; ARGB=array [0..1] of TRGB; PARGB=^ARGB;
var b:TBitMap;
procedure TForm1.FormCreate(sender:TObject); begin b:=TBitMap.Create; b.pixelformat:=pf24bit; b.width:=Clientwidth; b.height:=Clientheight; end;
procedure TForm1.Tim1OnTimer(sender:TObject); Var p:PARGB; x,y:integer; begin {$R-} for y:=0 to b.height-1 do begin
p:=b.scanline[y]; for x:=0 to!
b.width-1 do begin p[x].r:=random(256); p[x].g:=random(256); p[x].b:=random(256); end; end; canvas.draw(0,0,b); end;
procedure TForm1.FormDestroy(sender:TObject); begin b.free; end;
имя Материнской платы
Скажите пожалуйста кто может как определить имя материнской платы.
Копирование записей...
Уважаемые мастера, имеется adoQuery, dbGrid, база данных Access необходимо скопировать запись в БД(естественно, ...
Запуск программы
Господа! Подскажите как можно указать в программе каким приложением открывать тот или иной файл. Например, если на ...
TOracleSession опасна для сервера !!!
Доброго Вам времени суток ! У Вас возникала ситуация когда есть много юзеровских программ на одной машине, которые ...
Вопрос об индексах...
Есть таблица IB, состоящая к примеру из 3 полей. Отбор записей из этой таблицы производится по значениям всех 3-х полей....
ссылка на узел дерева
Не пойму, где ошибка Создаю класс TNodeInfo = class public NodeText:string; {текст нода} N:TTreeNode; {...
Глюк при показе формы
Здравствуйте, господа. Суть проблемы. Был старый вариант MDIChild формы. В процессе работы он был исправлен. Но при ...
Автоматическая обработка ошибок
Эта статья, в первую очередь, будет интересна начинающим программистам. Я расскажу об одном из методов обработки исключительных ситуаций, не очень распространенном, но довольно эффективном.
Delphi: специальный справочник
В книге содержится обширный справочный материал по основным элементам языка, включающий в себя наиболее употребительные функции, классы и объекты. Последовательно и подробно изложен процесс создания баз данных, Windows-приложений и динамических библиотек. Приложения с описанием различных кодов ошибок выполнения программ делает книгу полезной не только начинающим программистам, но и пользователям, активно работающим с Delphi
Автор: Б. Карпов
Хокку дня
Ветер осенний Брызги подняв Вброд переходит…
Афоризмы
В России надо жить долго, тогда что-нибудь получится (Корней Чуковский)
Фраза дня
Тот, кто храпит, засыпает первым.
Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Оклахоме (США) вам грозит тюрьма, если вы будете дразнить собак. В этом штате также женщинам запрещается самим стричь себе волосы, если они не имеют лицензии парикмахера.
В городе Найала в Неваде (США) в барах и ресторанах посетители не имеют права угощать напитками более, чем трех человек в день.
И на закуску коротенький анекдот
Хмурое утро, жена выгоняет интернетчика погулять с собакой... Он долго бродит с ней, потом поднимает палку, кидает её и командует: - Э-э-э, Яндекс!!! То есть, Рамблер!!! Тьфу, апорт!!!