|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Расширение возможностей компанета Dialogs
Привет всем!
Вообще сталкнулся с такой проблемой, заказчик сказал чтоб все меседжи вводили текст по центру. Что делать? Решил так: Залез в Dialogs.pas и добавил параметер к функции CreateMessageDialog. Код следующий: создаем пустое приложение с использованием VCL тупо форма и все. находим в секции uses ссылку на Dialogs наводим мышь и удерживая Ctrl щелкаем левой кнопкой мыши. после строки 912 добавил Код:
TAlignTextMsgDlg = (amtLeft, amtCenter, amtRight); сделал изменения Код:
function CreateMessageDialog(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; DefaultButton: TMsgDlgBtn; AlignText : TAlignTextMsgDlg = amtLeft): TForm; overload; Код:
CreateMessageDialog(Msg, DlgType, Buttons, DefaultButton, AlignText) находим строку Код:
Alignment = Код:
AlignTexts[AlignText] А да еще забыл надо сделать вот что: найдите где декларируется массив ModalResults и добавляем следующий Код:
AlignTexts : array[TAlignTextMsgDlg] of Integer = (taLeftJustify, taCanter, taRightJustify); Теперь про компиляцию. В меню project выбераем add to project выбераем наш dialogs.pas и тыкаем ok. Потом project->compile project. Затем открываем каталог где лежит dialogs.pas чтоб узнать где от на ведите на таб с заглавием dialogs должен показаться путь. так зашли значит в папку находит там dialogs.dcu и копируем в (вверх вверх вверх ну вы поняли на конопочку тыкать надо) lib\ и все должно получиться. О вот еще момент делфя сругается на несколько библиотек их надо подобным образом добавить в проетк откомпилить не внося изменении и также скопировать в lib\ и заработает потом можно использовать это так Код:
MessageDlg('Изменили dialogs.pas', mtError, [mbOk], 0, mbOk, amtCenter); Жизнь хитрая штука - как только все карты на руках — она решает сыграть с тобой в шахматы Последний раз редактировалось artzub, 27.04.2009 в 22:50. |