Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.12.12;
Скачать: CL | DM;

Вниз

Прорисовка в DelphiX   Найти похожие ветки 

 
Nostradamus ©   (2002-10-08 18:47) [0]

Доброго времени суток, мастера,
Вот пишу свою первую игру с использованием DelphiX.
Есть у меня несколько процедур которые рисую определённые части интерфейса. Иногда когда я вызываю их поочерёдно и в конце пишу DXDraw.Flip и оно рисует только то что выводит последняя процедура. Что интересно если сразу же выполнить тот же код (последовательность процелр и Flip) всё прорисовывается нормально. Не пойму почему.

P.S. Надеюсь я не слишком запутанно сформулировал вопрос.


 
Ibrik   (2002-10-11 13:17) [1]

Выложи сюда куок кода


 
Nostradamus ©   (2002-10-11 15:54) [2]

Оказывается кстати это происходит только в Fullscreen. В окне всё нормально прорисовывает...


...
PaintMenu;
PaintGameInfo;
PaintCurCard;
RepaintBoard;
DXDraw.Flip;
...
procedure TGame.PaintMenu;
begin
...
ImageList.Items[1 + I].StretchDraw(fOwnSurface.Surface, fMenuRectAr[I], 0);
...
end;

procedure TGame.PaintCurCard;
begin
...
Canvas.Font.Color := clRed;
Canvas.TextOut(CurCardRect.Left + 10, CurCardRect.Top + 10, fPlayers[fCurPlayer].Name);
...
B := TBitmap.Create;
B.Width := 144;
B.Height := 142;
B.LoadFromFile(FileName);

Main.DXDraw.Surface.Canvas.StretchDraw(TempRect, B);
Main.DXDraw.Surface.Canvas.Release;
...
end;


Ну и 2 остальные процедура по тому же принцыпу.


 
Дьякон ФРОСТ   (2002-11-28 00:14) [3]

вопрос:
а ты только в TGame.PaintCurCard Canvas релиzаешь?
я с ДХ недавно zнаком но именно иz-zа того что zабывал иногда релиzать имел удовольствие соzерцать немало глюков.


 
сергей   (2003-04-09 15:53) [4]

Удалено модератором
Примечание: Задайте вопрос в отдельной ветке


 
A_n_t   (2003-04-10 05:43) [5]

А зачем ты вообще иcпользуешь TBitmap? Раз работаешь с DirectX, то и бери его родные поверхности TDirectDrawSurface. И канвас не надо юзать, и быстрее должно работать. Возможно в этом и состоит баг.


 
Мор   (2003-04-13 03:45) [6]

Используй Release:

with DXDraw.Canvas do
begin
...
TextOut(X, Y, "Test");
...
Release;
end;


 
Андрей   (2003-05-29 18:43) [7]

Удалено модератором
Примечание: Задайте вопрос в новой ветке


 
Плохой человек   (2003-05-29 20:13) [8]

Удалено модератором


 
Андрей   (2003-05-30 10:45) [9]

Как с помощью DelphiX вывести объемный текст, вращать его, а также проигрывать AVI



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

Текущий архив: 2003.12.12;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.015 c
14-36811
wHammer
2003-11-20 10:37
2003.12.12
Подскажите есть ли в природе...


1-36718
konstantinov
2003-12-02 00:44
2003.12.12
Оптимизация кода


1-36736
Анна
2003-12-01 17:42
2003.12.12
Открытие других программ из приложения


1-36675
CAHbKA
2003-12-03 07:57
2003.12.12
NumEdit


1-36613
BaDeVlad
2003-12-01 14:05
2003.12.12
Можно ли задать размер файла на диске ничего не записывая?