GetFPatt.PAS

Language:
Русский
English

   GetFPatt.PAS
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
  { Example for GetFillPattern and
    SetFillPattern }

  uses
    Graph;
  const
    Gray50 : FillPatternType = ($AA, $55, $AA,
      $55, $AA, $55, $AA, $55);
  var
    Gd, Gm : Integer;
    OldPattern : FillPatternType;
  begin
    Gd := Detect; InitGraph(Gd, Gm, '');
    if GraphResult <> grOk then Halt(1);
    GetFillPattern(OldPattern);
    SetFillPattern(Gray50, White);

    { Draw bar 50% gray }
    Bar(0, 0, 100, 100);
    ReadLn;
    SetFillPattern(OldPattern,White);
    { Draw bar with old pattern }
    { (normally filled with $FF }
    { on startup)               }
    Bar(0, 0, 100, 100);
    ReadLn;
    CloseGraph;
  end.

Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //