Új hozzászólás Aktív témák

• #1074 Lortech addikt Lali87 #1072

  Új Válasz 2006-04-01 16:36:26 #1074

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Lortech

  addikt

  válasz Lali87 #1072 üzenetére

  Itt van egy egyszerű példa + lent vannak a fontosabb függvények, ezzel már el tudsz indulni:
  initgraph/closegraph: inicializálja/befejezi a grafikus üzemmódot.
  setcolor: színt állít be, ez lehet szám 0-15-ig, vagy ahogy a példában is szerepel, az angol szöveges megfelelőjük .
  Line(x1,y1,x2,y2): x1,y1 képponttól x2,y2 képpontig húz egy vonalat.
  Arc, circle körrajzolás.
  Szöveget outtextxy-vel tudsz kiiratni, x,y kezdettől. A betű méretét, settextstyle-lal módosíthatod.
  Rectangle - téglalap, bal felső és jobb alsó csúcs x,y koordinátáit kell magadnod.
  Lent a kommentben benne van a legtöbb grafikus funkció, ha tp-ban nyomsz rájuk (mikor a szövegen állsz) egy ctrl-f1-et, egyből lejön a súgó az adott fgv-re, és megnézheted mire jó, és hogyan kell paraméterezni.
  stbstb.
  Jó rajzolgatást.
  -------------
  program gr_pelda;
  uses crt,graph;
  var
  x,y: word;
  grDriver: Integer;
  grMode: Integer;
  
  
  begin
  grDriver := Detect;
  InitGraph(grDriver, grMode,' ');
  
  setcolor(red);
  arc(50,50,0,360,40);
  rectangle(100,10,150,60);
  outtextxy(200,50,'STOP');
  line(300,100,350,200);
  readln;
  closegraph;
  readln;
  end.
  
  {Arc
  Bar
  Bar3D
  Circle
  ClearDevice
  ClearViewPort
  CloseGraph
  DetectGraph
  Drawpoly
  Ellipse
  FillEllipse
  FillPoly
  FloodFill
  GetArcCoords
  GetAspectRatio
  GetBkColor
  GetColor
  GetDefaultPalette
  GetDriverName
  GetFillPattern
  GetFillSettings
  GetGraphMode
  GetImage
  GetLineSettings
  GetMaxColor
  GetMaxMode
  GetMaxX
  GetMaxY
  GetModeName
  GetModeRange
  GetPalette
  GetPaletteSize
  GetPixel
  GetTextSettings
  GetViewSettings
  GetX
  GetY
  GraphDefaults
  GraphErrorMsg
  GraphResult
  ImageSize
  InitGraph
  InstallUserDriver
  InstallUserFont
  Line
  LineRel
  LineTo
  MoveRel
  MoveTo
  OutText
  OutTextXY
  PieSlice
  PutImage
  PutPixel
  Rectangle
  RegisterBGIdriver
  RegisterBGIfont
  RestoreCrtMode
  Sector
  SetActivePage
  SetAllPalette
  SetAspectRatio
  SetBkColor
  SetColor
  SetFillPattern
  SetFillStyle
  SetGraphBufSize
  SetGraphMode
  SetLineStyle
  SetPalette
  SetRGBPalette
  SetTextJustify
  SetTextStyle
  SetUserCharSize
  SetViewPort
  SetVisualPage
  SetWriteMode
  TextHeight
  TextWidth}
  

Új hozzászólás Aktív témák