~ubuntu-branches/ubuntu/saucy/lazarus/saucy

« back to all changes in this revision

Viewing changes to components/sqldb/sqlstringspropertyeditordlg.lfm

  • Committer: Package Import Robot
  • Author(s): Paul Gevers, Abou Al Montacir, Bart Martens, Paul Gevers
  • Date: 2013-06-08 14:12:17 UTC
  • mfrom: (1.1.9)
  • Revision ID: package-import@ubuntu.com-20130608141217-7k0cy9id8ifcnutc
Tags: 1.0.8+dfsg-1
[ Abou Al Montacir ]
* New upstream major release and multiple maintenace release offering many
  fixes and new features marking a new milestone for the Lazarus development
  and its stability level.
  - The detailed list of changes can be found here:
    http://wiki.lazarus.freepascal.org/Lazarus_1.0_release_notes
    http://wiki.lazarus.freepascal.org/Lazarus_1.0_fixes_branch
* LCL changes:
  - LCL is now a normal package.
      + Platform independent parts of the LCL are now in the package LCLBase
      + LCL is automatically recompiled when switching the target platform,
        unless pre-compiled binaries for this target are already installed.
      + No impact on existing projects.
      + Linker options needed by LCL are no more added to projects that do
        not use the LCL package.
  - Minor changes in LCL basic classes behaviour
      + TCustomForm.Create raises an exception if a form resource is not
        found.
      + TNotebook and TPage: a new implementation of these classes was added.
      + TDBNavigator: It is now possible to have focusable buttons by setting
        Options = [navFocusableButtons] and TabStop = True, useful for
        accessibility and for devices with neither mouse nor touch screen.
      + Names of TControlBorderSpacing.GetSideSpace and GetSpace were swapped
        and are now consistent. GetSideSpace = Around + GetSpace.
      + TForm.WindowState=wsFullscreen was added
      + TCanvas.TextFitInfo was added to calculate how many characters will
        fit into a specified Width. Useful for word-wrapping calculations.
      + TControl.GetColorResolvingParent and
        TControl.GetRGBColorResolvingParent were added, simplifying the work
        to obtain the final color of the control while resolving clDefault
        and the ParentColor.
      + LCLIntf.GetTextExtentExPoint now has a good default implementation
        which works in any platform not providing a specific implementation.
        However, Widgetset specific implementation is better, when available.
      + TTabControl was reorganized. Now it has the correct class hierarchy
        and inherits from TCustomTabControl as it should.
  - New unit in the LCL:
      + lazdialogs.pas: adds non-native versions of various native dialogs,
        for example TLazOpenDialog, TLazSaveDialog, TLazSelectDirectoryDialog.
        It is used by widgetsets which either do not have a native dialog, or
        do not wish to use it because it is limited. These dialogs can also be
        used by user applications directly.
      + lazdeviceapis.pas: offers an interface to more hardware devices such
        as the accelerometer, GPS, etc. See LazDeviceAPIs
      + lazcanvas.pas: provides a TFPImageCanvas descendent implementing
        drawing in a LCL-compatible way, but 100% in Pascal.
      + lazregions.pas. LazRegions is a wholly Pascal implementation of
        regions for canvas clipping, event clipping, finding in which control
        of a region tree one an event should reach, for drawing polygons, etc.
      + customdrawncontrols.pas, customdrawndrawers.pas,
        customdrawn_common.pas, customdrawn_android.pas and
        customdrawn_winxp.pas: are the Lazarus Custom Drawn Controls -controls
        which imitate the standard LCL ones, but with the difference that they
        are non-native and support skinning.
  - New APIs added to the LCL to improve support of accessibility software
    such as screen readers.
* IDE changes:
  - Many improvments.
  - The detailed list of changes can be found here:
    http://wiki.lazarus.freepascal.org/New_IDE_features_since#v1.0_.282012-08-29.29
    http://wiki.lazarus.freepascal.org/Lazarus_1.0_release_notes#IDE_Changes
* Debugger / Editor changes:
  - Added pascal sources and breakpoints to the disassembler
  - Added threads dialog.
* Components changes:
  - TAChart: many fixes and new features
  - CodeTool: support Delphi style generics and new syntax extensions.
  - AggPas: removed to honor free licencing. (Closes: Bug#708695)
[Bart Martens]
* New debian/watch file fixing issues with upstream RC release.
[Abou Al Montacir]
* Avoid changing files in .pc hidden directory, these are used by quilt for
  internal purpose and could lead to surprises during build.
[Paul Gevers]
* Updated get-orig-source target and it compinion script orig-tar.sh so that they
  repack the source file, allowing bug 708695 to be fixed.

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
1
object SQLStringsPropertyEditorDlg: TSQLStringsPropertyEditorDlg
2
 
  Left = 527
 
2
  Left = 422
3
3
  Height = 357
4
 
  Top = 248
 
4
  Top = 223
5
5
  Width = 494
6
6
  ActiveControl = PageControl
7
7
  Caption = 'SQLStringsPropertyEditorDlg'
9
9
  ClientWidth = 494
10
10
  OnShow = FormShow
11
11
  Position = poScreenCenter
12
 
  LCLVersion = '0.9.29'
 
12
  LCLVersion = '1.1'
13
13
  object ButtonsPanel: TButtonPanel
14
14
    Left = 6
15
 
    Height = 35
16
 
    Top = 316
 
15
    Height = 34
 
16
    Top = 317
17
17
    Width = 482
18
18
    OKButton.Name = 'OKButton'
19
 
    OKButton.Caption = '&OK'
 
19
    OKButton.DefaultCaption = True
20
20
    HelpButton.Name = 'HelpButton'
21
 
    HelpButton.Caption = '&Help'
 
21
    HelpButton.DefaultCaption = True
22
22
    CloseButton.Name = 'CloseButton'
23
 
    CloseButton.Caption = '&Close'
 
23
    CloseButton.DefaultCaption = True
24
24
    CloseButton.Enabled = False
25
25
    CancelButton.Name = 'CancelButton'
26
 
    CancelButton.Caption = 'Cancel'
 
26
    CancelButton.DefaultCaption = True
27
27
    TabOrder = 0
28
28
    ShowButtons = [pbOK, pbCancel, pbHelp]
29
29
  end
55
55
    object DividerToolButton: TToolButton
56
56
      Left = 57
57
57
      Top = 2
58
 
      Width = 4
 
58
      Width = 5
59
59
      Caption = 'DividerToolButton'
60
60
      Style = tbsDivider
61
61
    end
62
62
    object ExecuteToolButton: TToolButton
63
 
      Left = 61
 
63
      Left = 62
64
64
      Top = 2
65
65
      Caption = 'ExecuteToolButton'
66
66
      ImageIndex = 2
67
67
      OnClick = ExecuteToolButtonClick
68
68
    end
69
69
    object TBCheck: TToolButton
70
 
      Left = 89
 
70
      Left = 90
71
71
      Top = 2
72
72
      Caption = 'TBCheck'
73
73
      ImageIndex = 3
76
76
  end
77
77
  object PageControl: TPageControl
78
78
    Left = 0
79
 
    Height = 280
 
79
    Height = 281
80
80
    Top = 30
81
81
    Width = 494
82
82
    ActivePage = EditorTabSheet
84
84
    TabIndex = 0
85
85
    TabOrder = 2
86
86
    object EditorTabSheet: TTabSheet
87
 
      ClientHeight = 249
88
 
      ClientWidth = 490
 
87
      ClientHeight = 255
 
88
      ClientWidth = 486
89
89
      inline SQLEditor: TSynEdit
90
90
        Left = 0
91
 
        Height = 249
 
91
        Height = 255
92
92
        Top = 0
93
 
        Width = 490
 
93
        Width = 486
94
94
        Align = alClient
95
95
        Font.Height = -16
96
96
        Font.Name = '-misc-dejavu sans mono-*-*-*-*-*-*-*-*-*-*-iso10646-1'
100
100
        ParentFont = False
101
101
        PopupMenu = PMSQL
102
102
        TabOrder = 0
 
103
        OnMouseDown = SQLEditorMouseDown
103
104
        Gutter.Width = 61
104
105
        Gutter.MouseActions = <        
105
106
          item
106
 
            Shift = []
107
 
            ShiftMask = []
108
 
            Button = mbLeft
109
107
            ClickCount = ccAny
110
108
            ClickDir = cdDown
111
 
            Command = 13
112
 
            MoveCaret = False
113
 
            Option = 0
114
 
            Priority = 0
 
109
            Command = emcOnMainGutterClick
115
110
          end        
116
111
          item
117
 
            Shift = []
118
 
            ShiftMask = []
119
112
            Button = mbRight
120
 
            ClickCount = ccSingle
121
 
            ClickDir = cdUp
122
 
            Command = 12
123
 
            MoveCaret = False
124
 
            Option = 0
125
 
            Priority = 0
 
113
            Command = emcContextMenu
126
114
          end>
127
115
        RightGutter.Width = 0
128
116
        RightGutter.MouseActions = <        
129
117
          item
130
 
            Shift = []
131
 
            ShiftMask = []
132
 
            Button = mbLeft
133
118
            ClickCount = ccAny
134
119
            ClickDir = cdDown
135
 
            Command = 13
136
 
            MoveCaret = False
137
 
            Option = 0
138
 
            Priority = 0
 
120
            Command = emcOnMainGutterClick
139
121
          end        
140
122
          item
141
 
            Shift = []
142
 
            ShiftMask = []
143
123
            Button = mbRight
144
 
            ClickCount = ccSingle
145
 
            ClickDir = cdUp
146
 
            Command = 12
147
 
            MoveCaret = False
148
 
            Option = 0
149
 
            Priority = 0
 
124
            Command = emcContextMenu
150
125
          end>
151
126
        Highlighter = SQLHighlighter
152
127
        Keystrokes = <        
472
447
          end>
473
448
        MouseActions = <        
474
449
          item
475
 
            Shift = []
476
450
            ShiftMask = [ssShift, ssAlt]
477
 
            Button = mbLeft
478
 
            ClickCount = ccSingle
479
451
            ClickDir = cdDown
480
 
            Command = 1
 
452
            Command = emcStartSelections
481
453
            MoveCaret = True
482
 
            Option = 0
483
 
            Priority = 0
484
454
          end        
485
455
          item
486
456
            Shift = [ssShift]
487
457
            ShiftMask = [ssShift, ssAlt]
488
 
            Button = mbLeft
489
 
            ClickCount = ccSingle
490
458
            ClickDir = cdDown
491
 
            Command = 1
 
459
            Command = emcStartSelections
492
460
            MoveCaret = True
493
461
            Option = 1
494
 
            Priority = 0
495
462
          end        
496
463
          item
497
464
            Shift = [ssAlt]
498
465
            ShiftMask = [ssShift, ssAlt]
499
 
            Button = mbLeft
500
 
            ClickCount = ccSingle
501
466
            ClickDir = cdDown
502
 
            Command = 3
 
467
            Command = emcStartColumnSelections
503
468
            MoveCaret = True
504
 
            Option = 0
505
 
            Priority = 0
506
469
          end        
507
470
          item
508
471
            Shift = [ssShift, ssAlt]
509
472
            ShiftMask = [ssShift, ssAlt]
510
 
            Button = mbLeft
511
 
            ClickCount = ccSingle
512
473
            ClickDir = cdDown
513
 
            Command = 3
 
474
            Command = emcStartColumnSelections
514
475
            MoveCaret = True
515
476
            Option = 1
516
 
            Priority = 0
517
477
          end        
518
478
          item
519
 
            Shift = []
520
 
            ShiftMask = []
521
479
            Button = mbRight
522
 
            ClickCount = ccSingle
523
 
            ClickDir = cdUp
524
 
            Command = 12
525
 
            MoveCaret = False
526
 
            Option = 0
527
 
            Priority = 0
 
480
            Command = emcContextMenu
528
481
          end        
529
482
          item
530
 
            Shift = []
531
 
            ShiftMask = []
532
 
            Button = mbLeft
533
483
            ClickCount = ccDouble
534
484
            ClickDir = cdDown
535
 
            Command = 6
 
485
            Command = emcSelectWord
536
486
            MoveCaret = True
537
 
            Option = 0
538
 
            Priority = 0
539
487
          end        
540
488
          item
541
 
            Shift = []
542
 
            ShiftMask = []
543
 
            Button = mbLeft
544
489
            ClickCount = ccTriple
545
490
            ClickDir = cdDown
546
 
            Command = 7
 
491
            Command = emcSelectLine
547
492
            MoveCaret = True
548
 
            Option = 0
549
 
            Priority = 0
550
493
          end        
551
494
          item
552
 
            Shift = []
553
 
            ShiftMask = []
554
 
            Button = mbLeft
555
495
            ClickCount = ccQuad
556
496
            ClickDir = cdDown
557
 
            Command = 8
 
497
            Command = emcSelectPara
558
498
            MoveCaret = True
559
 
            Option = 0
560
 
            Priority = 0
561
499
          end        
562
500
          item
563
 
            Shift = []
564
 
            ShiftMask = []
565
501
            Button = mbMiddle
566
 
            ClickCount = ccSingle
567
502
            ClickDir = cdDown
568
 
            Command = 10
 
503
            Command = emcPasteSelection
569
504
            MoveCaret = True
570
 
            Option = 0
571
 
            Priority = 0
572
505
          end        
573
506
          item
574
507
            Shift = [ssCtrl]
575
508
            ShiftMask = [ssShift, ssAlt, ssCtrl]
576
 
            Button = mbLeft
577
 
            ClickCount = ccSingle
578
 
            ClickDir = cdUp
579
 
            Command = 11
580
 
            MoveCaret = False
581
 
            Option = 0
582
 
            Priority = 0
 
509
            Command = emcMouseLink
583
510
          end>
584
511
        MouseSelActions = <        
585
512
          item
586
 
            Shift = []
587
 
            ShiftMask = []
588
 
            Button = mbLeft
589
 
            ClickCount = ccSingle
590
513
            ClickDir = cdDown
591
 
            Command = 9
592
 
            MoveCaret = False
593
 
            Option = 0
594
 
            Priority = 0
 
514
            Command = emcStartDragMove
595
515
          end>
 
516
        VisibleSpecialChars = [vscSpace, vscTabAtLast]
596
517
        BracketHighlightStyle = sbhsBoth
 
518
        BracketMatchColor.Background = clNone
 
519
        BracketMatchColor.Foreground = clNone
 
520
        BracketMatchColor.Style = [fsBold]
 
521
        FoldedCodeColor.Background = clNone
 
522
        FoldedCodeColor.Foreground = clGray
 
523
        FoldedCodeColor.FrameColor = clGray
 
524
        MouseLinkColor.Background = clNone
 
525
        MouseLinkColor.Foreground = clBlue
 
526
        LineHighlightColor.Background = clNone
 
527
        LineHighlightColor.Foreground = clNone
597
528
        inline SynGutterPartList1: TSynGutterPartList
598
529
          object SynGutterMarks1: TSynGutterMarks
599
530
            Width = 24
 
531
            MouseActions = <>
600
532
          end
601
533
          object SynGutterLineNumber1: TSynGutterLineNumber
602
534
            Width = 21
610
542
          end
611
543
          object SynGutterChanges1: TSynGutterChanges
612
544
            Width = 4
 
545
            MouseActions = <>
613
546
            ModifiedColor = 59900
614
547
            SavedColor = clGreen
615
548
          end
616
549
          object SynGutterSeparator1: TSynGutterSeparator
617
550
            Width = 2
 
551
            MouseActions = <>
618
552
          end
619
553
          object SynGutterCodeFolding1: TSynGutterCodeFolding
620
554
            MouseActions = <            
621
555
              item
622
 
                Shift = []
623
 
                ShiftMask = []
624
556
                Button = mbRight
625
 
                ClickCount = ccSingle
626
 
                ClickDir = cdUp
627
 
                Command = 16
628
 
                MoveCaret = False
629
 
                Option = 0
630
 
                Priority = 0
 
557
                Command = emcCodeFoldContextMenu
631
558
              end            
632
559
              item
633
 
                Shift = []
634
560
                ShiftMask = [ssShift]
635
561
                Button = mbMiddle
636
562
                ClickCount = ccAny
637
563
                ClickDir = cdDown
638
 
                Command = 14
639
 
                MoveCaret = False
640
 
                Option = 0
641
 
                Priority = 0
 
564
                Command = emcCodeFoldCollaps
642
565
              end            
643
566
              item
644
567
                Shift = [ssShift]
646
569
                Button = mbMiddle
647
570
                ClickCount = ccAny
648
571
                ClickDir = cdDown
649
 
                Command = 14
650
 
                MoveCaret = False
 
572
                Command = emcCodeFoldCollaps
651
573
                Option = 1
652
 
                Priority = 0
653
574
              end            
654
575
              item
655
 
                Shift = []
656
 
                ShiftMask = []
657
 
                Button = mbLeft
658
576
                ClickCount = ccAny
659
577
                ClickDir = cdDown
660
 
                Command = 0
661
 
                MoveCaret = False
662
 
                Option = 0
663
 
                Priority = 0
 
578
                Command = emcNone
664
579
              end>
665
580
            MarkupInfo.Background = clNone
666
581
            MarkupInfo.Foreground = clGray
667
582
            MouseActionsExpanded = <            
668
583
              item
669
 
                Shift = []
670
 
                ShiftMask = []
671
 
                Button = mbLeft
672
584
                ClickCount = ccAny
673
585
                ClickDir = cdDown
674
 
                Command = 14
675
 
                MoveCaret = False
676
 
                Option = 0
677
 
                Priority = 0
 
586
                Command = emcCodeFoldCollaps
678
587
              end>
679
588
            MouseActionsCollapsed = <            
680
589
              item
681
590
                Shift = [ssCtrl]
682
591
                ShiftMask = [ssCtrl]
683
 
                Button = mbLeft
684
592
                ClickCount = ccAny
685
593
                ClickDir = cdDown
686
 
                Command = 15
687
 
                MoveCaret = False
688
 
                Option = 0
689
 
                Priority = 0
 
594
                Command = emcCodeFoldExpand
690
595
              end            
691
596
              item
692
 
                Shift = []
693
597
                ShiftMask = [ssCtrl]
694
 
                Button = mbLeft
695
598
                ClickCount = ccAny
696
599
                ClickDir = cdDown
697
 
                Command = 15
698
 
                MoveCaret = False
 
600
                Command = emcCodeFoldExpand
699
601
                Option = 1
700
 
                Priority = 0
701
602
              end>
702
603
          end
703
604
        end
704
 
        inline SynRightGutterPartList1: TSynRightGutterPartList
705
 
        end
706
605
      end
707
606
    end
708
607
    object ResultTabSheet: TTabSheet
709
 
      ClientHeight = 249
710
 
      ClientWidth = 490
 
608
      ClientHeight = 255
 
609
      ClientWidth = 486
711
610
      object ResultDBGrid: TDBGrid
712
611
        Left = 0
713
 
        Height = 285
 
612
        Height = 255
714
613
        Top = 0
715
 
        Width = 494
 
614
        Width = 486
716
615
        Align = alClient
717
616
        AutoEdit = False
 
617
        Color = clWindow
718
618
        Columns = <>
719
619
        DataSource = SQLDataSource
720
620
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete]
722
622
        TabOrder = 0
