📄 unit_systemissueinfo.dfm
字号:
object Frm_SystemIssueInfo: TFrm_SystemIssueInfo
Left = 147
Top = 201
Width = 694
Height = 450
Caption = '公告信息'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poMainFormCenter
Visible = True
WindowState = wsMaximized
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 14
object Panel1: TPanel
Left = 0
Top = 0
Width = 686
Height = 416
Align = alClient
BevelOuter = bvLowered
TabOrder = 0
object PageControl1: TPageControl
Left = 1
Top = 1
Width = 684
Height = 414
ActivePage = TabSheet2
Align = alClient
Style = tsFlatButtons
TabOrder = 0
OnChange = PageControl1Change
object TabSheet1: TTabSheet
Caption = '最新公告信息'
object Panel3: TPanel
Left = 0
Top = 0
Width = 203
Height = 382
Align = alLeft
BevelOuter = bvLowered
TabOrder = 0
object DBGrid1: TDBGrid
Left = 1
Top = 1
Width = 201
Height = 380
Align = alClient
DataSource = DataSource_gg
ImeName = '中文 (简体) - 智能 ABC'
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -14
TitleFont.Name = '宋体'
TitleFont.Style = []
OnTitleClick = DBGrid1TitleClick
Columns = <
item
Expanded = False
FieldName = 'PUBTIME'
Title.Caption = '发布时间'
Width = 163
Visible = True
end>
end
end
object Panel12: TPanel
Left = 203
Top = 0
Width = 473
Height = 382
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object FlatPanel1: TFlatPanel
Left = 0
Top = 346
Width = 473
Height = 36
ParentColor = True
Align = alBottom
TabOrder = 0
UseDockManager = True
object CheckBox1: TCheckBox
Left = 32
Top = 11
Width = 113
Height = 17
Caption = '转为历史信息'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = CheckBox1Click
end
object Panel13: TPanel
Left = 287
Top = 1
Width = 185
Height = 34
Align = alRight
BevelOuter = bvNone
TabOrder = 1
object BitBtn_gb: TFlatButton
Left = 106
Top = 4
Width = 73
Height = 25
Caption = '关闭'
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
0000}
Layout = blGlyphLeft
NumGlyphs = 2
TabOrder = 0
OnClick = BitBtn_gbClick
end
end
end
object Panel4: TPanel
Left = 0
Top = 0
Width = 473
Height = 346
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object Panel8: TPanel
Left = 0
Top = 0
Width = 473
Height = 62
Align = alTop
BevelOuter = bvLowered
TabOrder = 0
object Label3: TLabel
Left = 10
Top = 37
Width = 70
Height = 14
Caption = '发布人工号'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 170
Top = 37
Width = 70
Height = 14
Caption = '发布人姓名'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label1: TLabel
Left = 327
Top = 37
Width = 56
Height = 14
Caption = '公告类型'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 52
Top = 12
Width = 28
Height = 14
Caption = '地市'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 212
Top = 12
Width = 28
Height = 14
Caption = '局向'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 327
Top = 12
Width = 56
Height = 14
Caption = '发布对象'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Fcom_gh: TFlatComboBox
Left = 83
Top = 33
Width = 80
Height = 22
Color = clWindow
Enabled = False
ItemHeight = 14
TabOrder = 0
ItemIndex = -1
end
object Fedit_name: TFlatEdit
Left = 241
Top = 33
Width = 80
Height = 20
ColorFlat = clWhite
Enabled = False
ReadOnly = True
TabOrder = 1
end
object Fcom_gglx: TFlatComboBox
Left = 386
Top = 33
Width = 80
Height = 22
Style = csDropDownList
Color = clWindow
Enabled = False
ItemHeight = 14
Items.Strings = (
'一般'
'中等'
'重要')
TabOrder = 2
ItemIndex = -1
end
object FCom_city: TFlatComboBox
Left = 83
Top = 8
Width = 80
Height = 22
Color = clWindow
Enabled = False
ItemHeight = 14
TabOrder = 3
ItemIndex = -1
end
object Fcom_jx: TFlatComboBox
Left = 241
Top = 8
Width = 80
Height = 22
Color = clWindow
Enabled = False
ItemHeight = 14
TabOrder = 4
ItemIndex = -1
end
object Fcom_jb: TFlatComboBox
Left = 386
Top = 8
Width = 80
Height = 22
Color = clWindow
Enabled = False
ItemHeight = 14
TabOrder = 5
ItemIndex = -1
end
end
object Panel11: TPanel
Left = 0
Top = 62
Width = 473
Height = 23
Align = alTop
BevelOuter = bvLowered
Caption = '信息内容'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object Memo_ggnr: TMemo
Left = 0
Top = 85
Width = 473
Height = 261
Align = alClient
ImeName = '中文 (简体) - 智能 ABC'
TabOrder = 2
end
end
end
end
object TabSheet2: TTabSheet
Caption = '历史公告信息'
ImageIndex = 1
object Panel6: TPanel
Left = 0
Top = 0
Width = 203
Height = 382
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -