paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 11:39:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix for webbug 2870

Browse Source
This commit is contained in:
pierre 2004-02-10 06:03:59 +00:00
parent abc41f1c3c
commit 2c782c1382
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fv/stddlg.pas
View File

@ -1156,8 +1156,10 @@ begin
Path := PFileDialog(Owner)^.Directory^
else Path := '';
Path := FExpand(Path+PFileDialog(Owner)^.WildCard);
{ avoid B Buffer overflow PM }
Path := ShrinkPath(Path, Size.X - 1);
Color := GetColor($01);
MoveChar(B, ' ', Color, Size.X * Size.Y); { fill with empty spaces }
MoveChar(B, ' ', Color, Size.X); { fill with empty spaces }
WriteLine(0, 0, Size.X, Size.Y, B);
MoveStr(B[1], Path, Color);
WriteLine(0, 0, Size.X, 1, B);

4
fvision/stddlg.pas
View File

@ -1156,8 +1156,10 @@ begin
Path := PFileDialog(Owner)^.Directory^
else Path := '';
Path := FExpand(Path+PFileDialog(Owner)^.WildCard);
{ avoid B Buffer overflow PM }
Path := ShrinkPath(Path, Size.X - 1);
Color := GetColor($01);
MoveChar(B, ' ', Color, Size.X * Size.Y); { fill with empty spaces }
MoveChar(B, ' ', Color, Size.X); { fill with empty spaces }
WriteLine(0, 0, Size.X, Size.Y, B);
MoveStr(B[1], Path, Color);
WriteLine(0, 0, Size.X, 1, B);