Desktop-Shortcuts/DesktopShortcuts.Form.dfm at master · Code4Delphi/Desktop-Shortcuts · 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
object DesktopShortcutsForm: TDesktopShortcutsForm
  Left = 0
  Top = 0
  BorderStyle = bsSizeable
  Caption = 'Desktop Shortcuts'
  ClientHeight = 420
  ClientWidth = 620
  Color = clBtnFace
  Constraints.MinHeight = 340
  Constraints.MinWidth = 520
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Segoe UI'
  Font.Style = []
  KeyPreview = True
  OnShortCut = FormShortCut
  Position = poScreenCenter
  TextHeight = 15
  object lbInstrucao: TLabel
    Left = 16
    Top = 16
    Width = 484
    Height = 15
    Caption = 'Selecione uma linha e pressione o atalho desejado. Use Delete para limpar.'
  end
  object strGridAtalhos: TStringGrid
    Left = 16
    Top = 48
    Width = 588
    Height = 306
    Anchors = [akLeft, akTop, akRight, akBottom]
    ColCount = 2
    DefaultRowHeight = 24
    FixedCols = 0
    RowCount = 2
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSelect]
    TabOrder = 0
    OnKeyDown = strGridAtalhosKeyDown
  end
  object pnBotoes: TPanel
    Left = 0
    Top = 370
    Width = 620
    Height = 50
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object btnGravar: TButton
      Left = 428
      Top = 10
      Width = 84
      Height = 28
      Anchors = [akTop, akRight]
      Caption = 'Gravar'
      Default = True
      TabOrder = 0
      OnClick = btnGravarClick
    end
    object btnCancelar: TButton
      Left = 520
      Top = 10
      Width = 84
      Height = 28
      Anchors = [akTop, akRight]
      Cancel = True
      Caption = 'Cancelar'
      ModalResult = 2
      TabOrder = 1
    end
  end
end