RusFAQ.ru: Программирование на Delphi (comp.soft.prog.delphiplus) : Рассылка : Subscribe.Ru

RusFAQ.ru: Программирование на Delphi

RusFAQ.ru: Программирование на Delphi

Статистика

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi
Выпуск № 197
от 01.08.2005, 21:30

Отправить вопрос экспертам этой рассылки

RFpro.ru: Программирование на Delphi и Lazarus

Статистика

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / DelphiВыпуск № 197от 01.08.2005, 21:30

Отправить вопрос экспертам этой рассылки

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi
Выпуск № 197
от 01.08.2005, 21:30

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.308 RSS

← Август 2005 →
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29 29.08.2005 18:47:54 18:48:05	30	31

За последние 60 дней ни разу не выходила

Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор

Калашников О.А.

3.308 подписчиков
0 за неделю

← Все выпуски →

Информационный Канал Subscribe.Ru

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Администратор:	Калашников О.А.
В рассылке:	Подписчиков: 219, Экспертов: 40
В номере:	Вопросов: 2, Ответов: 5

Вопрос № 24071: Как работать со Спрайтами в DelphiX? Читал разные статьи,но не как не могу понять. Мне нужно чтобы спрайт перемещался. Буду рад любым ответам....

Вопрос № 24098: Здравствуйте, Начал плотно заниматься Interbase и возникли вопросы по Stored Proedure 1) Как входным параметром передать название таблицы для раздела FROM? 2) Как обратиться к другой базе данных из Stored Proedure в текущей? 3) Как уп...

Вопрос № 24.071

Как работать со Спрайтами в DelphiX?
Читал разные статьи,но не как не могу понять.
Мне нужно чтобы спрайт перемещался.
Буду рад любым ответам.

Отправлен: 26.07.2005, 21:48
Вопрос задал: Sassoft (статус: Посетитель)
Всего ответов отправлено: 2

Отвечает: svsrus
Здравствуйте, Sassoft!

Здравствуйте, Sassoft!

Статья Динара Шакирова с сайта "Королевство Delphi". Предельно ясно и просто.

