home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Softwarová Záchrana 3
/
Softwarova-zachrana-3.bin
/
ArsClip
/
source.zip
/
UnitFrmPermanentNew.dfm
< prev
next >
Wrap
Text File
|
2004-11-09
|
16KB
|
583 lines
object FrmPermanent: TFrmPermanent
Left = 267
Top = 306
AutoScroll = False
BorderIcons = [biSystemMenu]
Caption = 'ArsClip - PermanentItems'
ClientHeight = 427
ClientWidth = 667
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object pcPermanent: TPageControl
Left = 0
Top = 0
Width = 667
Height = 427
ActivePage = TabSheet1
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = []
ParentFont = False
TabIndex = 0
TabOrder = 0
TabWidth = 90
object TabSheet1: TTabSheet
Caption = 'Edit'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = []
ParentFont = False
DesignSize = (
659
399)
object Label1: TLabel
Left = 16
Top = 8
Width = 66
Height = 13
Caption = 'Current Group'
end
object cbPIGs: TComboBox
Left = 16
Top = 24
Width = 113
Height = 21
Style = csDropDownList
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Pitch = fpVariable
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 0
OnChange = cbPIGsChange
end
object btnAddPIG: TButton
Left = 136
Top = 24
Width = 41
Height = 17
Caption = 'Add'
TabOrder = 1
OnClick = btnAddPIGClick
end
object btnDeletePIG: TButton
Left = 184
Top = 24
Width = 41
Height = 17
Caption = 'Delete'
TabOrder = 2
OnClick = btnDeletePIGClick
end
object pnlNames: TPanel
Left = 8
Top = 60
Width = 217
Height = 333
Anchors = [akLeft, akTop, akBottom]
TabOrder = 3
DesignSize = (
217
333)
object btnUp: TButton
Left = 168
Top = 24
Width = 41
Height = 17
Caption = 'Up'
Enabled = False
TabOrder = 0
OnClick = btnUpClick
end
object btnDown: TButton
Left = 168
Top = 48
Width = 41
Height = 17
Caption = 'Down'
Enabled = False
TabOrder = 1
OnClick = btnDownClick
end
object btnDelete: TButton
Left = 168
Top = 136
Width = 41
Height = 17
Caption = 'Delete'
Enabled = False
TabOrder = 2
OnClick = btnDeleteClick
end
object lbItemNames: TListBox
Left = 8
Top = 8
Width = 153
Height = 317
Anchors = [akLeft, akTop, akBottom]
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Pitch = fpVariable
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 3
OnClick = lbItemNamesClick
end
object btnEdit: TButton
Left = 168
Top = 104
Width = 41
Height = 17
Caption = 'Edit'
Enabled = False
TabOrder = 4
OnClick = btnEditClick
end
object btnNew: TButton
Left = 168
Top = 80
Width = 41
Height = 17
Caption = 'New'
TabOrder = 5
OnClick = btnNewClick
end
object btnMove: TButton
Left = 168
Top = 176
Width = 41
Height = 17
Caption = 'Move..'
Enabled = False
TabOrder = 6
OnClick = btnMoveClick
end
end
object Panel2: TPanel
Left = 240
Top = 16
Width = 402
Height = 377
Anchors = [akLeft, akTop, akRight, akBottom]
ParentShowHint = False
ShowHint = True
TabOrder = 4
DesignSize = (
402
377)
object Label2: TLabel
Left = 16
Top = 16
Width = 137
Height = 13
Caption = 'Name (As shown on popup)'
end
object Label3: TLabel
Left = 193
Top = 32
Width = 196
Height = 26
Caption = 'Place an && infront of the character to use as a shortcut key'
WordWrap = True
end
object Label4: TLabel
Left = 16
Top = 88
Width = 62
Height = 13
Caption = 'Item to Paste'
end
object pPreview: TImage
Left = 16
Top = 104
Width = 377
Height = 193
Anchors = [akLeft, akTop, akRight, akBottom]
Proportional = True
Visible = False
end
object lblClipType: TLabel
Left = 16
Top = 72
Width = 49
Height = 13
Caption = 'asdfasdf'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = [fsBold]
ParentFont = False
end
object cbKeystrokes: TCheckBox
Left = 32
Top = 316
Width = 105
Height = 17
Anchors = [akLeft, akBottom]
Caption = 'Use Keystrokes'
TabOrder = 4
OnClick = cbKeystrokesClick
end
object txtItemName: TEdit
Left = 16
Top = 32
Width = 161
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Pitch = fpVariable
Font.Style = []
ParentFont = False
TabOrder = 0
Text = 'txtItemName'
end
object mItemText: TMemo
Left = 16
Top = 104
Width = 376
Height = 193
Anchors = [akLeft, akTop, akRight, akBottom]
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Pitch = fpVariable
Font.Style = []
Lines.Strings = (
'mItemText')
ParentFont = False
ScrollBars = ssBoth
TabOrder = 1
end
object btnSave: TButton
Left = 64
Top = 352
Width = 65
Height = 17
Anchors = [akLeft, akBottom]
Caption = 'Save'
TabOrder = 2
OnClick = btnSaveClick
end
object btnCancel: TButton
Left = 272
Top = 352
Width = 57
Height = 17
Anchors = [akLeft, akBottom]
Caption = 'Cancel'
TabOrder = 3
OnClick = btnCancelClick
end
object pnlKeys: TPanel
Left = 152
Top = 312
Width = 241
Height = 33
Anchors = [akRight, akBottom]
TabOrder = 5
Visible = False
object Button1: TButton
Left = 8
Top = 0
Width = 33
Height = 17
Caption = 'DEL'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Pitch = fpVariable
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = Button1Click
end
object Button5: TButton
Left = 40
Top = 0
Width = 41
Height = 17
Caption = 'BACK'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Pitch = fpVariable
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 80
Top = 0
Width = 33
Height = 17
Caption = 'INS'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Pitch = fpVariable
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = Button1Click
end
object Button3: TButton
Left = 112
Top = 0
Width = 41
Height = 17
Caption = 'HOME'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Pitch = fpVariable
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = Button1Click
end
object Button6: TButton
Left = 152
Top = 0
Width = 41
Height = 17
Caption = 'ENTER'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Pitch = fpVariable
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = Button1Click
end
object Button4: TButton
Left = 192
Top = 0
Width = 41
Height = 17
Caption = 'END'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Pitch = fpVariable
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = Button1Click
end
object Button7: TButton
Left = 8
Top = 16
Width = 33
Height = 17
Caption = 'TAB'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Pitch = fpVariable
Font.Style = []
ParentFont = False
TabOrder = 6
OnClick = Button1Click
end
object Button8: TButton
Left = 40
Top = 16
Width = 33
Height = 17
Caption = 'UP'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Pitch = fpVariable
Font.Style = []
ParentFont = False
TabOrder = 7
OnClick = Button1Click
end
object Button9: TButton
Left = 72
Top = 16
Width = 41
Height = 17
Caption = 'DOWN'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Pitch = fpVariable
Font.Style = []
ParentFont = False
TabOrder = 8
OnClick = Button1Click
end
object Button10: TButton
Left = 112
Top = 16
Width = 41
Height = 17
Caption = 'LEFT'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Pitch = fpVariable
Font.Style = []
ParentFont = False
TabOrder = 9
OnClick = Button1Click
end
object Button11: TButton
Left = 152
Top = 16
Width = 41
Height = 17
Caption = 'RIGHT'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Pitch = fpVariable
Font.Style = []
ParentFont = False
TabOrder = 10
OnClick = Button1Click
end
end
object bGetClipboard: TButton
Left = 152
Top = 84
Width = 241
Height = 17
Anchors = [akRight, akBottom]
Caption = 'Get Clipboard as'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'Verdana'
Font.Pitch = fpVariable
Font.Style = []
ParentFont = False
TabOrder = 6
Visible = False
OnClick = bGetClipboardClick
end
object reItemText: TRichEdit
Left = 16
Top = 104
Width = 377
Height = 193
Anchors = [akLeft, akTop, akRight, akBottom]
HideScrollBars = False
ReadOnly = True
ScrollBars = ssBoth
TabOrder = 7
end
object bGetClipboardAs: TBitBtn
Left = 134
Top = 84
Width = 17
Height = 17
Anchors = [akRight, akBottom]
Caption = '>'
TabOrder = 8
OnClick = bGetClipboardAsClick
end
end
end
object TabSheet2: TTabSheet
Caption = 'AutoSwitch'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Verdana'
Font.Pitch = fpVariable
Font.Style = []
ImageIndex = 1
ParentFont = False
DesignSize = (
659
399)
object Label5: TLabel
Left = 282
Top = 16
Width = 342
Height = 65
Anchors = [akTop, akRight, akBottom]
Caption =
'ArsClip automatically saves the last Permanent Item group you l' +
'ast used with each program name. To change a group associated wi' +
'th a program, just switch to the group using the Popup (Use "Ful' +
'l Mode" if permanent items groups are not visible on the popup)'
WordWrap = True
end
object lvAutoSwitch: TListView
Left = 8
Top = 16
Width = 270
Height = 367
Anchors = [akLeft, akTop, akRight, akBottom]
Columns = <>
TabOrder = 0
ViewStyle = vsReport
end
end
end
object pmGetAs: TPopupMenu
Left = 208
object PlaintText1: TMenuItem
Caption = 'Plaint Text'
end
object DIBPicture1: TMenuItem
Caption = 'DIB (Picture)'
end
object CopiedFiles1: TMenuItem
Caption = 'Copied Files'
end
object RichTExt1: TMenuItem
Caption = 'Rich TExt'
end
end
end
