ZSL-Mirror/run_n_inf7
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Subtrees hinzugefügt

Browse source
This commit is contained in:
Thomas Schaller 2025-01-02 12:26:47 +01:00
parent 433a6f2eb1
commit a02bf698e6
19 changed files with 2775 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

787
Quellcodes/sonst_spiel_grosserpreis/Quizspiel.jfm Normal file
View file

@ -0,0 +1,787 @@
object quizspiel: TFGUIForm
Left = 0
Top = -88
BorderIcons = [biSystemMenu]
Caption = 'Quizspiel'
ClientHeight = 552
ClientWidth = 1030
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -10
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = True
Position = poDesigned
ShowHint = True
Visible = True
WindowState = wsMaximized
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnResize = FormResize
FrameType = 5
Resizable = False
Undecorated = True
Background = clBtnFace
PixelsPerInch = 96
TextHeight = 13
object jPanel2: TJPanel
Tag = 12
Left = 192
Top = 72
Width = 193
Height = 65
Hint = 'jPanel1'
Foreground = 3355443
Background = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Dialog'
Font.Style = [fsBold]
Border.BorderType = BevelBorder
Border.LineColor = clBlack
Border.LineThickness = 0
Border.LineRounded = False
Border.EtchHighlightColor = clWhite
Border.EtchShadowColor = clBlack
Border.Etchtype = 0
Border.BevelHighlightColor = clWhite
Border.BevelShadowColor = clBlack
Border.Beveltype = 0
Border.MatteColor = clBlack
Border.MatteTop = 0
Border.MatteLeft = 0
Border.MatteBottom = 0
Border.MatteRight = 0
end
object jPanel3: TJPanel
Tag = 12
Left = 384
Top = 72
Width = 193
Height = 65
Hint = 'jPanel1'
Foreground = 3355443
Background = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Dialog'
Font.Style = [fsBold]
Border.BorderType = BevelBorder
Border.LineColor = clBlack
Border.LineThickness = 0
Border.LineRounded = False
Border.EtchHighlightColor = clWhite
Border.EtchShadowColor = clBlack
Border.Etchtype = 0
Border.BevelHighlightColor = clWhite
Border.BevelShadowColor = clBlack
Border.Beveltype = 0
Border.MatteColor = clBlack
Border.MatteTop = 0
Border.MatteLeft = 0
Border.MatteBottom = 0
Border.MatteRight = 0
end
object jPanel4: TJPanel
Tag = 12
Left = 0
Top = 0
Width = 1026
Height = 553
Hint = 'jPanel4'
Foreground = 3355443
Background = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Dialog'
Font.Style = [fsBold]
Border.BorderType = LineBorder
Border.LineColor = clBlack
Border.LineThickness = 2
Border.LineRounded = False
Border.EtchHighlightColor = clBlack
Border.EtchShadowColor = clBlack
Border.Etchtype = 0
Border.BevelHighlightColor = clBlack
Border.BevelShadowColor = clBlack
Border.Beveltype = 0
Border.MatteColor = clBlack
Border.MatteTop = 0
Border.MatteLeft = 0
Border.MatteBottom = 0
Border.MatteRight = 0
object jPSpieler1: TJPanel
Tag = 12
Left = 832
Top = 72
Width = 185
Height = 89
Hint = 'jPanel5'
Foreground = 3355443
Background = 15060920
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Dialog'
Font.Style = [fsBold]
Border.BorderType = BevelBorder
Border.LineColor = clBlack
Border.LineThickness = 0
Border.LineRounded = False
Border.EtchHighlightColor = clBlack
Border.EtchShadowColor = clBlack
Border.Etchtype = 0
Border.BevelHighlightColor = clWhite
Border.BevelShadowColor = clBlack
Border.Beveltype = 1
Border.MatteColor = clBlack
Border.MatteTop = 0
Border.MatteLeft = 0
Border.MatteBottom = 0
Border.MatteRight = 0
object jLName1: TJLabel
Tag = 1
Left = 8
Top = 8
Width = 174
Height = 33
Hint = 'jLabel3'
Foreground = clNavy
Background = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -24
Font.Name = 'Dialog'
Font.Style = [fsBold]
Text = 'Spieler 1'
HorizontalAlignment = LEFT
VerticalAlignment = CENTER
HorizontalTextPosition = CENTER
VerticalTextPosition = CENTER
IconTextGap = 4
DisplayedMnemonic = 0
DisplayedMnemonicIndex = 0
end
object jLPunkte1: TJLabel
Tag = 1
Left = 11
Top = 48
Width = 166
Height = 33
Hint = 'jLabel3'
Foreground = clMaroon
Background = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -24
Font.Name = 'Dialog'
Font.Style = [fsBold]
Text = '0 Punkte'
HorizontalAlignment = LEFT
VerticalAlignment = CENTER
HorizontalTextPosition = CENTER
VerticalTextPosition = CENTER
IconTextGap = 4
DisplayedMnemonic = 0
DisplayedMnemonicIndex = 0
end
end
object jPSpieler2: TJPanel
Tag = 12
Left = 832
Top = 160
Width = 185
Height = 89
Hint = 'jPanel5'
Foreground = 3355443
Background = 15658734
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Dialog'
Font.Style = [fsBold]
Border.BorderType = BevelBorder
Border.LineColor = clBlack
Border.LineThickness = 0
Border.LineRounded = False
Border.EtchHighlightColor = clBlack
Border.EtchShadowColor = clBlack
Border.Etchtype = 0
Border.BevelHighlightColor = clWhite
Border.BevelShadowColor = clBlack
Border.Beveltype = 1
Border.MatteColor = clBlack
Border.MatteTop = 0
Border.MatteLeft = 0
Border.MatteBottom = 0
Border.MatteRight = 0
object jLName2: TJLabel
Tag = 1
Left = 8
Top = 8
Width = 174
Height = 33
Hint = 'jLabel3'
Foreground = clNavy
Background = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -24
Font.Name = 'Dialog'
Font.Style = [fsBold]
Text = 'Spieler 2'
HorizontalAlignment = LEFT
VerticalAlignment = CENTER
HorizontalTextPosition = CENTER
VerticalTextPosition = CENTER
IconTextGap = 4
DisplayedMnemonic = 0
DisplayedMnemonicIndex = 0
end
object jLPunkte2: TJLabel
Tag = 1
Left = 11
Top = 48
Width = 166
Height = 33
Hint = 'jLabel3'
Foreground = clMaroon
Background = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -24
Font.Name = 'Dialog'
Font.Style = [fsBold]
Text = '0 Punkte'
HorizontalAlignment = LEFT
VerticalAlignment = CENTER
HorizontalTextPosition = CENTER
VerticalTextPosition = CENTER
IconTextGap = 4
DisplayedMnemonic = 0
DisplayedMnemonicIndex = 0
end
end
object jPSpieler3: TJPanel
Tag = 12
Left = 832
Top = 248
Width = 185
Height = 89
Hint = 'jPanel5'
Foreground = 3355443
Background = 15658734
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Dialog'
Font.Style = [fsBold]
Border.BorderType = BevelBorder
Border.LineColor = clBlack
Border.LineThickness = 0
Border.LineRounded = False
Border.EtchHighlightColor = clBlack
Border.EtchShadowColor = clBlack
Border.Etchtype = 0
Border.BevelHighlightColor = clWhite
Border.BevelShadowColor = clBlack
Border.Beveltype = 1
Border.MatteColor = clBlack
Border.MatteTop = 0
Border.MatteLeft = 0
Border.MatteBottom = 0
Border.MatteRight = 0
object jLName3: TJLabel
Tag = 1
Left = 8
Top = 8
Width = 174
Height = 33
Hint = 'jLabel3'
Foreground = clNavy
Background = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -24
Font.Name = 'Dialog'
Font.Style = [fsBold]
Text = 'Spieler 3'
HorizontalAlignment = LEFT
VerticalAlignment = CENTER
HorizontalTextPosition = CENTER
VerticalTextPosition = CENTER
IconTextGap = 4
DisplayedMnemonic = 0
DisplayedMnemonicIndex = 0
end
object jLPunkte3: TJLabel
Tag = 1
Left = 11
Top = 48
Width = 166
Height = 33
Hint = 'jLabel3'
Foreground = clMaroon
Background = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -24
Font.Name = 'Dialog'
Font.Style = [fsBold]
Text = '0 Punkte'
HorizontalAlignment = LEFT
VerticalAlignment = CENTER
HorizontalTextPosition = CENTER
VerticalTextPosition = CENTER
IconTextGap = 4
DisplayedMnemonic = 0
DisplayedMnemonicIndex = 0
end
end
object jPSpieler4: TJPanel
Tag = 12
Left = 832
Top = 336
Width = 185
Height = 89
Hint = 'jPanel5'
Foreground = 3355443
Background = 15658734
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Dialog'
Font.Style = [fsBold]
Border.BorderType = BevelBorder
Border.LineColor = clBlack
Border.LineThickness = 0
Border.LineRounded = False
Border.EtchHighlightColor = clBlack
Border.EtchShadowColor = clBlack
Border.Etchtype = 0
Border.BevelHighlightColor = clWhite
Border.BevelShadowColor = clBlack
Border.Beveltype = 1
Border.MatteColor = clBlack
Border.MatteTop = 0
Border.MatteLeft = 0
Border.MatteBottom = 0
Border.MatteRight = 0
object jLName4: TJLabel
Tag = 1
Left = 8
Top = 8
Width = 174
Height = 33
Hint = 'jLabel3'
Foreground = clNavy
Background = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -24
Font.Name = 'Dialog'
Font.Style = [fsBold]
Text = 'Spieler 4'
HorizontalAlignment = LEFT
VerticalAlignment = CENTER
HorizontalTextPosition = CENTER
VerticalTextPosition = CENTER
IconTextGap = 4
DisplayedMnemonic = 0
DisplayedMnemonicIndex = 0
end
object jLPunkte4: TJLabel
Tag = 1
Left = 11
Top = 48
Width = 166
Height = 33
Hint = 'jLabel3'
Foreground = clMaroon
Background = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -24
Font.Name = 'Dialog'
Font.Style = [fsBold]
Text = '0 Punkte'
HorizontalAlignment = LEFT
VerticalAlignment = CENTER
HorizontalTextPosition = CENTER
VerticalTextPosition = CENTER
IconTextGap = 4
DisplayedMnemonic = 0
DisplayedMnemonicIndex = 0
end
end
object jButton3: TJButton
Tag = 4
Left = 2
Top = 215
Width = 193
Height = 65
Hint = 'jButton2'
Foreground = clWindowText
Background = 15658734
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -36
Font.Name = 'Dialog'
Font.Style = [fsBold]
actionPerformed = 'jButton3_ActionPerformed'
Text = '40'
Mnemonic = 0
DisplayedMnemonicIndex = 0
Selected = False
BorderPainted = True
FocusPainted = False
ContentAreaFilled = True
HorizontalAlignment = CENTER
VerticalAlignment = CENTER
HorizontalTextPosition = RIGHT
VerticalTextPosition = CENTER
IconTextGap = 4
RolloverEnabled = False
Border.BorderType = NoBorder
Border.LineColor = clBlack
Border.LineThickness = 0
Border.LineRounded = False
Border.EtchHighlightColor = clBlack
Border.EtchShadowColor = clBlack
Border.Etchtype = 0
Border.BevelHighlightColor = clBlack
Border.BevelShadowColor = clBlack
Border.Beveltype = 0
Border.MatteColor = clBlack
Border.MatteTop = 0
Border.MatteLeft = 0
Border.MatteBottom = 0
Border.MatteRight = 0
end
object jButton4: TJButton
Tag = 4
Left = 2
Top = 343
Width = 193
Height = 65
Hint = 'jButton2'
Foreground = clWindowText
Background = 15658734
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -36
Font.Name = 'Dialog'
Font.Style = [fsBold]
actionPerformed = 'jButton4_ActionPerformed'
Text = '80'
Mnemonic = 0
DisplayedMnemonicIndex = 0
Selected = False
BorderPainted = True
FocusPainted = False
ContentAreaFilled = True
HorizontalAlignment = CENTER
VerticalAlignment = CENTER
HorizontalTextPosition = RIGHT
VerticalTextPosition = CENTER
IconTextGap = 4
RolloverEnabled = False
Border.BorderType = NoBorder
Border.LineColor = clBlack
Border.LineThickness = 0
Border.LineRounded = False
Border.EtchHighlightColor = clBlack
Border.EtchShadowColor = clBlack
Border.Etchtype = 0
Border.BevelHighlightColor = clBlack
Border.BevelShadowColor = clBlack
Border.Beveltype = 0
Border.MatteColor = clBlack
Border.MatteTop = 0
Border.MatteLeft = 0
Border.MatteBottom = 0
Border.MatteRight = 0
end
object jButton5: TJButton
Tag = 4
Left = 2
Top = 407
Width = 193
Height = 65
Hint = 'jButton2'
Foreground = clWindowText
Background = 15658734
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -36
Font.Name = 'Dialog'
Font.Style = [fsBold]
actionPerformed = 'jButton5_ActionPerformed'
Text = '100'
Mnemonic = 0
DisplayedMnemonicIndex = 0
Selected = False
BorderPainted = True
FocusPainted = False
ContentAreaFilled = True
HorizontalAlignment = CENTER
VerticalAlignment = CENTER
HorizontalTextPosition = RIGHT
VerticalTextPosition = CENTER
IconTextGap = 4
RolloverEnabled = False
Border.BorderType = NoBorder
Border.LineColor = clBlack
Border.LineThickness = 0
Border.LineRounded = False
Border.EtchHighlightColor = clBlack
Border.EtchShadowColor = clBlack
Border.Etchtype = 0
Border.BevelHighlightColor = clBlack
Border.BevelShadowColor = clBlack
Border.Beveltype = 0
Border.MatteColor = clBlack
Border.MatteTop = 0
Border.MatteLeft = 0
Border.MatteBottom = 0
Border.MatteRight = 0
end
object jBEnde: TJButton
Tag = 4
Left = 832
Top = 432
Width = 185
Height = 49
Hint = 'jButton6'
Foreground = clWindowText
Background = 15658734
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -24
Font.Name = 'Dialog'
Font.Style = [fsBold]
actionPerformed = 'jBEnde_ActionPerformed'
Text = 'Spiel beenden'
Mnemonic = 0
DisplayedMnemonicIndex = 0
Selected = False
BorderPainted = True
FocusPainted = False
ContentAreaFilled = True
HorizontalAlignment = CENTER
VerticalAlignment = CENTER
HorizontalTextPosition = RIGHT
VerticalTextPosition = CENTER
IconTextGap = 4
RolloverEnabled = False
Border.BorderType = NoBorder
Border.LineColor = clBlack
Border.LineThickness = 0
Border.LineRounded = False
Border.EtchHighlightColor = clBlack
Border.EtchShadowColor = clBlack
Border.Etchtype = 0
Border.BevelHighlightColor = clBlack
Border.BevelShadowColor = clBlack
Border.Beveltype = 0
Border.MatteColor = clBlack
Border.MatteTop = 0
Border.MatteLeft = 0
Border.MatteBottom = 0
Border.MatteRight = 0
end
end
object jPanel1: TJPanel
Tag = 12
Left = 2
Top = 85
Width = 193
Height = 65
Hint = 'jPanel1'
Foreground = 3355443
Background = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Dialog'
Font.Style = [fsBold]
Border.BorderType = BevelBorder
Border.LineColor = clBlack
Border.LineThickness = 0
Border.LineRounded = False
Border.EtchHighlightColor = clWhite
Border.EtchShadowColor = clBlack
Border.Etchtype = 0
Border.BevelHighlightColor = clWhite
Border.BevelShadowColor = clBlack
Border.Beveltype = 0
Border.MatteColor = clBlack
Border.MatteTop = 0
Border.MatteLeft = 0
Border.MatteBottom = 0
Border.MatteRight = 0
object jLabel2: TJLabel
Tag = 1
Left = 8
Top = 8
Width = 174
Height = 44
Hint = 'jLabel2'
Foreground = clWindowText
Background = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -24
Font.Name = 'Dialog'
Font.Style = [fsBold]
Text = 'Router'
HorizontalAlignment = CENTER
VerticalAlignment = CENTER
HorizontalTextPosition = RIGHT
VerticalTextPosition = CENTER
IconTextGap = 4
DisplayedMnemonic = 0
DisplayedMnemonicIndex = 0
end
end
object jLStatus: TJLabel
Tag = 1
Left = 8
Top = 488
Width = 1011
Height = 57
Hint = 'jLabel3'
Foreground = clWhite
Background = clGray
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -24
Font.Name = 'Dialog'
Font.Style = [fsBold]
Text = 'W'#228'hle bitte eine Frage...'
HorizontalAlignment = LEFT
VerticalAlignment = CENTER
HorizontalTextPosition = RIGHT
VerticalTextPosition = CENTER
IconTextGap = 4
DisplayedMnemonic = 0
DisplayedMnemonicIndex = 0
end
object jButton1: TJButton
Tag = 4
Left = 2
Top = 150
Width = 193
Height = 65
Hint = 'jButton1'
Foreground = clWindowText
Background = 15658734
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -36
Font.Name = 'Dialog'
Font.Style = [fsBold]
actionPerformed = 'jButton1_ActionPerformed'
Text = '20'
Mnemonic = 0
DisplayedMnemonicIndex = 0
Selected = False
BorderPainted = True
FocusPainted = False
ContentAreaFilled = True
HorizontalAlignment = CENTER
VerticalAlignment = CENTER
HorizontalTextPosition = RIGHT
VerticalTextPosition = CENTER
IconTextGap = 4
RolloverEnabled = False
Border.BorderType = NoBorder
Border.LineColor = clBlack
Border.LineThickness = 0
Border.LineRounded = False
Border.EtchHighlightColor = clBlack
Border.EtchShadowColor = clBlack
Border.Etchtype = 0
Border.BevelHighlightColor = clBlack
Border.BevelShadowColor = clBlack
Border.Beveltype = 0
Border.MatteColor = clBlack
Border.MatteTop = 0
Border.MatteLeft = 0
Border.MatteBottom = 0
Border.MatteRight = 0
end
object jButton2: TJButton
Tag = 4
Left = 2
Top = 279
Width = 193
Height = 65
Hint = 'jButton2'
Foreground = clWindowText
Background = 15658734
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -36
Font.Name = 'Dialog'
Font.Style = [fsBold]
actionPerformed = 'jButton2_ActionPerformed'
Text = '60'
Mnemonic = 0
DisplayedMnemonicIndex = 0
Selected = False
BorderPainted = True
FocusPainted = False
ContentAreaFilled = True
HorizontalAlignment = CENTER
VerticalAlignment = CENTER
HorizontalTextPosition = RIGHT
VerticalTextPosition = CENTER
IconTextGap = 4
RolloverEnabled = False
Border.BorderType = NoBorder
Border.LineColor = clBlack
Border.LineThickness = 0
Border.LineRounded = False
Border.EtchHighlightColor = clBlack
Border.EtchShadowColor = clBlack
Border.Etchtype = 0
Border.BevelHighlightColor = clBlack
Border.BevelShadowColor = clBlack
Border.Beveltype = 0
Border.MatteColor = clBlack
Border.MatteTop = 0
Border.MatteLeft = 0
Border.MatteBottom = 0
Border.MatteRight = 0
end
object jLabel1: TJLabel
Tag = 1
Left = 2
Top = 2
Width = 1019
Height = 65
Hint = 'jLabel1'
Foreground = 3355443
Background = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Dialog'
Font.Style = [fsBold]
Text = 'text'
Icon = 'images/Titelleiste_Netzwerk.png'
HorizontalAlignment = LEFT
VerticalAlignment = CENTER
HorizontalTextPosition = RIGHT
VerticalTextPosition = CENTER
IconTextGap = 4
DisplayedMnemonic = 0
DisplayedMnemonicIndex = 0
end
end