IPB

> Getfsets.PAS
Чат
Форум
Загрузка...
 

Language:
Русский
English

  {Getfsets.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
 {Sample code for the GetFillSettings procedure.}

  uses Graph;

 var
   Gd, Gm: Integer;
   FillInfo: FillSettingsType;
 begin
   Gd := Detect;
   InitGraph(Gd, Gm, '');
   if GraphResult <> grOk then
     Halt(1);
   GetFillSettings(FillInfo);   { Save fill style and color }
   Bar(0, 0, 50, 50);
   SetFillStyle(XHatchFill, GetMaxColor);   { New style }
   Bar(50, 0, 100, 50);
   with FillInfo do
     SetFillStyle(Pattern, Color);   { Restore old fill style }
   Bar(100, 0, 150, 50);
   Readln;
   CloseGraph;
 end.

 
 К началу страницы 
Тэги:
 

Код для вставки: :: :: :: ГОСТ ::
Поделиться: //
 



-
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"