Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];




Вниз

DelphiX 


XeN   (2001-12-26 17:59) [0]

Народ! Как на DelphiX можно рисовать на TDXDraw картинку, которая постепенно пропадает. DrawAlpha не катит, слишком уж тормозит.



XeN   (2001-12-27 09:39) [1]

Неужели никто не знает?



ZEE   (2001-12-27 10:54) [2]

На счет TDXDraw не знаю, но вот тебе небольшая процедура, которая постепенно "гасит" (затемняет) изображение (ее надо выполнять несколько раз)
bmResult - витмап для затемнения
iAlpha - величина "незатемнения" (т.е. чем она больше - тем большее кол-во раз надо вызывать процедуру до полного затемнения)


procedure DropShadow24(iX,iY,iWidth,iHeight:integer;var bmResult:TBitmap;iAlpha:integer);
var
pBits:pointer;
i,j,k,iSize:integer;
begin
if not (bmResult.PixelFormat=pf24bit) then Exit;
iSize:=bmResult.Width*bmResult.Height*3;
GetMem(pBits,iSize);
GetBitmapBits(bmResult.Handle,iSize,pBits);
for j:=iY to iY+iHeight-1 do
for i:=iX to iX+iWidth-1 do
begin
k:=j*bmResult.Width*3+i*3;
asm
PUSHAD
MOV ECX,pBits
ADD ECX,k
MOV EBX,iAlpha
MOV AL,[ECX]
MUL BL
MOV [ECX],AH
INC ECX
MOV AL,[ECX]
MUL BL
MOV [ECX],AH
INC ECX
MOV AL,[ECX]
MUL BL
MOV [ECX],AH
POPAD
end
end;
SetBitmapBits(bmResult.Handle,iSize,pBits);
FreeMem(pBits)
end;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.012 c
1-52600           Romul                 2001-12-29 17:10  2002.01.17  
Вопрос по TThread


7-52678           Andey                 2001-09-27 19:55  2002.01.17  
Определение номера


3-52490           Андре                 2001-12-14 11:50  2002.01.17  
Поля массивы в Interbase


1-52586           Mikhalyov Dmitry      2001-12-27 16:21  2002.01.17  
О фреймах


7-52670           Дядька Форгер         2001-09-27 08:13  2002.01.17  
Вовместимость