Все выпуски  

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


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

Лучшие эксперты в разделе

Сучкова Татьяна Михайловна
Статус: Мастер-Эксперт
Рейтинг: 0
∙ повысить рейтинг »
Асмик Гаряка
Статус: Советник
Рейтинг: 0
∙ повысить рейтинг »
Орловский Дмитрий
Статус: Мастер-Эксперт
Рейтинг: 0
∙ повысить рейтинг »

∙ Pascal / Delphi / Lazarus

Номер выпуска:1775
Дата выхода:14.09.2019, 00:45
Администратор рассылки:Зенченко Константин Николаевич (Старший модератор)
Подписчиков / экспертов:32 / 36
Вопросов / ответов:3 / 13

Консультация # 35615: Здравствуйте! Как сделать чтобы кнопки были как в XP? (Delphi 7) Спасибо!...
Консультация # 69124: Здравствуйте уважаемые эксперты!Расскажите пожалуйста как создаются бинарные файлы....
Консультация # 36133: Привет. Кто-нибудь знает способ, желательно несложный, отучить развёрнутую форму (maximized) "восстанавливаться" при двойном щелчке по заголовку? Спасибо....

Консультация # 35615:

Здравствуйте!
Как сделать чтобы кнопки были как в XP? (Delphi 7)
Спасибо!

Дата отправки: 17.02.2006, 14:23
Вопрос задал: [TiER]
Всего ответов: 8
Страница онлайн-консультации »


Консультирует Лучников Юрий Владимирович:

Здравствуйте, [TiER]!

Для этого просто положите компоненту XPManifest с вкладки Win32 на форму. Вот и все;)

Успехов!

Консультировал: Лучников Юрий Владимирович
Дата отправки: 17.02.2006, 15:51
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует Ерёмин Андрей:

Hello, TiER!
1) Визуальный метод - на странице Win32 компонент TXPManifest. Достаточно положить на форму единожды.
2) Невизуальный метод - подключить модуль XPMan, добавив его в uses. Это на случай, если не хочется, чтобы лишний значок торчал на форме.
3) Windows-метод: добавить в папку с программой файл *.exe.manifest, где ваше приложение (файл) имеет имя *.exe, например для myprog.exe нужно переименовать файл в myprog.exe.manifest. Сам этот файл лежит в каталоге WINDOWS и имеет расширение .manifest. Думаю, быстро найдёте.

Консультировал: Ерёмин Андрей
Дата отправки: 17.02.2006, 16:23
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует Delphin:

Здравствуйте, [TiER]!
На палитре компонентов есть компонента TXPManifest, кинь её на форму и все будет ок.

Консультировал: Delphin
Дата отправки: 17.02.2006, 16:41
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует Diman_A:

Здравствуйте, [TiER]!
Если речь идет об отображении контролов в Windows XP, то действуем так:
Шаг 1
Создаем файл winxp.manifest с таким содержанием:
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
version="1.0.0.0"
processorArchitecture="X86"
name="BluecaveSoftware.BarMenus.Demo1"
type="win32"
/>
<description>BarMenus Demo1</description>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="X86"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
</assembly>
Шаг 2
В той же директории создаем файл winxp.rc
В нем пишем:
1 24 "WinXP.manifest"
Шаг 3
компилируем rc файл в файл ресурсов: brcc32.exe [путь к rc-файлу]
Шаг 4
Прилинковываем полученный файл winxp.res к программе:
{$r winxp.res}
Все!
Но если нужно, чтобы контролы выглядели по xp-шному, например, в 98 виндах, то нужно юзать скиновые компоненты. Например, я использую Suipack http://www.sunisoft.com/

Консультировал: Diman_A
Дата отправки: 17.02.2006, 17:13
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует Николай Б.:

Здравствуйте, [TiER]!
Допиши в раздел Uses "XPMan"
Или добавь его значок на форму со вкладки Win32

Консультировал: Николай Б.
Дата отправки: 17.02.2006, 18:08
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует SlavComp:

