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

* small changes for tbutton.draw

Browse Source
This commit is contained in:
pierre 2001-06-01 16:00:00 +00:00
parent 5bf4a7f9fc
commit d5197088df
2 changed files with 22 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
fv/dialogs.pas
View File

@ -1286,7 +1286,7 @@ END;
{ DrawFocus -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 30Apr98 LdB }
{---------------------------------------------------------------------------}
PROCEDURE TButton.DrawFocus;
VAR B: Byte; I: Integer;
VAR B: Byte; I, Pos: Integer;
Bc: Word; Db: TDrawBuffer;
C : char;
BEGIN
@ -1318,10 +1318,14 @@ BEGIN
I := TextWidth(Title^); { Fetch title width }
I := (RawSize.X - I) DIV 2; { Centre in button }
End Else I := FontWidth; { Left edge of button }
MoveCStr(Db, Title^, Bc); { Move title to buffer }
If TextModeGFV and DownFlag then Begin
MoveChar(Db,' ',Bc,1);
Pos:=1;
end else Pos:=0;
MoveCStr(Db[Pos], Title^, Bc); { Move title to buffer }
If not TextModeGFV then Begin
GOptions := GOptions OR goGraphView; { Graphics co-ords mode }
WriteLine(I, FontHeight DIV 2, CStrLen(Title^),
WriteLine(I, FontHeight DIV 2, CStrLen(Title^)+Pos,
1, Db); { Write the title }
GOptions := GOptions AND NOT goGraphView; { Return to normal mode }
End Else Begin
@ -2726,7 +2730,10 @@ END;
END.
{
$Log$
Revision 1.9 2001-05-31 12:14:50 pierre
Revision 1.10 2001-06-01 16:00:00 pierre
* small changes for tbutton.draw
Revision 1.9 2001/05/31 12:14:50 pierre
Better button draw
Revision 1.8 2001/05/10 16:46:27 pierre

15
fvision/dialogs.pas
View File

@ -1286,7 +1286,7 @@ END;
{ DrawFocus -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 30Apr98 LdB }
{---------------------------------------------------------------------------}
PROCEDURE TButton.DrawFocus;
VAR B: Byte; I: Integer;
VAR B: Byte; I, Pos: Integer;
Bc: Word; Db: TDrawBuffer;
C : char;
BEGIN
@ -1318,10 +1318,14 @@ BEGIN
I := TextWidth(Title^); { Fetch title width }
I := (RawSize.X - I) DIV 2; { Centre in button }
End Else I := FontWidth; { Left edge of button }
MoveCStr(Db, Title^, Bc); { Move title to buffer }
If TextModeGFV and DownFlag then Begin
MoveChar(Db,' ',Bc,1);
Pos:=1;
end else Pos:=0;
MoveCStr(Db[Pos], Title^, Bc); { Move title to buffer }
If not TextModeGFV then Begin
GOptions := GOptions OR goGraphView; { Graphics co-ords mode }
WriteLine(I, FontHeight DIV 2, CStrLen(Title^),
WriteLine(I, FontHeight DIV 2, CStrLen(Title^)+Pos,
1, Db); { Write the title }
GOptions := GOptions AND NOT goGraphView; { Return to normal mode }
End Else Begin
@ -2726,7 +2730,10 @@ END;
END.
{
$Log$
Revision 1.9 2001-05-31 12:14:50 pierre
Revision 1.10 2001-06-01 16:00:00 pierre
* small changes for tbutton.draw
Revision 1.9 2001/05/31 12:14:50 pierre
Better button draw
Revision 1.8 2001/05/10 16:46:27 pierre