723
623
      end
724
624
    end
 
625
    object MetaTabSheet: TTabSheet
 
626
      ClientHeight = 255
 
627
      ClientWidth = 486
 
628
      object CbxMetaData: TComboBox
 
629
        Left = 8
 
630
        Height = 21
 
631
        Hint = 'Select the type of metadata to retrieve.'
 
632
        Top = 9
 
633
        Width = 132
 
634
        ItemHeight = 13
 
635
        ParentShowHint = False
 
636
        ShowHint = True
 
637
        TabOrder = 0
 
638
      end
 
639
      object EdtObject: TEdit
 
640
        Left = 196
 
641
        Height = 21
 
642
        Hint = 'Specify the object (table)  for which you want to view the metadata.'
 
643
        Top = 9
 
644
        Width = 104
 
645
        ParentShowHint = False
 
646
        ShowHint = True
 
647
        TabOrder = 1
 
648
      end
 
649
      object Label1: TLabel
 
650
        Left = 148
 
651
        Height = 14
 
652
        Top = 12
 
653
        Width = 37
 
654
        Caption = 'Object:'
 
655
        ParentColor = False
 
656
      end
 
657
      object MetaDBGrid: TDBGrid
 
658
        Left = 0
 
659
        Height = 219
 
660
        Top = 36
 