Здравствуйте, [TiER]!

Положите компонент XPManifest из вкладки Win32 на форму.
Или же в разделе Uses подключите модуль XPMan

Удачи!!!

Консультировал: SlavComp
Дата отправки: 17.02.2006, 20:29
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует Leshiy2006:

Здравствуйте, [TiER]! попройте XPManifest.
Удачи!

Консультировал: Leshiy2006
Дата отправки: 17.02.2006, 22:14
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует Denisss:


Здравствуйте, [TiER]!

Как в WinXP... значит не в только в самом WinXP, но и в других Win?!
В таком случае Вам помогут только сторонние наборы компонентов.
XP Controls:
http://www.torry.net/vcl/packs/interfacelite/xpcontrols.zip;

JVCL (включает в себя верхний набор, а также множество других очень полезных компонентов из раздела must have):
http://sourceforge.net/projects/jvcl

Также можно использовать различные компоненты со скинами:
Alpha Controls:
http://www.alphaskins.com/ (Дом. страница)
http://www.alphaskins.com/index_rus.php (спец. для русских)

Удачи!

Консультировал: Denisss
Дата отправки: 18.02.2006, 10:00
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 69124:

Здравствуйте уважаемые эксперты!Расскажите пожалуйста как создаются бинарные файлы.

Дата отправки: 30.12.2006, 13:00
Вопрос задал: Delphi-n
Всего ответов: 2
Страница онлайн-консультации »


Консультирует Томша Павел:

Здравствуйте, Delphi-n!
Просто в разделе переменных опсиываете его как "File of Boolean"

Консультировал: Томша Павел
Дата отправки: 30.12.2006, 15:52
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует monah:

Здравствуйте, Delphi-n!
Вообщето бинарным может считаться любой файл, в котором нет четкой структуры. Доступ к данным ведется по байтно. Кстати тип boolean занимает именно байт а не бит.

Консультировал: monah
Дата отправки: 30.12.2006, 19:01
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 36133:

Привет. Кто-нибудь знает способ, желательно несложный, отучить развёрнутую форму (maximized) "восстанавливаться" при двойном щелчке по заголовку? Спасибо.

Дата отправки: 25.02.2006, 04:06
Вопрос задал: Злоумышленник
Всего ответов: 3
Страница онлайн-консультации »


Консультирует Лучников Юрий Владимирович:

Здравствуйте, Злоумышленник!

Пример перехвата события восстановления окна приложения:

Type TMain = class(TForm)
....
protected
Procedure WMGetSysCommand(var Message : TMessage) ; message WM_SYSCOMMAND;
end;
....
//------------------------------------------------------------------------------
// Обработка сообщения WM_SYSCOMMAND (перехват минимизации окна)
//------------------------------------------------------------------------------
Procedure TMain.WMGetSysCommand(var Message : TMessage) ;
Begin
//Если восстановление, то ничего не делаем...
IF (Message.wParam <> SC_RESTORE) Then Inherited;
End;

Консультировал: Лучников Юрий Владимирович
Дата отправки: 25.02.2006, 05:04
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует Полховский Александр Владимиро:

Здравствуйте, Злоумышленник!
OnCanResize по идее может помочь (хотя выше изложенное кажется более правильным). Resize:=false; - и форма размера не изменит, но переместится в левый верхний угол, но это исправимо. Только вот значок поменяется, вроде как развёрнутое окно. Можно ещё с OnConstrainedResize поэкпериментировать.

Консультировал: Полховский Александр Владимиро
Дата отправки: 25.02.2006, 10:24
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует Татьяна:

Здравствуйте, Злоумышленник!
Если вам нужно именно по щелчку по заголовку у меня получилось так:
Перехватываете сообщение wm_NcHittest, а далее примерно как в приложении
(правда максимизироваться по щелчку она тоже не будет)

Приложение:

Консультировал: Татьяна
Дата отправки: 25.02.2006, 20:00
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!


В избранное