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

* use graph mode to display button title

Browse Source
This commit is contained in:
pierre 2002-05-31 12:35:21 +00:00
parent a54f46d936
commit 690eb7524f
2 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
fv/dialogs.pas
View File

@ -1853,6 +1853,7 @@ END;
PROCEDURE TButton.DrawFocus; PROCEDURE TButton.DrawFocus;
VAR B: Byte; I, J, Pos: Sw_Integer; VAR B: Byte; I, J, Pos: Sw_Integer;
Bc: Word; Db: TDrawBuffer; Bc: Word; Db: TDrawBuffer;
StoreUseFixedFont: boolean;
C : char; C : char;
BEGIN BEGIN
If not TextModeGFV then Begin If not TextModeGFV then Begin
@ -1886,9 +1887,12 @@ BEGIN
If not TextModeGFV then Begin If not TextModeGFV then Begin
MoveCStr(Db[0], Title^, Bc); { Move title to buffer } MoveCStr(Db[0], Title^, Bc); { Move title to buffer }
GOptions := GOptions OR goGraphView; { Graphics co-ords mode } GOptions := GOptions OR goGraphView; { Graphics co-ords mode }
StoreUseFixedFont:=UseFixedFont;
UseFixedFont:=false;
WriteLine(I, FontHeight DIV 2, CStrLen(Title^), WriteLine(I, FontHeight DIV 2, CStrLen(Title^),
1, Db); { Write the title } 1, Db); { Write the title }
GOptions := GOptions AND NOT goGraphView; { Return to normal mode } GOptions := GOptions AND NOT goGraphView; { Return to normal mode }
UseFixedFont:=StoreUseFixedFont;
End Else Begin End Else Begin
I:=I div SysFontWidth; I:=I div SysFontWidth;
If DownFlag then If DownFlag then
@ -2536,7 +2540,7 @@ END;
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
PROCEDURE TRadioButtons.SetData (Var Rec); PROCEDURE TRadioButtons.SetData (Var Rec);
BEGIN BEGIN
Sel := Sw_Integer(Rec); { Set selection } Sel := Sw_word(Rec); { Set selection }
Inherited SetData(Rec); { Call ancestor } Inherited SetData(Rec); { Call ancestor }
END; END;
@ -4200,7 +4204,10 @@ END;
END. END.
{ {
$Log$ $Log$
Revision 1.16 2002-05-24 21:00:10 pierre Revision 1.17 2002-05-31 12:35:21 pierre
* use graph mode to display button title
Revision 1.16 2002/05/24 21:00:10 pierre
* correct cursor position for TInputLine * correct cursor position for TInputLine
Revision 1.15 2002/05/23 12:16:11 pierre Revision 1.15 2002/05/23 12:16:11 pierre

11
fvision/dialogs.pas
View File

@ -1853,6 +1853,7 @@ END;
PROCEDURE TButton.DrawFocus; PROCEDURE TButton.DrawFocus;
VAR B: Byte; I, J, Pos: Sw_Integer; VAR B: Byte; I, J, Pos: Sw_Integer;
Bc: Word; Db: TDrawBuffer; Bc: Word; Db: TDrawBuffer;
StoreUseFixedFont: boolean;
C : char; C : char;
BEGIN BEGIN
If not TextModeGFV then Begin If not TextModeGFV then Begin
@ -1886,9 +1887,12 @@ BEGIN
If not TextModeGFV then Begin If not TextModeGFV then Begin
MoveCStr(Db[0], Title^, Bc); { Move title to buffer } MoveCStr(Db[0], Title^, Bc); { Move title to buffer }
GOptions := GOptions OR goGraphView; { Graphics co-ords mode } GOptions := GOptions OR goGraphView; { Graphics co-ords mode }
StoreUseFixedFont:=UseFixedFont;
UseFixedFont:=false;
WriteLine(I, FontHeight DIV 2, CStrLen(Title^), WriteLine(I, FontHeight DIV 2, CStrLen(Title^),
1, Db); { Write the title } 1, Db); { Write the title }
GOptions := GOptions AND NOT goGraphView; { Return to normal mode } GOptions := GOptions AND NOT goGraphView; { Return to normal mode }
UseFixedFont:=StoreUseFixedFont;
End Else Begin End Else Begin
I:=I div SysFontWidth; I:=I div SysFontWidth;
If DownFlag then If DownFlag then
@ -2536,7 +2540,7 @@ END;
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
PROCEDURE TRadioButtons.SetData (Var Rec); PROCEDURE TRadioButtons.SetData (Var Rec);
BEGIN BEGIN
Sel := Sw_Integer(Rec); { Set selection } Sel := Sw_word(Rec); { Set selection }
Inherited SetData(Rec); { Call ancestor } Inherited SetData(Rec); { Call ancestor }
END; END;
@ -4200,7 +4204,10 @@ END;
END. END.
{ {
$Log$ $Log$
Revision 1.16 2002-05-24 21:00:10 pierre Revision 1.17 2002-05-31 12:35:21 pierre
* use graph mode to display button title
Revision 1.16 2002/05/24 21:00:10 pierre
* correct cursor position for TInputLine * correct cursor position for TInputLine
Revision 1.15 2002/05/23 12:16:11 pierre Revision 1.15 2002/05/23 12:16:11 pierre