661
        Width = 486
 
662
        Align = alBottom
 
663
        Anchors = [akTop, akLeft, akRight, akBottom]
 
664
        Color = clWindow
 
665
        Columns = <>
 
666
        DataSource = SQLDataSource1
 
667
        PopupMenu = PMMeta
 
668
        ReadOnly = True
 
669
        TabOrder = 2
 
670
        OnDblClick = MetaDBGridDblClick
 
671
      end
 
672
    end
725
673
  end
726
674
  object SQLHighlighter: TSynSQLSyn
727
675
    DefaultFilter = 'SQL Files (*.sql)|*.sql'
728
676
    Enabled = False
 
677
    CommentAttri.FrameEdges = sfeAround
 
678
    DataTypeAttri.FrameEdges = sfeAround
 
679
    DefaultPackageAttri.FrameEdges = sfeAround
 
680
    ExceptionAttri.FrameEdges = sfeAround
 
681
    FunctionAttri.FrameEdges = sfeAround
 
682
    IdentifierAttri.FrameEdges = sfeAround
 
683
    KeyAttri.FrameEdges = sfeAround
 
684
    NumberAttri.FrameEdges = sfeAround
 
685
    PLSQLAttri.FrameEdges = sfeAround
 
686
    SpaceAttri.FrameEdges = sfeAround
 
