|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Проблема с Fastdib
Доброго времени суток. Искал на форуме про Fastdib набрел на это. Если я компилирую этот код у меня вылетает ошибка.
Код:
procedure TForm1.Timer1Timer(Sender: TObject); var split:integer; bmp:tfastdib; x,y,k: Integer; Lin1: PLine24; pc: PFColor; begin for y:=0 to Bmp.AbsHeight-1 do //--Здесь ошибка begin Lin1:=Bmp.Scanlines[y]; for x:=0 to Bmp.Width-1 do begin k:=(76*Lin1[x].r+150*lin1[x].g+30*lin1[x].b) div 256; if k < Split then k:=0 else k:=255; Lin1[x].r:=k; Lin1[x].g:=k; Lin1[x].b:=k; end; end; end; |
#2
|
||||
|
||||
причина: не создан объект bmp:tfastdib
решение: его нужно создать подробнее: Create() Пишу программы за еду. __________________ |
#3
|
||||
|
||||
Какие параметры мне нужно прописать чтобы он создался? Делаю так
Код:
procedure TForm1.FormCreate(Sender: TObject); begin bmp := Tfastdib.Create; bmp.Width := image1.Width; bmp.Height := image1.Height; //bmp.PixelFormat := pf24bit;--в fastdib этого нет end; |
#4
|
||||
|
||||
Цитата:
Пишу программы за еду. __________________ |
#5
|
||||
|
||||
У кого есть Fastdib или хотя бы пользовался им, помогите пожалуйста!
|
#6
|
||||
|
||||
У меня валяется древняя-древняя версия. В ней имеются свйства:
Код:
Pixels8, Pixels16, Pixels24, Pixels32 Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#7
|
||||
|
||||
Работает! И поповоду "актуальности" что сейчас рулит?
|
#8
|
||||
|
||||
DirectX, OpenGl, OpenAL, GDI+ и т.д..
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |