Предыдущая страница реферата | 7  8  9  10  11  12  13  14  15  16  17 | Следующая страница реферата

Text: TTitleStr; constructor Init(var Bounds: TRect; AText: TTitleStr); procedure Draw; virtual; end;

PMyDesktop = ^TMyDesktop;

TMyDesktop = object(TDesktop) procedure InitBackground; virtual; end;

{Объект "О Программе"}

PAboutBox = ^TAboutBox;

TAboutBox = object(TDialog) constructor Init; end;

{Основной объект}

PMyApp = ^TMyApp;

TMyApp = object(TApplication) constructor Init; {инициализация} destructor Done; virtual; {завершение работы} procedure HandleEvent(var Event: TEvent); virtual; {обработка событий} procedure InitMenuBar; virtual; {инициализация меню} procedure InitDeskTop; virtual; {инициализация рабочего поля} procedure InitStatusLine; virtual; {инициализация строки состояния} procedure FileOpen(WildCard: PathStr); {окно для работы с файлами} function GetPalette: PPalette; virtual; {изменение стандартной палитры} end;

{ Русифицированная функция формирования сообщения } function MyMessageBoxRect(var R: TRect; const Msg: string; Params: pointer;

AOptions: word): word; const

ButtonName: array[0..3] of string[6] = ('Ага', 'Нека', 'Ага', 'Нека');

Commands: array[0..3] of Word = (cmYes, cmNo, cmOK, cmCancel);

Titles: array[0..3] of string[11] =

('Предупреждение', 'Ошибка', 'Информация', 'Подтверждение'); var

I, X : integer;

Dialog : PDialog;

Control: PView;

S : string;

begin

Dialog:= New(PDialog, Init(R, Titles[AOptions and $3])); with Dialog^ do begin

Options:= Options or ofCentered;

R.Assign(3, 2, Size.X - 2, Size.Y - 3);

FormatStr(S, Msg, Params^);

Insert(New(PStaticText, Init(R, S)));

Рекомендуем скачать другие рефераты по теме: конспект урока 5 класс, оформление доклада.



Предыдущая страница реферата | 7  8  9  10  11  12  13  14  15  16  17 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки