Процедура GetFTime

Модуль GRAPH

Возвращает текущий цвет и стиль закраски.

Объявление:

 Procedure GetFillSettings(Var FillInfo : FillSettingsType);

Режим:

Protected,  Real

Замечание:

В поле Pattern содержится текущий шаблон закраски. В поле Colors содержится текущий цвет закраски. И шаблон и цвет закраски могут быть изменены с помощью процедур SetFillStyle и SetFillPattern. Если значение поля Pattern равно UserFill, то используйте процедуру GetFillPattern для получения шаблона закраски, определяемого пользователем.

Пример:

{ Пример программы для процедур GetFTime, PackTime, SetFTime и UnpackTime }

Uses Dos;

Var          F : Text;
 H, M, S, Hund : Word; { Для GetTime}
         FTime : Longint; { для Get/SetFTime}
            Dt : TDateTime; { Для Pack/UnpackTime}

Function LeadingZero(W : Word) : String;
Var S : String;
Begin
 Str(W:0, S);
 If Length(S) = 1 Then S:='0'+S;
 LeadingZero:=S;
End;

Begin
 Assign(F, 'TEST.TXT');
 GetTime(H, M, S, Hund);
 ReWrite(F); { Создаем новый файл }
 GetFTime(F, FTime); { Получаем дату создания }
 WriteLn('Файл создан в ', LeadingZero(H), ':',
                           LeadingZero(M), ':', LeadingZero(S));
 UnpackTime(FTime, Dt);
 With Dt Do
  Begin
   WriteLn('Атрибут времени файла ', LeadingZero(Hour), ':',
              LeadingZero(Min), ':', LeadingZero(Sec));
   Hour:=0;
   Min:=1;
   Sec:=0;
   PackTime(Dt, Ftime);
   WriteLn('Атрибут времени файла установлен на 00:01:00');
   Reset(F); { Открываем файл на чтение }
             { (Вызов Close обновит атрибут времени) }
   SetFTime(F, FTime);
  End;
 Close(F);   { Закрываем файл }
End.