mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-10 18:18:50 +02:00
* use graph mode to display button title
This commit is contained in:
parent
a54f46d936
commit
690eb7524f
@ -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
|
||||||
|
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user