home *** CD-ROM | disk | FTP | other *** search
- inherited TopUrlForm: TTopUrlForm
- Left = 193
- Top = 207
- Width = 628
- Height = 303
- Caption = 'Top Urls'
- Constraints.MinHeight = 250
- Position = poScreenCenter
- ShowHint = True
- OnResize = FormResize
- PixelsPerInch = 96
- TextHeight = 13
- object AdPanel: TAdPanel
- Left = 0
- Top = 29
- Width = 620
- Height = 65
- id_advertise = 0
- id_customer = 0
- OnAdClick = AdPanelAdClick
- end
- object TopURLStringGrid: TdsStringGrid
- Left = 0
- Top = 94
- Width = 620
- Height = 147
- HelpContext = 1
- Align = alClient
- Color = clSilver
- ColCount = 4
- DefaultColWidth = 100
- DefaultRowHeight = 16
- FixedCols = 0
- RowCount = 2
- Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goRowSelect]
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = TopURLStringGridClick
- OnGetCellColor = TopURLStringGridGetCellColor
- ColWidths = (
- 372
- 67
- 116
- 43)
- end
- object BottomPanel: TPanel
- Left = 0
- Top = 241
- Width = 620
- Height = 35
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 2
- object ClosePanel: TPanel
- Left = 396
- Top = 0
- Width = 224
- Height = 35
- Align = alRight
- BevelOuter = bvNone
- Constraints.MinHeight = 35
- Constraints.MinWidth = 218
- TabOrder = 0
- object OKButton: TButton
- Tag = 1
- Left = 125
- Top = 6
- Width = 97
- Height = 25
- Caption = 'Schlie�en'
- ModalResult = 1
- TabOrder = 0
- end
- end
- end
- object ToolBar1: TToolBar
- Left = 0
- Top = 0
- Width = 620
- Height = 29
- Caption = 'ToolBar1'
- EdgeInner = esNone
- EdgeOuter = esNone
- Flat = True
- Images = RequestPackageForm.ActionImageList
- TabOrder = 3
- object AddTB: TToolButton
- Left = 0
- Top = 0
- Action = AddAction
- end
- object OpenLocalTB: TToolButton
- Left = 23
- Top = 0
- Action = OpenURLAction
- end
- end
- object ActionList1: TActionList
- Images = RequestPackageForm.ActionImageList
- Left = 8
- Top = 192
- object EditCopy1: TEditCopy
- Category = 'Bearbeiten'
- Caption = '&Kopieren'
- Hint = 'Kopieren'
- ImageIndex = 14
- ShortCut = 16451
- end
- object EditCut1: TEditCut
- Category = 'Bearbeiten'
- Caption = '&Ausschneiden'
- Hint = 'Ausschneiden'
- ImageIndex = 15
- ShortCut = 16472
- end
- object EditPaste1: TEditPaste
- Category = 'Bearbeiten'
- Caption = '&Einf�gen'
- Hint = 'Einf�gen'
- ImageIndex = 16
- ShortCut = 16470
- end
- object OpenURLAction: TAction
- Tag = 3
- Caption = 'URL lokal �ffnen ...'
- HelpContext = 1
- Hint = 'URL lokal �ffnen'
- ImageIndex = 17
- OnExecute = OpenURLActionExecute
- end
- object AddAction: TAction
- Tag = 3
- Caption = 'URL hinzuf�gen'
- HelpContext = 1
- Hint = 'URL zur URL-Liste hinzuf�gen'
- ImageIndex = 18
- OnExecute = AddActionExecute
- end
- end
- object PopupMenu: TPopupMenu
- Images = RequestPackageForm.ActionImageList
- Left = 40
- Top = 193
- object a1: TMenuItem
- Action = OpenURLAction
- end
- object s1: TMenuItem
- Action = AddAction
- end
- end
- end
-