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

X:= -2;

R.Assign(0, 0, 10, 2); for I:= 0 to 3 do if AOptions and ($0100 shl I) 0 then

Inc(X, R.B.X - R.A.X + 2);

X:= (Size.X - X) shr 1; for I:= 0 to 3 do if AOptions and ($0100 shl I) 0 then begin

Control:= New(PButton, Init(

R, ButtonName[I], Commands[i], bfNormal));

Insert(Control);

Control^.MoveTo(X, Size.Y - 3);

Inc(X, Control^.Size.X + 2); end;

SelectNext(False); end;

if AOptions and mfInsertInApp = 0 then

MyMessageBoxRect:= DeskTop^.ExecView(Dialog) else

MyMessageBoxRect:= Application^.ExecView(Dialog);

Dispose(Dialog, Done); end;

{ Русифицированная функция формирования сообщения стандартного размера } function MyMessageBox(const Msg: String;

Params: Pointer; AOptions: Word): Word; var

R: TRect; begin

R.Assign(0, 0, 40, 9);

MyMessageBox:= MyMessageBoxRect(R, Msg, Params, AOptions); end;

function GetCurDir: DirStr; var

CurDir: DirStr; begin

GetDir(0, CurDir); if Length(CurDir) > 3 then begin

Inc(CurDir[0]);

CurDir[Length(CurDir)]:= ''; end;

GetCurDir:= CurDir; end;

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



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

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