В библиотеке есть функция, она постоянно вызывается. Мне надо получить примерно такое: (см. DrawTextA то что курсивом)
Код:
1 2 3 4 5 6 7 8 9 10 11 | unction EndScene9Callback(self: pointer): HResult; stdcall;
var
TextRect: TRect;
color:TD3DColor;
begin
TextRect := Rect(300,300,300,300);
g_Font.DrawTextA(nil,PChar(<b><i>From1.Edit1.Text</i></b>),-1, @TextRect,DT_LEFT or DT_NOCLIP,D3DCOLOR_RGBA($ff, $00, $00, $ff));
Result:=EndScene9Next(self);
end;
|