см. приложение
Приложение:
Для начала допустим, что у нас есть исходная форма Form1 типа TForm Внести в форму следующие компоненты из вкладки DelphiX DXSpriteEngine1 - спрайтовый движок DelphiX DXDraw1 - графический движок DelphiX DXImageList1 - будущая коллекция наших спрайтов DXTimer1 - таймер связанный с DXSpriteEngine1 DXInput1 - слежение за мышью/джойстиком/клавиатурой Изменить тип исходной формы на TDXForm вместо TForm Внести в DXImageList1 необходимые нам рисунки спрайтов - для этого нужно дважды кликнуть на компоненте и в открывшемся меню выбрать нужные спрайты. Выставить в компоненте DXImageList1 в поле TDXDraw значение нашего графического движка - DXDraw1, чтобы связать их. В методе OnCreate нашей формы создаём палитру из цветов выбранных из наших спрайтов и заполняем соответствующие поля графического движка DXDraw1 : DXImageList1.Items.MakeColorTable; DXDraw1.ColorTable := DXImageList1.Items.ColorTable; DXDraw1.DefColorTable := DXImageList1.Items.ColorTable; DXDraw1.UpdatePalette; Настраиваем разрешение и др. параметры графического движка DXDraw1 в том же методе OnCreate нашей формы: //если нам необходим полноэктанный режим DXDraw1.Options := DXDraw1.Options + [doFullScreen]; DXDraw1.Width := 1024; DXDraw1.Height := 768; DXDraw1.Display.Width := 1024; DXDraw1.Display.Height := 768; DXDraw1.Display1.BitCount := 32; // глубина цвета DXForm1.BorderStyle := bsNone; // если нужно убрать рамку формы DXDraw1.Left := 0; DXDraw1.Top := 0; DXDraw1.Cursor := crNone; // если нужно убрать курсор; // всё - графический движок запущен и готов к использованию. DXDraw1.Initiate; Заполняем метод OnTimer компонента DXTimer1 (не забыть выставить поле Interval этого компонента): // регулярное обновление событий клавиатуры/мыши DXInput1.Update; //смещаем все спрайты в целом на 5 шагов //(правила смещения отдельного спрайта описываются позже в самом спрайте). DXSpriteEngine1.DoMove (5); //замораживаем спрайтовый движок; DXSpriteEngine1.Dead; //очистка экрана (очень быстрая) DXDraw1.Surface.Fill(0); //прорисовываем все спрайты (пока только в памяти) DXSpriteEngine1.Draw; //отображаем всё что получилось на экран DXDraw1.Flip; После всего этого графический движок уже может нормально функционировать - остаётся только создать и зарегистрировать наши спрайты и их поведение в спрайтовом движке. Создание фона и спрайтов: Существует несколько типов спрайтов, которые можно легко использовать в приложении. Необходимо уяснить для себя какими свойствами обладает тот или иной спрайт (как он движется) и ограничить себя необходимым типом: TSprite - простой неанимированный спрайт - может совершать лишь поступательные движения и неспособен менять свой рисунок. TImageSrite - простой анимированный спрайт - может совершать поступательные движения и пробегать при этом анимационный ряд (последний интуитивно устанавливается в компоненте DXImageList1). TImageSpriteEx - самый сложный из доступных - может совершать не только поступательные движения но и вращаться (разумеется в плоскости монитора) да ещё при этом пробегать анимационный ряд. TBackgroudSprite - фон - неанимирован фиксирован относительно спрайтового движка (хотя можно перемещаться относительно него - при этом он периодически повторяется в бесконечном пространстве) Для создания спрайта необходимо описать его тип - его начальные данные и поведение. type TMySprite = class (TImageSpriteEx); constructor Create (AParent : TSprite) ; override; procedure DoMove (movecount : Integer) ; override; end; Начальные данные задаются в конструкторе: constructor TMySprite.Create(AParent : TSprite) ; begin //регистрация в спрайтовом движке inherited Create (AParent); //задаём картинку или анимационный ряд нашего спрайта - берём их из //коллекции рисунков DXImageList1 Image := DXForm1.DXImageList1.Items.Find ('мой спрайт.bmp'); Width := Image.Width; //указываем размеры спрайта как у его рисунка. Height := Image.Height; //координата X нашего спрайта; X := //координата Y нашего спрайта; Y := //глубина на которой спрайт находится - если Z спрайта больше, //чем у других - он всех будет крыть. Z := //Только для анимированных спрайтов: //указывает сколько рисунков в анимационном ряду. AnimCount := Image.PatternCount; AnimLooped := //true - если ряд зациклен, false - если нет AnimPos := //начальный рисунок в анимационном ряду. //Только для вращающихся спрайтов //Angle - угол поворота спрайта - 0 вверх, 64 вправо, 128 вниз, //192 - влево, 256 - вверх и так далее. //Только для фона: //если неоходимо периодически заполнить всё //пространство одним рисунком, false - если нет такой необходимости. Tile := true end; Конечно же не обязательно описывать всё это в конструкторе - это можно сделать и в runtime после создания спрайта. Сам объект спрайт в runtime создаётся (и регистрируется) обычно, как и все другие объекты - нужно лишь указать наш спрайтовый движок: MySprite := TMySprite.Create (DXSpriteEngine1.Engine); И теперь, в общих словах, о поведении спрайтов. Все те свойства, которые были описаны в конструкторе разумеется можно менять. Поведение каждого спрайта должно быть описано в его методе DoMove, который впоследствии автоматически вызывается - когда мы вызываем метод нашего движка DXSpriteEngine1.Move(5) - вызываются автоматически все методы DoMove для всех зарегистрированных спрайтов (причём в данном случае ровно 5 раз). Описание поведения для отдельного спрайта будет выглядеть так: procedure TMySprite.DoMove (movecount : Integer); begin inherited DoMove (movecount); //а здесь задаём поведение(меняем координаты- X,Y,Z, угол //поворота - Angle , рисунок в анимационном ряду - AnimPos и т.п.) end; И напоследок замечу, что можно менять и положение экрана относительно фона - для этого существуют поля DXSpriteEngine1.Engine.X и DXSpriteEngine1.Engine.Y соответственно.

Ответ отправил: svsrus (статус: 1-ый класс)
Отправлен: 26.07.2005, 22:25

Отвечает: Gin

Здравствуйте, Sassoft!

В ответе ограничение на размер.
Выслал пример на личную почту (см. на сервере в личных сообщениях).

С Уважением, Gin.

Ответ отправил: Gin (статус: Студент)
Отправлен: 29.07.2005, 07:53

Вопрос № 24.098

Здравствуйте,
Начал плотно заниматься Interbase и возникли вопросы по Stored Proedure
1) Как входным параметром передать название таблицы для раздела FROM?
2) Как обратиться к другой базе данных из Stored Proedure в текущей?
3) Как упаковать (уменьшить размер) GDB файл, после удаления больших таблиц?

С Уважением,
Андрей

Отправлен: 27.07.2005, 12:26
Вопрос задал: Побережный (статус: Посетитель)
Всего ответов отправлено: 3

Отвечает: Полищук Владислав Игоревич
Здравствуйте, Побережный!
1. Никак
3. Провести операции BackUp/Restore
С уважением Владислав

---------
Чтобы вчера не случилось, радуйся новому дню

Ответ отправил: Полищук Владислав Игоревич (статус: 1-ый класс)
Отправлен: 27.07.2005, 12:47

