Вниз
Скачать: CL | DM;

Ошибка   Найти похожие ветки 

← →
Evgeniy_K   (2004-07-22 16:19) [0]

Что-то я забыл :)

function DrawChar(Surface: IDirectDrawSurface7; ch: char; x,y: integer; size: Byte): HResult;
var
 Source: TRect;
 p: Integer;
begin
 Result:= DD_OK;
 if not Assigned(TextMatrix) then begin
   Result:= DD_FALSE;
   exit;
 end;
 // "mask"
 p:= ord(ch) - 32;
 with Source do begin
   Left:= (p mod 16) * 15;
   Right:= Left + 15;
   Top:= (p div 16) * 15;
   Bottom:= Top + 15;
 end;
 Result:= Surface.BltFast(x, y, TextMatrix, @Source, DDBLTFAST_WAIT or DDBLTFAST_SRCCOLORKEY);
end;


Эта функция ничего не нарисует. Если yfgнаписать так:
function DrawChar(out Surface: IDirectDrawSurface7; ch: char; x,y: integer; size: Byte): HResult;

то будет ошибка, мол FFFFFF Что я где забыл? Заранее спасибо.


← →
Evgeniy_K   (2004-07-22 17:26) [1]

Никто что лли не знает? =(


← →
cyborg ©   (2004-07-22 17:42) [2]

function DrawChar(Var Surface: IDirectDrawSurface7; ch: char; x,y: integer; size: Byte): HResult;

TextMatrix может кривой.


← →
Evgeniy_K   (2004-07-22 17:51) [3]

Var и Out - одно и тоже. TextMatrix не кривой! Если все это перенести в тот же объект, где эта поверхность, то будет работать. Мне надо же чтобы было в отдельном модуле.


← →
Evgeniy_K   (2004-07-22 18:01) [4]

он на входе говорит, что я обращаюсь к несуществующей поверхности


← →
Белый Крыс ©   (2004-07-22 18:31) [5]

function DrawChar(const Surface: IDirectDrawSurface7; ch: char; x,y: integer; size: Byte): HResult;
Может так. Проверь, точно ли загружается графика. У тебя именно через 15 пикселей идут буквы?


← →
NikeOLD ©   (2004-11-08 16:11) [6]


> Evgeniy_K   (22.07.04 17:51) [3]
> Var и Out - одно и тоже.

Не одно и тоже.


← →
Anton_K ©   (2004-11-08 16:58) [7]

ИМХО, ошибка не в этой функции. А var, out, const тут никакой роли не играют, так как Surface здесь интерфейс, то есть Pointer.


← →
Anton_K ©   (2004-11-08 17:08) [8]

Хотя, out лучше всё-таки не писать. :-)



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c
3-1105635464
misha_gr
2005-01-13 19:57
2005.02.13
проблемка с TADOQuery


1-1106812672
Russko
2005-01-27 10:57
2005.02.13
Проблема с MDI приложением


1-1106511411
acc15
2005-01-23 23:16
2005.02.13
Как работать с типизированными файлами


6-1101665260
leprikon_ix
2004-11-28 21:07
2005.02.13
Просмотр файловой системы удаленного ПК


1-1107029656
k@rt
2005-01-29 23:14
2005.02.13
TTreeView - сохранение в файл




   Наверх