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

Message box have to draw some blank lines.

Browse Source
This commit is contained in:
Margers 2024-09-11 01:09:06 +00:00 committed by Michael Van Canneyt
parent 8ff73efe32
commit 9c3a66930c
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fv/src/dialogs.inc
View File

@ -3261,6 +3261,15 @@ BEGIN
end;
end;
FinishLine;
if Y < Size.Y then
begin
{we have to draw blank lines}
for I:=Y to Size.Y-1 do
begin
BeginNewLine;
FinishLine;
end;
end;
END;
{$else FV_UNICODE}
PROCEDURE TStaticText.Draw;