SetLineStyle and SetTextStyle
Original Reporter info from Mantis: simiprof
-
Reporter name: Petru Simionescu
Original Reporter info from Mantis: simiprof
- Reporter name: Petru Simionescu
Description:
SetLineStyle, if set to Dashedln or DottedLn, works with Lines but not with circles and arches.
SetTextStyle, works only as DefaultFont. I am interested in using SmallFont. Is there a way of adding it?
Many thanks!
Steps to reproduce:
Program LinesAndFonts;
uses Graph;
var GraphDriver, GraphMode: integer;
BEGIN
GraphDriver:= DETECT;
InitGraph(GraphDriver,GraphMode, ' ' );
if (GraphResult <> grOk) then BEGIN
Writeln('ImnitGraph error: ', GraphErrorMsg(GraphDriver));
Halt;
END;
SetColor(LightRed);
SetTextStyle(TriplexFont,0,2);
OutTextXY(100,180,'Dashed');
SetLineStyle(DashedLn, 0, 1);
Line (100,200, 300, 600); {OK }
Arc (200,400, 90, 270 ,120); {Not OK}
Circle(200,400, 80); {Not OK}
SetColor(Magenta);
SetTextStyle(SmallFont,0,2); {font will remain DefaultFont}
OutTextXY(400,180,'Dotted');
SetLineStyle(DottedLn, 0, 1);
Line (400,200, 600, 600); {OK }
Arc (500,400, 90, 270 ,120); {Not OK}
Circle(500,400, 80); {Not OK}
ReadLn;
CloseGraph;
END.
Mantis conversion info:
- Mantis ID: 33951
- OS: Win
- OS Build: 8.1
- Version: 3.0.4