
10.02.2011, 14:45
|
 |
Let Me Show You
|
|
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
|
|
Код:
function EndScene9Callback(self: pointer; text: PChar): HResult; stdcall;
var
TextRect: TRect;
color:TD3DColor;
begin
TextRect := Rect(300,300,300,300);
g_Font.DrawTextA(nil,text,-1, @TextRect,DT_LEFT or DT_NOCLIP,D3DCOLOR_RGBA($ff, $00, $00, $ff));
Result:=EndScene9Next(self);
end;
Админ: Про теги не забываем...
__________________
Пишу программы за еду.
__________________
|