687
    SQLPlusAttri.FrameEdges = sfeAround
 
688
    StringAttri.FrameEdges = sfeAround
 
689
    SymbolAttri.FrameEdges = sfeAround
 
690
    TableNameAttri.FrameEdges = sfeAround
 
691
    VariableAttri.FrameEdges = sfeAround
729
692
    SQLDialect = sqlInterbase6
730
 
    left = 124
 
693
    left = 120
731
694
    top = 156
732
695
  end
733
696
  object OpenDialog: TOpenDialog
741
704
    top = 157
742
705
  end
743
706
  object SQLQuery: TSQLQuery
744
 
    ReadOnly = False
 
707
    FieldDefs = <>
745
708
    Params = <>
746
709
    left = 220
747
710
    top = 157
924
887
    top = 101
925
888
    object MICheck: TMenuItem
926
889
      Caption = 'Check syntax'
 
890
      Bitmap.Data = {
 
891
        36040000424D3604000000000000360000002800000010000000100000000100
 
892
        2000000000000004000064000000640000000000000000000000000000000000
 
893
        0000000000000000000000000000000000000000000000000000000000000000
 
894
        0000000000000000000000000000000000000000000000000000000000000000
 
895
        00000000000000000000000000000000000000000052000000FF000000FF0000
 
896
        001A000000000000000000000000000000000000000000000000000000000000
 
897
        000000000000000000000000000000000000000000FF9DC59FFF92BE93FF0000
 
898
        00FF000000220000000000000000000000000000000000000000000000000000
 
899
        000000000000000000000000000000000052000000FFB8D6B8FF59915BFF5991
 
900
        5BFF000000FF0000001A00000000000000000000000000000000000000000000
 
901
        0000000000000000000000000000000000FFA6CBA8FF6C9D6DFF000000FF0000
 
902
        00FF59915BFF000000FF00000022000000000000000000000000000000000000
 
903
        0000000000000000000000000071132C13FF76A677FF000000FF000000220000
 
904
        0000000000FF59915BFF000000FF0000001A0000000000000000000000000000
 
905
        00000000000000000000000000FF88BA8AFF000000FF0000001A000000000000
 
906
        000000000000000000FF59915BFF000000FF0000001A00000000000000000000
 
907
        00000000000000000000000000FF000000FF0000002200000000000000000000
 
908
        00000000000000000000000000FF59915BFF000000FF0000001A000000000000
 
909
        0000000000000000000000000000000000000000000000000000000000000000
 
910
        0000000000000000000000000000000000FF59915BFF000000FF000000FF0000
 
911
        00FF0000000000000000000000FF00000000000000FF000000FF000000FF0000
 
912
        00FF00000042000000000000000000000000000000FF00000074000000FF0000
 
913
        00FF0000000000000000000000FF00000000000000FF000000FF000000000000
 
914
        0000000000FF0000000000000000000000000000000000000000000000FF0000
 
915
        00FF000000FF000000FF000000FF00000000000000FF000000FF000000000000
 
916
        0000000000FF0000000000000000000000000000000000000000000000FF0000
 
917
        00FF0000000000000000000000FF00000000000000FF000000FF000000FF0000
 
918
        00FF000000420000000000000000000000000000000000000000000000FF0000
 
919
        00FF0000000000000000000000FF00000000000000FF000000FF000000000000
 
920
        0000000000FF0000000000000000000000000000000000000000000000420000
 
921
        00FF000000FF000000FF0000005400000000000000FF000000FF000000FF0000
 
922
        00FF000000420000000000000000000000000000000000000000000000000000
 
923
        0000000000000000000000000000000000000000000000000000000000000000
 
924
        0000000000000000000000000000000000000000000000000000
 
925
      }
927
926
      ImageIndex = 3
928
927
      OnClick = TBCheckClick
929
928
    end
930
929
    object MICleanup: TMenuItem
931
930
      Caption = 'Clean-up Delphi code'
 
931
      Bitmap.Data = {
 
932
        36040000424D3604000000000000360000002800000010000000100000000100
 
933
        2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
 
934
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00008B9C1F008C9DED008D9EEC008D
 
935
        9E9E008B9C21FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
 
936
        FF00FFFFFF00FFFFFF00FFFFFF00008B9C13008D9EE24FC3D2FD5BD3E1FF30B5
 
937
        C6FA0890A1F6008D9FA9008B9C14FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
 
938
        FF00FFFFFF00FFFFFF00FFFFFF00008E9FC536B5C5FA5FD8E7FF26CADFFF4ED4
 
939
        E5FF6DD9E7FF32B4C5FB008D9EE6008B9C26FFFFFF00FFFFFF00FFFFFF00FFFF
 
940
        FF00FFFFFF00FFFFFF00008B9C431A9BABF66CDAE8FF10C5DCFF03C2DAFF03C2
 
941
        DAFF15C6DCFF5BD7E7FF56C8D6FE058FA0F1008B9C3FFFFFFF00FFFFFF00FFFF
 
942
        FF00FFFFFF00FFFFFF00018EA0D45ECFDDFF46DAEDFF18D0E7FF11CBE3FF07C4
 
943
        DCFF03C2DAFF03C2DAFF4CD3E4FF58CDDCFF048E9FF4008B9C1CFFFFFF00FFFF
 
944
        FF00FFFFFF00008B9C1A1194A5F78BEDFBFF3CE5FCFF37E4FBFF2FDEF6FF23D7
 
945
        EEFF14CDE5FF04C3DBFF03C2DAFF56D6E6FF33B6C6FB008E9FA8FFFFFF00FFFF
 
946
        FF00FFFFFF00007F9C5F2FB0C0F58AEFFDFF5FEAFDFF61EBFDFF52E9FDFF3CE6
 
947
        FDFF2ADBF3FF18D0E7FF10C6DCFF49D2E4FF67D4E2FF018D9FE9FFFFFF00FFFF
 
948
        FF00008B9C070024A1D71342ADFC84EAFBFF6BECFDFF84EFFDFF6DECFDFF52E9
 
949
        FDFF44E5FBFF65E3F3FF77DDEBFF49C1CFFE1B9EAEF3008C9DEAFFFFFF00008B
 
950
        9C5F008D9EEB29A5BBF6284ABBFF1D38B8FF61D8F6FF63EAFDFF6CEBFDFF7DEE
 
951
        FDFF88EAF8FF45BECDFA058F9FF7008E9FA3008B9C40008B9C02FFFFFF00008B
 
952
        9C5A018D9EF64FC8D8FF68DCECFF336DC8FF0D1BABFF62B1D7FF72DCEAFF43BD
 
953
        CCF70990A2F6018E9F9F008B9C1BFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
 
954
        FF000064878100889CFE41BDCDFF77DEEBFF1769B0F70036A0E4018FA0D2008C
 
955
        9D77008B9C15FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000487802004A
 
956
        7B95014E80F40B76B2FF0188A1FF32AEBEFE1DA0B1F2008B9C3DFFFFFF00FFFF
 
957
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000049796F0352
 
958
        86F40F7ABCFF107DC1FF015284F200859ACE008B9CFF008B9C29FFFFFF00FFFF
 
959
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00004A7BED0C72
 
960
        B2FF107DC1FF0A6BA9FF004A7BDA00698A02008B9C82008B9C13FFFFFF00FFFF
 
961
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00004A7BE50A69
 
962
        A6FF0B6DABFF004A7BF500487844FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
 
963
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000048783B004B
 
964
        7CDA004A7BE300487847FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
 
965
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
 
966
      }
932
967
      ImageIndex = 4
933
968
      OnClick = MICleanupClick
934
969
    end
936
971
      Caption = 'Create string constant'
937
972
      OnClick = MICreateConstantClick
938
973
    end
 
974
    object MIMeta: TMenuItem
 
975
      Caption = 'Metadata'
 
976
      object MIMetaColumns: TMenuItem
 
977
        Caption = 'Columns'
 
978
        OnClick = MIMetaColumnsClick
 
979
      end
 
980
    end
 
981
  end
 
982
  object SQLMeta: TSQLQuery
 
983
    FieldDefs = <>
 
984
    Params = <>
 
985
    left = 220
 
986
    top = 208
 
987
  end
 
988
  object SQLDataSource1: TDatasource
 
989
    DataSet = SQLMeta
 
990
    left = 256
 
991
    top = 208
 
992
  end
 
993
  object PMMeta: TPopupMenu
 
994
    left = 296
 
995
    top = 208
 
996
    object MIPaste: TMenuItem
 
997
      Caption = 'Paste in SQL'
 
998
      OnClick = MIPasteClick
 
999
    end
939
1000
  end
940
1001
end