ScanLine и быстрый доступ к массиву Tbitmap - 19 Апреля 2012

Главная » » ScanLine и быстрый доступ к массиву Tbitmap

09:25 ScanLine и быстрый доступ к массиву Tbitmap
пример функции которая отображает значения цвета в RGB разбивке позволяет напрямую обращаться к массиву точек Bitmap procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if not Assigned(form1.image1.Picture.Bitmap) then Exit; with form1.Image1.Picture.Bitmap do case PixelFormat of pfCustom : caption := Format('x: %d y: %d b: %d',[x, y, pByteArray(ScanLine[y])^[x]]); pf24bit: caption := Format('x: %d y: %d R: %d,G: %d, B: %d', [x,y, pByteArray(ScanLine[y])^[3x], pByteArray(ScanLine[y])^[ 3x+1], pByteArray(ScanLine[y])^[ 3*x+2]]); end; end; также обновил Программу рисования линий как в вконтакте эффект Alpha наложения http://netsoftware.ucoz.ru/news/zadacha_ehffekt_alfa_nalozhenija/2011-07-16-4 теперь программа работает через ScanLine
1 2 3 4 5 Просмотров: 1993 \| Добавил: NetSoftWare \| Рейтинг: 2.0/1

Delphi заготовки