Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Игры";
Текущий архив: 2003.12.12;
Скачать: [xml.tar.bz2];

Вниз

Прорисовка в 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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.008 c
1-36723
Alexadna
2003-12-02 13:02
2003.12.12
Позиция курсора в строке


1-36755
Alexx
2003-12-01 21:16
2003.12.12
Новичок. Подскажите как остановить кнопку.


3-36553
Chuha
2003-11-20 22:11
2003.12.12
Файлы+БД


1-36611
mynameis
2003-12-01 15:04
2003.12.12
Перемещение мыши по десктопу из моей программы.


1-36624
Навичек
2003-12-01 12:11
2003.12.12
Консольное приложение вылетает на end.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский