paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 21:29:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* DirectPutPixel -> PutPixel to enable clipping

Browse Source
This commit is contained in:
carl 1999-04-25 00:29:58 +00:00
parent 6ab085663f
commit 28f657b4db
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -404,7 +404,7 @@
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 DirectPutPixel(xpos+k,j+y); if Fontbitmap[j,k] <> 0 then PutPixel(xpos+k,j+y,CurrentColor);
end end
else else
{ perform scaling of bitmap font } { perform scaling of bitmap font }
@ -424,7 +424,7 @@
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
DirectPutPixel(xpos+cnt1+cnt2,y+cnt3+cnt4); PutPixel(xpos+cnt1+cnt2,y+cnt3+cnt4,CurrentColor);
end; end;
Inc(k); Inc(k);
Inc(cnt2,charsize); Inc(cnt2,charsize);
@ -451,7 +451,8 @@
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 DirectPutPixel(xpos+j,ypos-k); if Fontbitmap[j,k] <> 0 then PutPixel(xpos+j,ypos-k,
CurrentColor);
end end
else else
{ perform scaling of bitmap font } { perform scaling of bitmap font }
@ -471,7 +472,8 @@
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
DirectPutPixel(xpos+cnt3-cnt4,ypos+cnt1-cnt2); PutPixel(xpos+cnt3-cnt4,ypos+cnt1-cnt2,
CurrentColor);
end; end;
Inc(k); Inc(k);
Inc(cnt2,charsize); Inc(cnt2,charsize);