WebApp_BPKAD/AppSIMDA.dfm at main · UrangBanua/WebApp_BPKAD · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
object frmAppSimda: TfrmAppSimda
  Left = 0
  Top = 0
  Width = 972
  Height = 713
  Hint = 'SIMDA'
  ParentAlignmentControl = False
  AlignmentControl = uniAlignmentClient
  TabOrder = 0
  object UniPanel1: TUniPanel
    Left = 0
    Top = 0
    Width = 972
    Height = 680
    Hint = ''
    Align = alClient
    TabOrder = 0
    Caption = ''
    object unfABC1: TUniFSButton
      Left = 64
      Top = 311
      Width = 241
      Height = 105
      Hint = ''
      StyleButton = GoogleNarrowRound
      BadgeText.Text = '0'
      BadgeText.TextColor = '#FFFFFF'
      BadgeText.TextSize = 10
      BadgeText.TextStyle = 'bold'
      BadgeText.BackgroundColor = '#D50000'
      Caption = 'Simda Web (UjiCoba)'
      ParentFont = False
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Roboto'
      TabOrder = 1
      Images = UniMainModule.imgButton
      ImageIndex = 2
      OnClick = unfABC1Click
    end
    object unfDetailAbsen: TUniFSButton
      Left = 64
      Top = 455
      Width = 241
      Height = 105
      Hint = ''
      StyleButton = GoogleNarrowRound
      BadgeText.Text = '0'
      BadgeText.TextColor = '#FFFFFF'
      BadgeText.TextSize = 10
      BadgeText.TextStyle = 'bold'
      BadgeText.BackgroundColor = '#D50000'
      Caption = '. . .'
      ParentFont = False
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Roboto'
      TabOrder = 2
      Images = UniMainModule.imgButton
      ImageIndex = 3
    end
    object unfUtilitasPelaporan: TUniFSButton
      Left = 64
      Top = 167
      Width = 241
      Height = 105
      Hint = ''
      StyleButton = GoogleNarrowRound
      BadgeText.Text = '0'
      BadgeText.TextColor = '#FFFFFF'
      BadgeText.TextSize = 10
      BadgeText.TextStyle = 'bold'
      BadgeText.BackgroundColor = '#D50000'
      Caption = 'Utilitas Pelaporan'
      ParentFont = False
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Roboto'
      TabOrder = 3
      Images = UniMainModule.imgButton
      ImageIndex = 1
      OnClick = unfUtilitasPelaporanClick
    end
    object unfUtilitasPembukuan: TUniFSButton
      Left = 64
      Top = 23
      Width = 241
      Height = 105
      Hint = 'SIMDA Online'
      StyleButton = GoogleNarrowRound
      BadgeText.Text = '0'
      BadgeText.TextColor = '#FFFFFF'
      BadgeText.TextSize = 10
      BadgeText.TextStyle = 'bold'
      BadgeText.BackgroundColor = '#D50000'
      Caption = 'Utilitas Pembukuan'
      ParentFont = False
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Roboto'
      TabOrder = 4
      Images = UniMainModule.imgButton
      ImageIndex = 0
      OnClick = unfUtilitasPembukuanClick
    end
  end
  object uPanelBottom: TUniPanel
    Left = 0
    Top = 680
    Width = 972
    Height = 33
    Hint = ''
    Align = alBottom
    TabOrder = 1
    Caption = ''
    object uPanelGaris: TUniPanel
      Left = 1
      Top = 7
      Width = 500
      Height = 1
      Hint = ''
      TabOrder = 1
      BorderStyle = ubsNone
      Caption = ''
      Color = 16440540
    end
    object UniLabel_Powered: TUniLabel
      Left = 3
      Top = 14
      Width = 128
      Height = 10
      Hint = ''
      Caption = 'Created By Tim SysDev BPKAD HST'
      ParentFont = False
      Font.Color = 9276813
      Font.Height = -8
      TabOrder = 2
    end
  end
  object upopUtilitasPelaporan: TUniPopupMenu
    Left = 392
    Top = 224
    object LaporanAnggaranVSRealisasiBelanjaPerSubRincianObject1: TUniMenuItem
      Caption =
        'Laporan Anggaran VS Realisasi Belanja Per SubRincian Object (P90' +
        ')'
      OnClick = LaporanAnggaranVSRealisasiBelanjaPerSubRincianObject1Click
    end
    object N1: TUniMenuItem
      Caption = '. . . . .'
    end
  end
end