Ninterpres/Codigo.fmx at master · Nintersoft/Ninterpres · 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
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
object frmCodigo: TfrmCodigo
  Left = 0
  Top = 0
  Caption = 'Codigo - Ninterpres'
  ClientHeight = 504
  ClientWidth = 710
  FormFactor.Width = 320
  FormFactor.Height = 480
  FormFactor.Devices = [Desktop, iPhone, iPad]
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnShow = FormShow
  DesignerMasterStyle = 0
  object bmPrincipal: TRectangle
    Align = MostTop
    Fill.Color = claOrange
    Size.Width = 710.000000000000000000
    Size.Height = 40.000000000000000000
    Size.PlatformDefault = False
    Stroke.Color = claOrange
    object btAlterar: TSpeedButton
      Anchors = [akLeft, akTop, akBottom]
      Enabled = False
      StyledSettings = []
      Position.X = 136.000000000000000000
      Size.Width = 137.000000000000000000
      Size.Height = 40.000000000000000000
      Size.PlatformDefault = False
      Text = 'Atualizar'
      TextSettings.Font.Family = 'Segoe UI Semibold'
      TextSettings.Font.Size = 14.000000000000000000
      TextSettings.Font.Style = [fsBold]
      TextSettings.FontColor = claWhite
      OnClick = btAlterarClick
    end
    object Linha1: TLine
      LineType = Left
      Position.X = 136.000000000000000000
      Position.Y = 1.000000000000000000
      Size.Width = 1.000000000000000000
      Size.Height = 41.000000000000000000
      Size.PlatformDefault = False
      Stroke.Color = claWhite
      Stroke.Thickness = 2.000000000000000000
    end
    object btVerificar: TSpeedButton
      Align = Vertical
      Anchors = [akLeft, akTop, akBottom]
      Enabled = False
      StyledSettings = []
      Size.Width = 137.000000000000000000
      Size.Height = 40.000000000000000000
      Size.PlatformDefault = False
      Text = 'Verificar erros'
      TextSettings.Font.Family = 'Segoe UI Semibold'
      TextSettings.Font.Size = 14.000000000000000000
      TextSettings.Font.Style = [fsBold]
      TextSettings.FontColor = claWhite
    end
    object Linha2: TLine
      LineType = Left
      Position.X = 272.000000000000000000
      Size.Width = 9.000000000000000000
      Size.Height = 44.000000000000000000
      Size.PlatformDefault = False
      Stroke.Color = claWhite
      Stroke.Thickness = 2.000000000000000000
    end
    object btEstilo: TSpeedButton
      Enabled = False
      StyledSettings = []
      Position.X = 272.000000000000000000
      Position.Y = 1.000000000000000000
      Size.Width = 137.000000000000000000
      Size.Height = 41.000000000000000000
      Size.PlatformDefault = False
      Text = 'Estilos'
      TextSettings.Font.Family = 'Segoe UI Semibold'
      TextSettings.Font.Size = 14.000000000000000000
      TextSettings.Font.Style = [fsBold]
      TextSettings.FontColor = claWhite
    end
  end
  object SelecAba: TTabControl
    Align = Client
    Size.Width = 710.000000000000000000
    Size.Height = 464.000000000000000000
    Size.PlatformDefault = False
    TabIndex = 0
    TabOrder = 1
    TabPosition = Bottom
    object abaCodigo: TTabItem
      CustomIcon = <
        item
        end>
      IsSelected = True
      Size.Width = 166.000000000000000000
      Size.Height = 24.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 0
      Text = 'C'#243'digo execut'#225'vel principal'
      object mmCodigo: TMemo
        Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
        Align = Client
        Size.Width = 710.000000000000000000
        Size.Height = 440.000000000000000000
        Size.PlatformDefault = False
        TabOrder = 0
        Lines.Strings = (
          'Apresenta'#231#227'o sem t'#237'tulo'
          'Nintersoft'

            '//-------------------N'#195'O EDITE ACIMA DESTA LINHA----------------' +
            '-'
          '$CAPA'
          '*.*'
          '*.*'
          '!(FDT)')
        ReadOnly = True
        TextSettings.Font.Family = 'Arial'
        TextSettings.Font.Size = 16.000000000000000000
        StyledSettings = [FontColor]
        OnChange = mmCodigoChange
      end
    end
    object abaEstilo: TTabItem
      CustomIcon = <
        item
        end>
      IsSelected = False
      Size.Width = 102.000000000000000000
      Size.Height = 24.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 0
      Text = 'Folha de estilos'
      object mmEstilo: TMemo
        Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
        Align = Client
        Size.Width = 710.000000000000000000
        Size.Height = 440.000000000000000000
        Size.PlatformDefault = False
        TabOrder = 0
        Lines.Strings = (

            '//--------------- FOLHA DE ESTILOS / STYLESHEET ----------------' +
            '------------'
          '$TRANSP'
          '!NSBD'
          '!NSTT'
          '!NSFT'
          'COR:0'
          '!(FDD)'

            '//--------------------------------------------------------------' +
            '-----------------------'
          '$FNT'
          'TAM:16'
          'COR:0'
          '!(FDD)'

            '//--------------------------------------------------------------' +
            '-----------------------'
          '$OPO'
          '!NSDT'
          'NSLG'
          'NSFN'
          '!(FDD)'

            '//--------------------------------------------------------------' +
            '-----------------------'
          '')
        ReadOnly = True
        TextSettings.Font.Family = 'Arial Narrow'
        TextSettings.Font.Size = 16.000000000000000000
        StyledSettings = [Style, FontColor]
      end
    end
  end
end