Git_Mirror/Terminal.Gui
1
0
Fork 0
mirror of https://github.com/gui-cs/Terminal.Gui.git synced 2025-12-26 15:57:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

ColorScheme inside the View instance. Updating OnKeyDownPressUpDemo to reflect the news changes. (#594)

Browse Source
This commit is contained in:
BDisp
2020-06-03 03:35:49 +01:00
committed by GitHub
parent fa29269ade
commit 72ee72807b
1 changed files with 3 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
FSharpExample/Program.fs
View File

@@ -333,9 +333,9 @@ type Demo() = class end
X = Pos.At(0),
Y = Pos.At(0),
Width = Dim.Fill () - Dim.op_Implicit(1),
Height = Dim.Fill () - Dim.op_Implicit(2)
Height = Dim.Fill () - Dim.op_Implicit(2),
ColorScheme = Colors.TopLevel
)
listView.ColorScheme <- Colors.TopLevel
container.Add (listView)
let KeyDownPressUp(keyEvent : KeyEvent, updown : string) =
@@ -344,25 +344,7 @@ type Demo() = class end
| "Down"
| "Up"
| "Press" ->
let mutable (msg : string) = sprintf "Key %5s : " updown
if (keyEvent.Key &&& Key.ShiftMask) <> Key.Unknown
then msg <- msg + "Shift "
if (keyEvent.Key &&& Key.CtrlMask) <> Key.Unknown
then msg <- msg + "Ctrl "
if (keyEvent.Key &&& Key.AltMask) <> Key.Unknown
then msg <- msg + "Alt "
msg <- msg + if (keyEvent.KeyValue &&& (int)Key.CharMask) > 26 then (string)keyEvent.KeyValue else (string)keyEvent.Key
list.Add (msg)
| _ ->
if (keyEvent.Key &&& Key.ShiftMask) <> Key.Unknown
then list.Add (sprintf "Key %s : Shift " updown)
else if (keyEvent.Key &&& Key.CtrlMask) <> Key.Unknown
then list.Add (sprintf "Key %s : Ctrl " updown)
else if (keyEvent.Key &&& Key.AltMask) <> Key.Unknown
then list.Add (sprintf "Key %s : Alt " updown)
else if ((int)keyEvent.KeyValue &&& (int)Key.CharMask) > 26
then list.Add (sprintf "Key %s : %s" updown (keyEvent.KeyValue.ToString()))
else list.Add (sprintf "Key %s : %s" updown (keyEvent.Key.ToString()))
list.Add (keyEvent.ToString ())
listView.MoveDown ();
container.KeyDown.Add(fun (e : View.KeyEventEventArgs) -> KeyDownPressUp (e.KeyEvent, "Down") |> ignore)