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

RMenuBar: TStreamRec = ( {Запись для работы с потоком, TV}

ObjType: 2000;

VmtLink: Ofs(TypeOf(TMenuBar)^);

Load: @TMenuBar.Load;

Store: @TMenuBar.Store);

Type

{Установка опций криптографии}

POptions = ^TOptions;

TOptions = object(TDialog) constructor Init; end;

{Объект для работы с текстом}

PMyStaticText = ^TMyStaticText;

TMyStaticText = object(TStaticText) function GetPalette: PPalette; virtual; {Переопределение палитры} end;

{Объекты для работы с файлами и каталогами}

PMyFDialog = ^TMyFDialog;

TMyFDialog = object(TFileDialog) function GetPalette: PPalette; virtual; end;

PMyFileDialog = ^TMyFileDialog;

TMyFileDialog = object(TMyFDialog) constructor Init(AWildCard: tWildStr; const ATitle,

InputName: string; AOptions: Word; HistoryId: Byte); end;

PDirDialog = ^TDirDialog;

TDirDialog = object(TChDirDialog) function GetPalette: PPalette; virtual; end;

PMyChDirDialog = ^TMyChDirDialog;

TMyChDirDialog = object(TDirDialog) constructor Init(AOptions: Word; HistoryId: Word); procedure SetUpDialog; function Valid(Command: Word): Boolean; virtual; end;

{Установка основного фона программы}

PMyBackground = ^TMyBackground;

TMyBackground = object(TBackground)

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



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

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