Отвечает: sir henry
Здравствуйте, Побережный!
1) Вообще какие-либо параметры в хранимую процедуру можно передавать так:
CREATE PROCEDURE MyProc (параметр тип_параметра)
Например:
CREATE PROCEDURE GetName (Nm VARCHAR(20))
AS
BEGIN
FOR SELECT nam FROM :Nm
DO
SUSPEND;
END
2) Перед тем как обращаться к другой базе надо как следует подумать, а нужно ли это делать. Лучше, чтобы все что нужно для вычислений лежало в одной базе.
К другой базе можно обратиться по ее псевдониму (предварительно ее надо открыть):
SELECT * FROM :ПсевдонимБазы:Таблица
3) Собственных утилит или команд упаковки у InterBase нет. Однако это можно сделать и косвенным образом - производя выгрузку и обратную загрузку базы данных. Одновременно это служит способом проверки превичных ключей на вшивость (они заново перестраиваются). Делается это с помощью утилиты резервного копирования gbak. После загрузки БД пустых мест не остается, все страницы идут плотно, одна за другой.

Ответ отправил: sir henry (статус: Профессор)
Отправлен: 27.07.2005, 20:25

Отвечает: Tsechoev Bagaudin
Здравствуйте, Побережный!
Андрей, будь добр скажи к какой базе?!
Я же не могу описать все базы, которые я знаю.
---------
Есть только одно зло - невежество, и только одно благо - знания

Ответ отправил: Tsechoev Bagaudin (статус: 10-ый класс)
Отправлен: 28.07.2005, 00:20

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.

Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора

Подписан адрес:
Код этой рассылки: comp.soft.prog.delphiplus

Отписаться
Вспомнить пароль

В избранное

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} {#if $P.login_register_tab == 1} <form class="authentication-form" method="post" action="/MEMBERLOGIN_authen_cred"> <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <h1>Войти на сайт</h1> {* {#include js_tmpl_auth_reg_button} *} {#include js_tmpl_auth_reg_action} <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones"><p>{#include js_tmpl_auth_reg_descr} </p></div> <div class="logreg_advice noPhones"> Если вы еще не с нами, то начните с <a href="#" onclick="rgNav('js_tab_reg');return false;" class="dashed" data-func="registr">регистрации</a> </div> <br><br> <a class="dashed auth-enter" href="/manage/author/"><b>Вход для авторов</b></a> </dt> </dl> </form> {#/if} {#if $P.login_register_tab == 2} <div class="rg_block_options"> <div id="js_tap_panel_auth"> <h1>Регистрация</h1> <div class="social_reg"> {* <div class="rg_description">{#include js_tmpl_soc_auth_reg_descr}</div> *} {#include js_tmpl_auth_reg_soc} <div class="rg_soc_auth_agree">{#include js_tmpl_auth_reg_agree}</div> </div> <div class="subscribe_reg"> {* <div class="rg_description"> #include js_tmpl_auth_reg_descr </div> *} {#include js_tmpl_auth_reg_action} </div> {* {#include js_tmpl_auth_reg_button} *} <div class="clr"> </div> <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones">{#include js_tmpl_auth_reg_descr} {#include js_tmpl_soc_auth_reg_descr} </div> </div> </div> {#/if} </div> {* <div class="gray_bg register_shadow"></div> *} </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_auth" class="{#if $P.login_register_tab == 1} rg_active_nav {#/if} rg_first_nav"><a onclick="rgNav('js_tab_auth');return false;" href="">Вход на сайт</a></li> <li id="js_tab_reg" class="{#if $P.login_register_tab == 2} rg_active_nav {#/if}"><a onclick="rgNav('js_tab_reg');return false;" href="">Регистрация </a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_action} {#if $P.login_register_tab == 1} {#include js_tmpl_auth_reg_soc} {#/if} <div class="rg_forms"> <input type="hidden" id="login_register_destination" value="{$P.login_register_destination}"/> {#if $P.login_register_tab == 1} <div class="rg_for_input"> <span class="rg_text_inner">E-mail или код подписчика</span> <input id="credential_0" class="js_keydown_selector rg_input_text" data-js_submit="no" data-js_next_input_name="credential_1" name="" type="text" /> </div> <div class="rg_for_input"> <span class="rg_text_inner">Пароль</span> <input id="credential_1" class="js_keydown_selector rg_input_text" data-js_submit="yes" data-js_action="js_loginFormBut" name="" type="password" onkeyup="showAttention(this,!!window.event.shiftKey)" /> <span class="pswd_attention" id="attention_pswd"> <span class="icon_attention"></span> <span class="pswd_attention-text" id="attention-text_pswd1">Русская раскладка клавиатуры!</span> <span class="pswd_attention-text" id="attention-text_pswd2">У вас включен Caps Lock!</span> <span class="pswd_attention-text" id="attention-text_pswd3">У вас включен Caps Lock и русская раскладка клавиатуры!</span> </span> </div> <div class="rg_for_input input-alien"> <span class="chk noPhones"><input id="chk_alien" name="" type="checkbox" /></span><label for="chk_alien" class="noPhones"> Чужой компьютер</label> <a class="forgot_pass" href="/member/totalrecall">Забыли пароль?</a> </div> <div class="rg_for_input"> <em id="auth_msg" class="reg_error"></em> <input id="lf_typeauthid" value="email" type="hidden"> <input type="submit" class="button button-red logreg_submit" id="js_loginFormBut" value="Войти">  <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} {#if $P.login_register_tab == 2} <div class="rg_for_input"> <span class="rg_text_inner">E-mail</span> <input id="arfemail" class="js_keydown_selector rg_input_text" name="" type="text" data-js_submit="yes" data-js_action="js_regFormBut"/> </div> <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a> </label> <br /> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_personal' type="checkbox" data-js_submit="yes" /></span> Нажимая на кнопку "Готово!", я даю <a class="link_txd logreg_accLink" href="/faq/persverordnung.html">согласие на обработку персональных данных</a> </label> </div> {* <div style="float: left;position: absolute;left: 11em;"> <img src="http://www.kupivip.ru/images/vip/logo.png?1604" style="width: 86px; vertical-align: middle;display: block;"> </div> <div class="rg_for_input rg_set_lineh"> <label class="js_tap_panel_checkbox"><input name="" id="js_tap_panel_checkbox_kupivip" type="checkbox" data-js_submit="yes"> Я хочу получать новости о скидках на одежду</label> </div> *} <div class="rg_for_input"> <em id="reg_msg" class="reg_error rg_for_input_wide"></em> <em id="reg_msg2" class="reg_error rg_for_input_wide"></em> <input id="rf_typeauthid" value="email" type="hidden"> <a class="button button-red logreg_submit" id="js_regFormBut" href="#">Готово!</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} </div> {#/template js_tmpl_auth_reg_action} {#template js_tmpl_auth_reg_agree} <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms_reg' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a></label> <em id="reg_msg_soc" class="reg_error rg_for_input_wide"></em> </div> {#/template js_tmpl_auth_reg_agree} {#template js_tmpl_auth_reg_button} <div class="rg_butons_socials"> {#if $P.login_register_tab == 1} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} {#if $P.login_register_tab == 2} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} </div> {#/template js_tmpl_auth_reg_button} {#template js_tmpl_auth_reg_descr} {#if $P.login_register_tab == 1} Для оформления подписки на выбранную рассылку, работы с интересующей вас группой или доступа в нужный вам раздел, просим авторизоваться на Subscribe.ru {#/if} {#if $P.login_register_tab == 2} Для регистрации укажите ваш e-mail адрес. Адрес должен быть действующим, на него сразу после регистрации будет отправлено письмо с инструкциями и кодом подтверждения. {#/if} {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_soc_auth_reg_descr} Или зарегистрируйтесь через социальную сеть. {#/template js_tmpl_soc_auth_reg_descr} {#template js_tmpl_auth_reg_soc} <div class="rg_soc"> {#if $P.login_register_tab == 1} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/login/vk/&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} {#if $P.login_register_tab == 2} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/join/vk&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} </div> {#/template js_tmpl_auth_reg_soc}

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <p class="rg_description">{#include js_tmpl_auth_reg_descr}</p> <div class="clr"> </div> {#include js_tmpl_auth_reg_action} <div class="clr"> </div> </dt> </dl> </div>  </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_reg" class="rg_active_nav rg_first_nav"><a href="" onclick="return false;" >Регистрация</a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_descr} <strong>Пожалуйста, подтвердите ваш адрес.</strong><br><br>Вам отправлено письмо для подтверждения вашего адреса {$P.register_confirm_mail}.<br>Для подтверждения адреса перейдите по ссылке из этого письма. {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_auth_reg_action} <div class="rg_forms confirm_code_from_letter"> <div class="rg_for_input"> <span class="rg_inp_descr" style="width:15em;">Или введите код из письма:</span> <input type="text" value="" id="confirm_code" name="" data-js_submit="yes" data-js_action="js_confirmFormBut" class="js_keydown_selector rg_input_text_conf" > </div> <div class="rg_for_input"><label>Не пришло письмо? <b>Пожалуйста, проверьте папку Спам</b><br /> (папку для нежелательной почты).</label><br /> <a href="" onclick="ajax_recall_code();return false" >Вышлите мне письмо еще раз!</a></div> <div class="rg_for_input"> <em class="reg_error" id="confirm_msg"></em> <a href="#" class="button button-red" id="js_confirmFormBut">Готово</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> <br> </div> </div> {#/template js_tmpl_auth_reg_action}

← Август 2005 →

29 29.08.2005 18:47:54 18:48:05