ZSL-Mirror/iud_key_imp10
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 2024-12-29 14:26:34 +01:00
parent e913ca6350
commit 7cf55ce953
53 changed files with 3807 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

419
Quellcodes/iud_key_rsachat/ChatClient.jfm Normal file
View file

@ -0,0 +1,419 @@
object ChatClient: TFGUIForm
Left = 0
Top = 0
BorderIcons = [biSystemMenu, biMinimize]
Caption = 'ChatClient'
ClientHeight = 644
ClientWidth = 1065
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
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnResize = FormResize
FrameType = 5
Resizable = False
Undecorated = False
Background = clBtnFace
windowClosing = 'ChatClient_WindowClosing'
PixelsPerInch = 96
TextHeight = 13
object jPanel1: TJPanel
Tag = 12
Left = 8
Top = 8
Width = 1041
Height = 41
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Dialog'
Font.Style = [fsBold]
Foreground = 3355443
Background = clBtnFace
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 = 4210752
Border.Beveltype = 1
Border.MatteColor = clBlack
Border.MatteTop = 0
Border.MatteLeft = 0
Border.MatteBottom = 0
Border.MatteRight = 0
object jLabel2: TJLabel
Tag = 1
Left = 264
Top = 11
Width = 62
Height = 20
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Dialog'
Font.Style = [fsBold]
Foreground = 3355443
Background = clBtnFace
Text = 'Server'
HorizontalAlignment = LEFT
VerticalAlignment = CENTER
HorizontalTextPosition = RIGHT
VerticalTextPosition = CENTER
IconTextGap = 4
DisplayedMnemonic = 0
DisplayedMnemonicIndex = 0
end
object jTFName: TJTextField
Tag = 2
Left = 80
Top = 11
Width = 150
Height = 20
Cursor = crIBeam
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Dialog'
Font.Style = []
Foreground = 3355443
Background = clWhite
HorizontalAlignment = LEFT
Text = 'anonymous'
Editable = True
end
object jTFAdress: TJTextField
Tag = 2
Left = 312
Top = 11
Width = 150
Height = 20
Cursor = crIBeam
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Dialog'
Font.Style = []
Foreground = 3355443
Background = clWhite
HorizontalAlignment = LEFT
Text = 'localhost'
Editable = True
end
object jLabel3: TJLabel
Tag = 1
Left = 496
Top = 11
Width = 62
Height = 20
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Dialog'
Font.Style = [fsBold]
Foreground = 3355443
Background = clBtnFace
Text = 'Port'
HorizontalAlignment = LEFT
VerticalAlignment = CENTER
HorizontalTextPosition = RIGHT
VerticalTextPosition = CENTER
IconTextGap = 4
DisplayedMnemonic = 0
DisplayedMnemonicIndex = 0
end
object jBVerbinden: TJButton
Tag = 4
Left = 936
Top = 8
Width = 99
Height = 25
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Dialog'
Font.Style = [fsBold]
Foreground = 3355443
Background = 15658734
actionPerformed = 'jBVerbinden_ActionPerformed'
Text = 'Verbinden'
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 = 8
Top = 12
Width = 62
Height = 18
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Dialog'
Font.Style = [fsBold]
Foreground = 3355443
Background = clBtnFace
Text = 'Name'
HorizontalAlignment = LEFT
VerticalAlignment = CENTER
HorizontalTextPosition = RIGHT
VerticalTextPosition = CENTER
IconTextGap = 4
DisplayedMnemonic = 0
DisplayedMnemonicIndex = 0
end
object jNFPort: TJNumberField
Tag = 21
Left = 528
Top = 11
Width = 75
Height = 20
Cursor = crIBeam
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Dialog'
Font.Style = []
Foreground = 3355443
Background = clWhite
HorizontalAlignment = LEFT
Text = '44444'
Editable = True
end
end
object jTFNachricht: TJTextField
Tag = 2
Left = 672
Top = 320
Width = 358
Height = 20
Cursor = crIBeam
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Dialog'
Font.Style = []
Foreground = 3355443
Background = clWhite
actionPerformed = 'jTFNachricht_ActionPerformed'
HorizontalAlignment = LEFT
Editable = True
end
object jBSend: TJButton
Tag = 4
Left = 720
Top = 254
Width = 99
Height = 25
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Dialog'
Font.Style = [fsBold]
Foreground = 3355443
Background = 15658734
actionPerformed = 'jBSend_ActionPerformed'
Text = 'Abschicken'
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 jLabel5: TJLabel
Tag = 1
Left = 8
Top = 64
Width = 62
Height = 20
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Dialog'
Font.Style = [fsBold]
Foreground = 3355443
Background = clBtnFace
mouseClicked = 'jLabel5_MouseClicked'
Text = 'Schl'#252'ssel'
HorizontalAlignment = LEFT
VerticalAlignment = CENTER
HorizontalTextPosition = RIGHT
VerticalTextPosition = CENTER
IconTextGap = 4
DisplayedMnemonic = 0
DisplayedMnemonicIndex = 0
end
object jScrollPane1: TJScrollPane
Tag = 11
Left = 96
Top = 136
Width = 953
Height = 481
Hint = 'jScrollPane1'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Dialog'
Font.Style = [fsBold]
Foreground = 3355443
Background = 15658734
HorizontalScrollBarPolicy = AS_NEEDED
VerticalScrollBarPolicy = ALWAYS
Autoscrolls = False
WheelScrollingEnabled = True
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 jScrollPane2: TJScrollPane
Tag = 11
Left = 96
Top = 64
Width = 953
Height = 57
Hint = 'jScrollPane2'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Dialog'
Font.Style = [fsBold]
Foreground = 3355443
Background = 15658734
HorizontalScrollBarPolicy = AS_NEEDED
VerticalScrollBarPolicy = AS_NEEDED
Autoscrolls = False
WheelScrollingEnabled = True
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 jLabel4: TJLabel
Tag = 1
Left = 8
Top = 144
Width = 86
Height = 20
Hint = 'jLabel4'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Dialog'
Font.Style = [fsBold]
Foreground = 3355443
Background = clBtnFace
Text = 'Nachrichten'
HorizontalAlignment = LEFT
VerticalAlignment = CENTER
HorizontalTextPosition = RIGHT
VerticalTextPosition = CENTER
IconTextGap = 4
DisplayedMnemonic = 0
DisplayedMnemonicIndex = 0
end
object jLabel6: TJLabel
Tag = 1
Left = 816
Top = 624
Width = 229
Height = 20
Hint = 'jLabel3'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Dialog'
Font.Style = [fsBold]
Foreground = clGray
Background = clBtnFace
Text = '(cc) 2017, Thomas Schaller, Version 1.0'
HorizontalAlignment = LEFT
VerticalAlignment = CENTER
HorizontalTextPosition = RIGHT
VerticalTextPosition = CENTER
IconTextGap = 4
DisplayedMnemonic = 0
DisplayedMnemonicIndex = 0
end
end