TRect: Top
: integer; Bottom : integer; Left :
integer; Right : integer; или
просто TopLeft : Тpoint BottomRight :
Tpoint
одним словом
записи: rect.TopLeft.X:=100; rect.TopLeft.Y:=200; и rect.Left:=100; rect.Top:=200 абсолютно
равны.
Небольшой примерчик:
procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
const k:integer=0; n:integer=0;
var rect:trect;
begin
if not DXDraw.CanDraw then exit;
if n = 10 then k:=-1;
if n = 0 then k:=1;
n:=n+k;
rect.left:=10;
rect.right:=10*n;
rect.top:=10;
rect.bottom:=10*n;
DXDraw.Surface.Fill(0);
DXIMageList.Items.Find("1").StretchDraw(DXDraw.Surface,rect,0);
DXDraw.Flip
end;
3. DrawAlpha - Выводит с
прозрачностью, так-же параллельно можно делать stretch
Небольшой
примерчик: Киньте какой-нибудь фон, сразу будет видно
прозрачность.
procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
const k:integer=0; n:integer=0;
var rect:trect;
begin
if not DXDraw.CanDraw then exit;
if n = 10 then k:=-1;
if n = 0 then k:=1;
n:=n+k;
rect.left:=50-n*5;
rect.right:=50+n*5;
rect.top:=50-n*5;
rect.bottom:=50+n*5;
DXDraw.Surface.Fill(0);
DXIMageList.Items.Find("1").DrawAlpha(DXDraw.Surface,rect,0,n*25);
DXDraw.Flip
end;
Все остальное чуть
позже. 4. DrawAdd : Хорошо подходит для создания
эффектов. Вспышек, взрывов.:
5. DrawSub : Хорошо
подходит для создания теней.:
6. DrawRotate :
Вывод с поворотом исходного спрайта:
CenterX,CenterY - ось вращения. При
CenterX и CenterY равных 0 ось проиходит через левый-верхний
угол спрайта При CenterX и CenterY равных 0.5 ось проиходит
через центр спрайта При CenterX и CenterY равных 1 ось
проиходит через правый-нижний угол спрайта Angle -
угол поворота, изменяется от 0 до 255
Небольшой
примерчик:
procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
const k:integer=0; n:integer=0;
begin
if not DXDraw.CanDraw then exit;
if n = 256 then k:=-1;
if n = 0 then k:=1;
n:=n+k;
DXDraw.Surface.Fill(0);
DXIMageList.Items.Find("1").DrawRotate(DXDraw.Surface,50,50,50,50,0,0.5,0.5,n);
DXDraw.Flip
end;
7. DrawRotateAlpha :
Вывод с поворотом исходного спрайта + Alpha:
8.
DrawRotateAdd : Вывод с поворотом исходного спрайта +
9. DrawRotateSub : Вывод с поворотом исходного
спрайта + Sub
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Пример создания 3D движка", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!