paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 12:19:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* bar: y2 can be less y1, fixed

Browse Source 
* settextstyle: charsize can be 0, must be changed into 1
This commit is contained in:
florian 1999-07-26 09:38:41 +00:00
parent 725246c6c5
commit 49f7b705a6
2 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/inc/graph/graph.pp
View File

@ -2198,6 +2198,12 @@ end;
begin begin
origlinesettings:=lineinfo; origlinesettings:=lineinfo;
origcolor:=CurrentColor; origcolor:=CurrentColor;
if y1>y2 then
begin
y:=y1;
y1:=y2;
y2:=y;
end;
{ Always copy mode for Bars } { Always copy mode for Bars }
origwritemode := CurrentWriteMode; origwritemode := CurrentWriteMode;
@ -2674,7 +2680,11 @@ DetectGraph
{ {
$Log$ $Log$
Revision 1.17 1999-07-18 15:07:20 jonas Revision 1.18 1999-07-26 09:38:41 florian
* bar: y2 can be less y1, fixed
* settextstyle: charsize can be 0, must be changed into 1
Revision 1.17 1999/07/18 15:07:20 jonas
+ xor-, and and- orput support for VESA256 modes + xor-, and and- orput support for VESA256 modes
* compile with -dlogging if you wnt some info to be logged to grlog.txt * compile with -dlogging if you wnt some info to be logged to grlog.txt

8
rtl/inc/graph/text.inc
View File

@ -607,6 +607,8 @@
{ maximum charsize for bitmapped font is 10 } { maximum charsize for bitmapped font is 10 }
if (CurrentTextInfo.Font = DefaultFont) and (Charsize > 10) then if (CurrentTextInfo.Font = DefaultFont) and (Charsize > 10) then
Currenttextinfo.charsize:=10 Currenttextinfo.charsize:=10
else if charsize<1 then
Currenttextinfo.charsize:=1
else else
Currenttextinfo.charsize:=charsize; Currenttextinfo.charsize:=charsize;
@ -687,7 +689,11 @@
{ {
$Log$ $Log$
Revision 1.4 1999-07-12 13:27:16 jonas Revision 1.5 1999-07-26 09:38:43 florian
* bar: y2 can be less y1, fixed
* settextstyle: charsize can be 0, must be changed into 1
Revision 1.4 1999/07/12 13:27:16 jonas
+ added Log and Id tags + added Log and Id tags
* added first FPC support, only VGA works to some extend for now * added first FPC support, only VGA works to some extend for now
* use -dasmgraph to use assembler routines, otherwise Pascal * use -dasmgraph to use assembler routines, otherwise Pascal