paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 10:09:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

merged from FIXES branch: DrawTextBackground support

Browse Source
This commit is contained in:
pierre 2002-07-18 07:11:11 +00:00
parent 392311d002
commit 9fef30d585
2 changed files with 23 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/graph/graphh.inc
View File

@ -718,7 +718,7 @@ const
GraphStringTransTable: PCharsetTransTable = nil; GraphStringTransTable: PCharsetTransTable = nil;
DrawTextBackground : boolean = false;
function queryadapterinfo : pmodeinfo; function queryadapterinfo : pmodeinfo;
@ -808,7 +808,10 @@ Function GetDriverName: string;
{ {
$Log$ $Log$
Revision 1.5 2001-06-01 11:13:22 jonas Revision 1.6 2002-07-18 07:11:11 pierre
merged from FIXES branch: DrawTextBackground support
Revision 1.5 2001/06/01 11:13:22 jonas
* GetMaxMode() now returns a smallint instead of a word (since the type * GetMaxMode() now returns a smallint instead of a word (since the type
of the modenumbers is smallint too) (merged) of the modenumbers is smallint too) (merged)

26
rtl/inc/graph/gtext.inc
View File

@ -423,7 +423,9 @@ end;
for j:=0 to 7 do for j:=0 to 7 do
for k:=0 to 7 do for k:=0 to 7 do
if Fontbitmap[j,k]<>0 then if Fontbitmap[j,k]<>0 then
PutPixel(xpos+k,j+y,CurrentColor); PutPixel(xpos+k,j+y,CurrentColor)
else if DrawTextBackground then
PutPixel(xpos+k,j+y,CurrentBkColor);
end end
else else
{ perform scaling of bitmap font } { perform scaling of bitmap font }
@ -443,7 +445,9 @@ end;
for cnt1 := 0 to charsize-1 do for cnt1 := 0 to charsize-1 do
begin begin
If FontBitmap[j,k] <> 0 then If FontBitmap[j,k] <> 0 then
PutPixel(xpos+cnt1+cnt2,y+cnt3+cnt4,CurrentColor); PutPixel(xpos+cnt1+cnt2,y+cnt3+cnt4,CurrentColor)
else if DrawTextBackground then
PutPixel(xpos+cnt1+cnt2,y+cnt3+cnt4,CurrentBkColor);
end; end;
Inc(k); Inc(k);
Inc(cnt2,charsize); Inc(cnt2,charsize);
@ -470,8 +474,10 @@ end;
Begin Begin
for j:=0 to 7 do for j:=0 to 7 do
for k:=0 to 7 do for k:=0 to 7 do
if Fontbitmap[j,k] <> 0 then PutPixel(xpos+j,ypos-k, if Fontbitmap[j,k] <> 0 then
CurrentColor); PutPixel(xpos+j,ypos-k,CurrentColor)
else if DrawTextBackground then
PutPixel(xpos+j,ypos-k,CurrentBkColor);
end end
else else
{ perform scaling of bitmap font } { perform scaling of bitmap font }
@ -491,8 +497,9 @@ end;
for cnt1 := 0 to charsize-1 do for cnt1 := 0 to charsize-1 do
begin begin
If FontBitmap[j,k] <> 0 then If FontBitmap[j,k] <> 0 then
PutPixel(xpos+cnt3-cnt4,ypos+cnt1-cnt2, PutPixel(xpos+cnt3-cnt4,ypos+cnt1-cnt2,CurrentColor)
CurrentColor); else if DrawTextBackground then
PutPixel(xpos+cnt3-cnt4,ypos+cnt1-cnt2,CurrentBkColor);
end; end;
Inc(k); Inc(k);
Inc(cnt2,charsize); Inc(cnt2,charsize);
@ -777,7 +784,10 @@ end;
{ {
$Log$ $Log$
Revision 1.2 2000-07-13 11:33:47 michael Revision 1.3 2002-07-18 07:11:11 pierre
merged from FIXES branch: DrawTextBackground support
Revision 1.2 2000/07/13 11:33:47 michael
+ removed logs + removed logs
} }