Q&A
- 프로그램 고칠려고 하는데요
델파이 인데... 리소스 고쳐서...
프로그램 실행시에 화면창이 안뜨고 자동으로 트래이 아이콘으로 들어가 버려서...
실행할때 메인화면 보이게 하고 싶퍼서요...
어떻게 수정해야 되나요 ?
==================================================================
object Form1: TForm1
Left = 325
Top = 172
Width = 572
Height = 484
Caption = 'DL To List'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
Menu = MainMenu1
OldCreateOrder = False
ScreenSnap = True
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnShortCut = FormShortCut
PixelsPerInch = 96
TextHeight = 13
object TV: TTreeView
Left = 0
Top = 30
Width = 564
Height = 400
Align = alClient
ChangeDelay = 50
DragMode = dmAutomatic
HideSelection = False
Indent = 19
PopupMenu = PopupMenu1
ReadOnly = True
TabOrder = 0
OnAdvancedCustomDrawItem = TVAdvancedCustomDrawItem
OnChange = TVChange
OnDblClick = TVDblClick
OnDragDrop = TVDragDrop
OnDragOver = TVDragOver
OnEditing = TVEditing
OnEnter = TVEnter
OnMouseDown = TVMouseDown
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 564
Height = 30
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object NewBtn: TSpeedButton
Left = 0
Top = 0
Width = 30
Height = 30
Flat = True
Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100
040000000000CC00000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888800000008888888888888888800000008088888888888888800000008088
0000000000088000000080880BBBBBBBBB088000000080000BBBBBBBBB088000
000080880BBBBBBBBB0880000000808800000000000880000000808888888888
8888800000008088888888888888800000008088000000000008800000008088
0FFFFFFFFF088000000080000FFFFFFFFF088000000080880FFFFFFFFF088000
0000808800000000000880000000888888888888888880000000888888888888
888880000000}
ParentShowHint = False
ShowHint = True
OnClick = NewBtnClick
end
object NewSubBtn: TSpeedButton
Left = 30
Top = 0
Width = 30
Height = 30
Flat = True
Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100
040000000000CC00000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888800000008888888888888888800000008888888888888888800000008888
88880000000080000000888888880BBBBBB080000000888800000BBBBBB08000
0000888808880BBBBBB080000000888808880000000080000000888808888888
888880000000888808888888888880000000880000000000088880000000880F
FFFFFFFF088880000000880FFFFFFFFF088880000000880FFFFFFFFF08888000
0000880000000000088880000000888888888888888880000000888888888888
888880000000}
ParentShowHint = False
ShowHint = True
OnClick = NewSubBtnClick
end
object EditBtn: TSpeedButton
Left = 60
Top = 0
Width = 30
Height = 30
Flat = True
Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100
040000000000CC00000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888800000008888888888888888800000008888888888888888800000008000
0000000008888000000080FFFFFFFFFF08888000000080F0F0F0F00F08888000
000080F0F0F0FF0008888000000080FFFFFFF00B70888000000080000000000B
808880000000888888888880B70880000000888888888880B808800000008888
888888880B70800000008888888888880B708000000088888888888880050000
0000888888888888805500000000888888888888880080000000888888888888
888880000000}
ParentShowHint = False
ShowHint = True
OnClick = EditBtnClick
end
object DelBtn: TSpeedButton
Left = 90
Top = 0
Width = 30
Height = 30
Flat = True
Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100
040000000000CC00000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
777770000000777777777777777770000000777777777777770F700000007777
0F777777777770000000777000F7777770F770000000777000F777770F777000
00007777000F77700F777000000077777000F700F7777000000077777700000F
7777700000007777777000F777777000000077777700000F7777700000007777
7000F70F7777700000007770000F77700F7770000000770000F7777700F77000
00007700F7777777700F70000000777777777777777770000000777777777777
777770000000}
ParentShowHint = False
ShowHint = True
OnClick = DelBtnClick
end
object UndoBtn: TSpeedButton
Left = 120
Top = 0
Width = 30
Height = 30
Flat = True
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777777777777777777777777777777777777777777777777777777
7777777777777778477777444447777748777744447777777477774447777777
7477774474777777747777477744777748777777777744448777777777777777
7777777777777777777777777777777777777777777777777777}
ParentShowHint = False
ShowHint = True
OnClick = UndoBtnClick
end
object UpBtn: TSpeedButton
Left = 160
Top = 0
Width = 30
Height = 30
Flat = True
Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7000777777777777700077770000077770007777066607777000777706660777
7000777706660777700070000666000070007706666666077000777066666077
7000777706660777700077777060777770007777770777777000777777777777
7000}
ParentShowHint = False
ShowHint = True
OnClick = UpBtnClick
end
object DownBtn: TSpeedButton
Left = 190
Top = 0
Width = 30
Height = 30
Flat = True
Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7000777777777777700077777707777770007777706077777000777706660777
7000777066666077700077066666660770007000066600007000777706660777
7000777706660777700077770666077770007777000007777000777777777777
7000}
ParentShowHint = False
ShowHint = True
OnClick = DownBtnClick
end
object LeftBtn: TSpeedButton
Left = 220
Top = 0
Width = 30
Height = 30
Flat = True
Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7000777777077777700077777007777770007777060777777000777066000007
7000770666666607700070666666660770007706666666077000777066000007
7000777706077777700077777007777770007777770777777000777777777777
7000}
ParentShowHint = False
ShowHint = True
OnClick = LeftBtnClick
end
object RightBtn: TSpeedButton
Left = 250
Top = 0
Width = 30
Height = 30
Flat = True
Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7000777777077777700077777700777770007777770607777000770000066077
7000770666666607700077066666666070007706666666077000770000066077
7000777777060777700077777700777770007777770777777000777777777777
7000}
ParentShowHint = False
ShowHint = True
OnClick = RightBtnClick
end
object OptionsBtn: TSpeedButton
Left = 290
Top = 0
Width = 30
Height = 30
Flat = True
Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100
040000000000CC00000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFF0000000F87777777777777FF0000000F88888888888887FF0000000F8FF
FFFFFFFFF87FF0000000F8F0F7777777F87FF0000000F8000FFFFFFFF87FF000
0000F80F00777777F87FF0000000F8FFF00FFFFFF87FF0000000F8F0F7777777
F87FF0000000F8000FFFFFFFF87FF0000000F80F00777777F87FF0000000F8FF
F00FFFFFF87FF0000000F8FFF77777F7777FF0000000F8FFFFFFFFF8F7FFF000
0000F8FFFFFFFFF87FFFF0000000F88888888888FFFFF0000000FFFFFFFFFFFF
FFFFF0000000}
ParentShowHint = False
ShowHint = True
OnClick = Options1Click
end
object Bevel2: TBevel
Left = 155
Top = 0
Width = 10
Height = 30
Shape = bsLeftLine
end
object Bevel3: TBevel
Left = 285
Top = 0
Width = 10
Height = 30
Shape = bsLeftLine
end
end
object Memo1: TMemo
Left = 16
Top = 104
Width = 73
Height = 65
Lines.Strings = (
'Memo1')
TabOrder = 2
Visible = False
WordWrap = False
end
object Edit1: TEdit
Left = 16
Top = 184
Width = 121
Height = 21
TabOrder = 3
Visible = False
OnExit = Edit1Exit
end
object SaveDialog1: TSaveDialog
DefaultExt = 'sdl'
Filter = 'DL To List Files (*.dlt)|*.dlt'
Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
Left = 152
Top = 56
end
object OpenDialog1: TOpenDialog
DefaultExt = 'sdl'
Filter = 'DL To List Files (*.dlt)|*.dlt'
Left = 112
Top = 96
end
object MainMenu1: TMainMenu
Left = 24
Top = 56
object File1: TMenuItem
Caption = 'File'
object New1: TMenuItem
Caption = '&New'
ShortCut = 16462
OnClick = New1Click
end
object Open1: TMenuItem
Caption = '&Open...'
ShortCut = 16463
OnClick = Open1Click
end
object Save1: TMenuItem
Caption = '&Save'
ShortCut = 16467
OnClick = Save1Click
end
object SaveAs1: TMenuItem
Caption = 'Save &As...'
ShortCut = 16449
OnClick = SaveAs1Click
end
object N9: TMenuItem
Caption = '-'
end
object PrintSetup1: TMenuItem
Caption = 'Print...'
OnClick = PrintSetup1Click
end
object N1: TMenuItem
Caption = '-'
end
object Exportastext1: TMenuItem
Caption = 'E&xport to Text File...'
OnClick = Exportastext1Click
end
object ImportfromTextFile1: TMenuItem
Caption = '&Import from Text File...'
OnClick = ImportfromTextFile1Click
end
object N2: TMenuItem
Caption = '-'
end
object MinimizetoTray1: TMenuItem
Caption = 'Minimize to Tray'
OnClick = MinimizetoTray1Click
end
object Exit1: TMenuItem
Caption = 'Exit Completely'
OnClick = Exit1Click
end
end
object Item1: TMenuItem
Caption = 'Edit'
object Undo1: TMenuItem
Caption = 'Undo'
Enabled = False
ShortCut = 16474
OnClick = UndoBtnClick
end
object Redo1: TMenuItem
Caption = 'Redo'
Enabled = False
OnClick = Redo1Click
end
object N7: TMenuItem
Caption = '-'
end
object Find1: TMenuItem
Caption = 'Find'
ImageIndex = 1
ShortCut = 16454
OnClick = Find1Click
end
object FindNext1: TMenuItem
Caption = 'Find Next'
ImageIndex = 0
ShortCut = 114
OnClick = FindNext1Click
end
object N10: TMenuItem
Caption = '-'
end
object Cut1: TMenuItem
Caption = 'Cut Item'
OnClick = Cut1Click
end
object Copy1: TMenuItem
Caption = 'Copy Item'
OnClick = Copy1Click
end
object Paste1: TMenuItem
Caption = 'Paste Item'
OnClick = Paste1Click
end
object N6: TMenuItem
Caption = '-'
end
object CopytoClipboard1: TMenuItem
Caption = 'Copy all items to Clipboard'
OnClick = CopytoClipboard1Click
end
end
object Item2: TMenuItem
Caption = 'Item'
object NewItem1: TMenuItem
Caption = 'New Item'
OnClick = NewBtnClick
end
object NewSubItem1: TMenuItem
Caption = 'New Sub-item '
OnClick = NewSubBtnClick
end
object EditItem1: TMenuItem
Caption = 'Edit Item'
OnClick = EditBtnClick
end
object DeleteItem1: TMenuItem
Caption = 'Delete Item'
OnClick = DelBtnClick
end
object DuplicateItem1: TMenuItem
Caption = 'Duplicate Item'
ShortCut = 16452
OnClick = DuplicateItem1Click
end
object N4: TMenuItem
Caption = '-'
end
object Moveup1: TMenuItem
Caption = 'Move up'
OnClick = UpBtnClick
end
object MoveDown1: TMenuItem
Caption = 'Move down'
OnClick = DownBtnClick
end
object Level1: TMenuItem
Caption = 'Level ->'
OnClick = RightBtnClick
end
object Level2: TMenuItem
Caption = 'Level <-'
OnClick = LeftBtnClick
end
object N5: TMenuItem
Caption = '-'
end
object ExpandAll1: TMenuItem
Caption = 'Expand All'
OnClick = Button9Click
end
object CollapseAll1: TMenuItem
Caption = 'Collapse All'
OnClick = Button10Click
end
end
object Priority1: TMenuItem
Caption = 'Category'
object Priority11: TMenuItem
Tag = 1
Caption = 'Priority1'
RadioItem = True
OnClick = Priority11Click
end
object Priority21: TMenuItem
Tag = 2
Caption = 'Priority2'
RadioItem = True
OnClick = Priority11Click
end
object Priority31: TMenuItem
Tag = 3
Caption = 'Priority3'
RadioItem = True
OnClick = Priority11Click
end
object Priority41: TMenuItem
Tag = 4
Caption = 'Priority4'
RadioItem = True
OnClick = Priority11Click
end
object Priority51: TMenuItem
Tag = 5
Caption = 'Priority5'
RadioItem = True
OnClick = Priority11Click
end
object Priority61: TMenuItem
Tag = 6
Caption = 'Priority6'
RadioItem = True
OnClick = Priority11Click
end
object Priority71: TMenuItem
Tag = 7
Caption = 'Priority7'
RadioItem = True
OnClick = Priority11Click
end
object Priority81: TMenuItem
Tag = 8
Caption = 'Priority8'
RadioItem = True
OnClick = Priority11Click
end
object Priority91: TMenuItem
Tag = 9
Caption = 'Priority9'
RadioItem = True
OnClick = Priority11Click
end
end
object Options1: TMenuItem
Caption = 'Options'
object ShowToolbar1: TMenuItem
AutoCheck = True
Caption = 'Show Toolbar'
OnClick = ShowToolbar1Click
end
object ShowFilename1: TMenuItem
Caption = 'Show File Name in Title Bar'
OnClick = ShowFilename1Click
end
object Options2: TMenuItem
Caption = 'Preferences...'
ShortCut = 16464
OnClick = Options1Click
end
end
object Help1: TMenuItem
Caption = 'Help'
object Documentation1: TMenuItem
Caption = 'Help File...'
OnClick = Documentation1Click
end
object keyboardShortcuts1: TMenuItem
Caption = 'Keyboard Shortcuts...'
OnClick = keyboardShortcuts1Click
end
object Website1: TMenuItem
Caption = 'Go to Website...'
OnClick = Website1Click
end
object N8: TMenuItem
Caption = '-'
end
object Register1: TMenuItem
Caption = 'Register...'
OnClick = Register1Click
end
object N3: TMenuItem
Caption = '-'
end
object About1: TMenuItem
Caption = 'About...'
OnClick = About1Click
end
end
end
object SaveDialog2: TSaveDialog
DefaultExt = 'txt'
Filter = 'Text Files (*.txt)|*.txt'
Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
Left = 112
Top = 56
end
object OpenDialog2: TOpenDialog
DefaultExt = 'txt'
Filter = 'Text Files (*.txt)|*.txt'
Left = 152
Top = 96
end
object PopupMenu1: TPopupMenu
Left = 56
Top = 56
object PopPriority11: TMenuItem
Tag = 1
Caption = 'PopPrority1'
RadioItem = True
OnClick = PopPriority11Click
end
object PopPriority21: TMenuItem
Tag = 2
Caption = 'PopPrority2'
RadioItem = True
OnClick = PopPriority11Click
end
object PopPriority31: TMenuItem
Tag = 3
Caption = 'PopPrority3'
RadioItem = True
OnClick = PopPriority11Click
end
object PopPriority41: TMenuItem
Tag = 4
Caption = 'PopPrority4'
RadioItem = True
OnClick = PopPriority11Click
end
object PopPriority51: TMenuItem
Tag = 5
Caption = 'PopPrority5'
RadioItem = True
OnClick = PopPriority11Click
end
object PopPriority61: TMenuItem
Tag = 6
Caption = 'PopPrority6'
RadioItem = True
OnClick = PopPriority11Click
end
object PopPriority71: TMenuItem
Tag = 7
Caption = 'PopPrority7'
RadioItem = True
OnClick = PopPriority11Click
end
object PopPriority81: TMenuItem
Tag = 8
Caption = 'PopPriority8'
RadioItem = True
OnClick = PopPriority11Click
end
object PopPriority91: TMenuItem
Tag = 9
Caption = 'PopPriority9'
RadioItem = True
OnClick = PopPriority11Click
end
end
object Timer1: TTimer
Interval = 60000
OnTimer = Timer1Timer
Left = 112
Top = 136
end
object PrinterSetupDialog1: TPrinterSetupDialog
Left = 152
Top = 136
end
object XPManifest1: TXPManifest
Left = 488
Top = 72
end
end
프로그램 실행시에 화면창이 안뜨고 자동으로 트래이 아이콘으로 들어가 버려서...
실행할때 메인화면 보이게 하고 싶퍼서요...
어떻게 수정해야 되나요 ?
==================================================================
object Form1: TForm1
Left = 325
Top = 172
Width = 572
Height = 484
Caption = 'DL To List'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
Menu = MainMenu1
OldCreateOrder = False
ScreenSnap = True
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnShortCut = FormShortCut
PixelsPerInch = 96
TextHeight = 13
object TV: TTreeView
Left = 0
Top = 30
Width = 564
Height = 400
Align = alClient
ChangeDelay = 50
DragMode = dmAutomatic
HideSelection = False
Indent = 19
PopupMenu = PopupMenu1
ReadOnly = True
TabOrder = 0
OnAdvancedCustomDrawItem = TVAdvancedCustomDrawItem
OnChange = TVChange
OnDblClick = TVDblClick
OnDragDrop = TVDragDrop
OnDragOver = TVDragOver
OnEditing = TVEditing
OnEnter = TVEnter
OnMouseDown = TVMouseDown
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 564
Height = 30
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object NewBtn: TSpeedButton
Left = 0
Top = 0
Width = 30
Height = 30
Flat = True
Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100
040000000000CC00000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888800000008888888888888888800000008088888888888888800000008088
0000000000088000000080880BBBBBBBBB088000000080000BBBBBBBBB088000
000080880BBBBBBBBB0880000000808800000000000880000000808888888888
8888800000008088888888888888800000008088000000000008800000008088
0FFFFFFFFF088000000080000FFFFFFFFF088000000080880FFFFFFFFF088000
0000808800000000000880000000888888888888888880000000888888888888
888880000000}
ParentShowHint = False
ShowHint = True
OnClick = NewBtnClick
end
object NewSubBtn: TSpeedButton
Left = 30
Top = 0
Width = 30
Height = 30
Flat = True
Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100
040000000000CC00000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888800000008888888888888888800000008888888888888888800000008888
88880000000080000000888888880BBBBBB080000000888800000BBBBBB08000
0000888808880BBBBBB080000000888808880000000080000000888808888888
888880000000888808888888888880000000880000000000088880000000880F
FFFFFFFF088880000000880FFFFFFFFF088880000000880FFFFFFFFF08888000
0000880000000000088880000000888888888888888880000000888888888888
888880000000}
ParentShowHint = False
ShowHint = True
OnClick = NewSubBtnClick
end
object EditBtn: TSpeedButton
Left = 60
Top = 0
Width = 30
Height = 30
Flat = True
Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100
040000000000CC00000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888800000008888888888888888800000008888888888888888800000008000
0000000008888000000080FFFFFFFFFF08888000000080F0F0F0F00F08888000
000080F0F0F0FF0008888000000080FFFFFFF00B70888000000080000000000B
808880000000888888888880B70880000000888888888880B808800000008888
888888880B70800000008888888888880B708000000088888888888880050000
0000888888888888805500000000888888888888880080000000888888888888
888880000000}
ParentShowHint = False
ShowHint = True
OnClick = EditBtnClick
end
object DelBtn: TSpeedButton
Left = 90
Top = 0
Width = 30
Height = 30
Flat = True
Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100
040000000000CC00000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
777770000000777777777777777770000000777777777777770F700000007777
0F777777777770000000777000F7777770F770000000777000F777770F777000
00007777000F77700F777000000077777000F700F7777000000077777700000F
7777700000007777777000F777777000000077777700000F7777700000007777
7000F70F7777700000007770000F77700F7770000000770000F7777700F77000
00007700F7777777700F70000000777777777777777770000000777777777777
777770000000}
ParentShowHint = False
ShowHint = True
OnClick = DelBtnClick
end
object UndoBtn: TSpeedButton
Left = 120
Top = 0
Width = 30
Height = 30
Flat = True
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777777777777777777777777777777777777777777777777777777
7777777777777778477777444447777748777744447777777477774447777777
7477774474777777747777477744777748777777777744448777777777777777
7777777777777777777777777777777777777777777777777777}
ParentShowHint = False
ShowHint = True
OnClick = UndoBtnClick
end
object UpBtn: TSpeedButton
Left = 160
Top = 0
Width = 30
Height = 30
Flat = True
Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7000777777777777700077770000077770007777066607777000777706660777
7000777706660777700070000666000070007706666666077000777066666077
7000777706660777700077777060777770007777770777777000777777777777
7000}
ParentShowHint = False
ShowHint = True
OnClick = UpBtnClick
end
object DownBtn: TSpeedButton
Left = 190
Top = 0
Width = 30
Height = 30
Flat = True
Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7000777777777777700077777707777770007777706077777000777706660777
7000777066666077700077066666660770007000066600007000777706660777
7000777706660777700077770666077770007777000007777000777777777777
7000}
ParentShowHint = False
ShowHint = True
OnClick = DownBtnClick
end
object LeftBtn: TSpeedButton
Left = 220
Top = 0
Width = 30
Height = 30
Flat = True
Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7000777777077777700077777007777770007777060777777000777066000007
7000770666666607700070666666660770007706666666077000777066000007
7000777706077777700077777007777770007777770777777000777777777777
7000}
ParentShowHint = False
ShowHint = True
OnClick = LeftBtnClick
end
object RightBtn: TSpeedButton
Left = 250
Top = 0
Width = 30
Height = 30
Flat = True
Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7000777777077777700077777700777770007777770607777000770000066077
7000770666666607700077066666666070007706666666077000770000066077
7000777777060777700077777700777770007777770777777000777777777777
7000}
ParentShowHint = False
ShowHint = True
OnClick = RightBtnClick
end
object OptionsBtn: TSpeedButton
Left = 290
Top = 0
Width = 30
Height = 30
Flat = True
Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100
040000000000CC00000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFF0000000F87777777777777FF0000000F88888888888887FF0000000F8FF
FFFFFFFFF87FF0000000F8F0F7777777F87FF0000000F8000FFFFFFFF87FF000
0000F80F00777777F87FF0000000F8FFF00FFFFFF87FF0000000F8F0F7777777
F87FF0000000F8000FFFFFFFF87FF0000000F80F00777777F87FF0000000F8FF
F00FFFFFF87FF0000000F8FFF77777F7777FF0000000F8FFFFFFFFF8F7FFF000
0000F8FFFFFFFFF87FFFF0000000F88888888888FFFFF0000000FFFFFFFFFFFF
FFFFF0000000}
ParentShowHint = False
ShowHint = True
OnClick = Options1Click
end
object Bevel2: TBevel
Left = 155
Top = 0
Width = 10
Height = 30
Shape = bsLeftLine
end
object Bevel3: TBevel
Left = 285
Top = 0
Width = 10
Height = 30
Shape = bsLeftLine
end
end
object Memo1: TMemo
Left = 16
Top = 104
Width = 73
Height = 65
Lines.Strings = (
'Memo1')
TabOrder = 2
Visible = False
WordWrap = False
end
object Edit1: TEdit
Left = 16
Top = 184
Width = 121
Height = 21
TabOrder = 3
Visible = False
OnExit = Edit1Exit
end
object SaveDialog1: TSaveDialog
DefaultExt = 'sdl'
Filter = 'DL To List Files (*.dlt)|*.dlt'
Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
Left = 152
Top = 56
end
object OpenDialog1: TOpenDialog
DefaultExt = 'sdl'
Filter = 'DL To List Files (*.dlt)|*.dlt'
Left = 112
Top = 96
end
object MainMenu1: TMainMenu
Left = 24
Top = 56
object File1: TMenuItem
Caption = 'File'
object New1: TMenuItem
Caption = '&New'
ShortCut = 16462
OnClick = New1Click
end
object Open1: TMenuItem
Caption = '&Open...'
ShortCut = 16463
OnClick = Open1Click
end
object Save1: TMenuItem
Caption = '&Save'
ShortCut = 16467
OnClick = Save1Click
end
object SaveAs1: TMenuItem
Caption = 'Save &As...'
ShortCut = 16449
OnClick = SaveAs1Click
end
object N9: TMenuItem
Caption = '-'
end
object PrintSetup1: TMenuItem
Caption = 'Print...'
OnClick = PrintSetup1Click
end
object N1: TMenuItem
Caption = '-'
end
object Exportastext1: TMenuItem
Caption = 'E&xport to Text File...'
OnClick = Exportastext1Click
end
object ImportfromTextFile1: TMenuItem
Caption = '&Import from Text File...'
OnClick = ImportfromTextFile1Click
end
object N2: TMenuItem
Caption = '-'
end
object MinimizetoTray1: TMenuItem
Caption = 'Minimize to Tray'
OnClick = MinimizetoTray1Click
end
object Exit1: TMenuItem
Caption = 'Exit Completely'
OnClick = Exit1Click
end
end
object Item1: TMenuItem
Caption = 'Edit'
object Undo1: TMenuItem
Caption = 'Undo'
Enabled = False
ShortCut = 16474
OnClick = UndoBtnClick
end
object Redo1: TMenuItem
Caption = 'Redo'
Enabled = False
OnClick = Redo1Click
end
object N7: TMenuItem
Caption = '-'
end
object Find1: TMenuItem
Caption = 'Find'
ImageIndex = 1
ShortCut = 16454
OnClick = Find1Click
end
object FindNext1: TMenuItem
Caption = 'Find Next'
ImageIndex = 0
ShortCut = 114
OnClick = FindNext1Click
end
object N10: TMenuItem
Caption = '-'
end
object Cut1: TMenuItem
Caption = 'Cut Item'
OnClick = Cut1Click
end
object Copy1: TMenuItem
Caption = 'Copy Item'
OnClick = Copy1Click
end
object Paste1: TMenuItem
Caption = 'Paste Item'
OnClick = Paste1Click
end
object N6: TMenuItem
Caption = '-'
end
object CopytoClipboard1: TMenuItem
Caption = 'Copy all items to Clipboard'
OnClick = CopytoClipboard1Click
end
end
object Item2: TMenuItem
Caption = 'Item'
object NewItem1: TMenuItem
Caption = 'New Item'
OnClick = NewBtnClick
end
object NewSubItem1: TMenuItem
Caption = 'New Sub-item '
OnClick = NewSubBtnClick
end
object EditItem1: TMenuItem
Caption = 'Edit Item'
OnClick = EditBtnClick
end
object DeleteItem1: TMenuItem
Caption = 'Delete Item'
OnClick = DelBtnClick
end
object DuplicateItem1: TMenuItem
Caption = 'Duplicate Item'
ShortCut = 16452
OnClick = DuplicateItem1Click
end
object N4: TMenuItem
Caption = '-'
end
object Moveup1: TMenuItem
Caption = 'Move up'
OnClick = UpBtnClick
end
object MoveDown1: TMenuItem
Caption = 'Move down'
OnClick = DownBtnClick
end
object Level1: TMenuItem
Caption = 'Level ->'
OnClick = RightBtnClick
end
object Level2: TMenuItem
Caption = 'Level <-'
OnClick = LeftBtnClick
end
object N5: TMenuItem
Caption = '-'
end
object ExpandAll1: TMenuItem
Caption = 'Expand All'
OnClick = Button9Click
end
object CollapseAll1: TMenuItem
Caption = 'Collapse All'
OnClick = Button10Click
end
end
object Priority1: TMenuItem
Caption = 'Category'
object Priority11: TMenuItem
Tag = 1
Caption = 'Priority1'
RadioItem = True
OnClick = Priority11Click
end
object Priority21: TMenuItem
Tag = 2
Caption = 'Priority2'
RadioItem = True
OnClick = Priority11Click
end
object Priority31: TMenuItem
Tag = 3
Caption = 'Priority3'
RadioItem = True
OnClick = Priority11Click
end
object Priority41: TMenuItem
Tag = 4
Caption = 'Priority4'
RadioItem = True
OnClick = Priority11Click
end
object Priority51: TMenuItem
Tag = 5
Caption = 'Priority5'
RadioItem = True
OnClick = Priority11Click
end
object Priority61: TMenuItem
Tag = 6
Caption = 'Priority6'
RadioItem = True
OnClick = Priority11Click
end
object Priority71: TMenuItem
Tag = 7
Caption = 'Priority7'
RadioItem = True
OnClick = Priority11Click
end
object Priority81: TMenuItem
Tag = 8
Caption = 'Priority8'
RadioItem = True
OnClick = Priority11Click
end
object Priority91: TMenuItem
Tag = 9
Caption = 'Priority9'
RadioItem = True
OnClick = Priority11Click
end
end
object Options1: TMenuItem
Caption = 'Options'
object ShowToolbar1: TMenuItem
AutoCheck = True
Caption = 'Show Toolbar'
OnClick = ShowToolbar1Click
end
object ShowFilename1: TMenuItem
Caption = 'Show File Name in Title Bar'
OnClick = ShowFilename1Click
end
object Options2: TMenuItem
Caption = 'Preferences...'
ShortCut = 16464
OnClick = Options1Click
end
end
object Help1: TMenuItem
Caption = 'Help'
object Documentation1: TMenuItem
Caption = 'Help File...'
OnClick = Documentation1Click
end
object keyboardShortcuts1: TMenuItem
Caption = 'Keyboard Shortcuts...'
OnClick = keyboardShortcuts1Click
end
object Website1: TMenuItem
Caption = 'Go to Website...'
OnClick = Website1Click
end
object N8: TMenuItem
Caption = '-'
end
object Register1: TMenuItem
Caption = 'Register...'
OnClick = Register1Click
end
object N3: TMenuItem
Caption = '-'
end
object About1: TMenuItem
Caption = 'About...'
OnClick = About1Click
end
end
end
object SaveDialog2: TSaveDialog
DefaultExt = 'txt'
Filter = 'Text Files (*.txt)|*.txt'
Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
Left = 112
Top = 56
end
object OpenDialog2: TOpenDialog
DefaultExt = 'txt'
Filter = 'Text Files (*.txt)|*.txt'
Left = 152
Top = 96
end
object PopupMenu1: TPopupMenu
Left = 56
Top = 56
object PopPriority11: TMenuItem
Tag = 1
Caption = 'PopPrority1'
RadioItem = True
OnClick = PopPriority11Click
end
object PopPriority21: TMenuItem
Tag = 2
Caption = 'PopPrority2'
RadioItem = True
OnClick = PopPriority11Click
end
object PopPriority31: TMenuItem
Tag = 3
Caption = 'PopPrority3'
RadioItem = True
OnClick = PopPriority11Click
end
object PopPriority41: TMenuItem
Tag = 4
Caption = 'PopPrority4'
RadioItem = True
OnClick = PopPriority11Click
end
object PopPriority51: TMenuItem
Tag = 5
Caption = 'PopPrority5'
RadioItem = True
OnClick = PopPriority11Click
end
object PopPriority61: TMenuItem
Tag = 6
Caption = 'PopPrority6'
RadioItem = True
OnClick = PopPriority11Click
end
object PopPriority71: TMenuItem
Tag = 7
Caption = 'PopPrority7'
RadioItem = True
OnClick = PopPriority11Click
end
object PopPriority81: TMenuItem
Tag = 8
Caption = 'PopPriority8'
RadioItem = True
OnClick = PopPriority11Click
end
object PopPriority91: TMenuItem
Tag = 9
Caption = 'PopPriority9'
RadioItem = True
OnClick = PopPriority11Click
end
end
object Timer1: TTimer
Interval = 60000
OnTimer = Timer1Timer
Left = 112
Top = 136
end
object PrinterSetupDialog1: TPrinterSetupDialog
Left = 152
Top = 136
end
object XPManifest1: TXPManifest
Left = 488
Top = 72
end
end
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 김성열
- •
- 2006.12.11 10:09
- 1 COMMENTS
- /
- 0 LIKES
-
권태훈•2006.12.11 19:05차 두대를 사서 한명의 운전수가 운전하는 기술이 가능한 싯점과 비슷할겁니다. 농담이 아니고... ...
-
- 김성열
- 2006.12.11 10:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 김성열
- 2006.12.11 10:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 김민수
- 2006.12.11 09:46
- 0 COMMENTS
- /
- 0 LIKES
-
- 윤정운
- •
- 2006.12.11 07:43
- 2 COMMENTS
- /
- 0 LIKES
-
정경철•2006.12.12 22:39if 문에 Bigin이 좀 이상한거 갔아서 다음과 같이 고쳤습니다. if ComBoBox1.ItemIndex = 0 then begi...
-
윤정운•2006.12.17 07:53좋은 힌트가 되었습니다. 감사합니다.
-
- 정경철
- 2006.12.10 05:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 신재민
- 2006.12.10 01:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 정진석
- 2006.12.09 00:58
- 0 COMMENTS
- /
- 0 LIKES
-
- 강무성
- 2006.12.08 23:58
- 0 COMMENTS
- /
- 0 LIKES
-
- HEIM(델파리)
- •
- 2006.12.08 22:58
- 1 COMMENTS
- /
- 0 LIKES
-
황준동•2006.12.09 12:23<!--CodeS--> type TTest = ( ykk = 1, ukd = 3, iek = 100, ...); <!--CodeE--...
-
- 최영식
- •
- 2006.12.08 04:07
- •
- 2 COMMENTS
- /
- 0 LIKES
-
nilriri™•2006.12.09 20:14심심풀이로 만들어 보긴 했지만... 이런 방법 보다는 지도검색 서비스를 제공하는 업체가 다수있는걸로 ...
-
최영식•2006.12.12 23:57답변과 샘플 정말 감사드립니다.
-
- 엠피쓰리
- •
- 2006.12.08 00:15
- 1 COMMENTS
- /
- 0 LIKES
-
황준동•2006.12.09 12:36DBGRID에 바로 하시기는 불가능하구요. TCustomGrid를 상속받아서 새로 만들면 가능하게 만들수도 있겠...
-
- 박병술
- 2006.12.07 22:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 크레이지킹
- 2006.12.07 17:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 강태구
- •
- 2006.12.07 07:28
- 1 COMMENTS
- /
- 0 LIKES
-
권태훈•2006.12.07 22:54질문상 이해 안되는 부분이있는데요, 코드를 보면 소켓이 끊어지면 조건문을 타지 않는데, 말씀하신...
-
- 권영율
- •
- 2006.12.06 23:17
- 1 COMMENTS
- /
- 0 LIKES
-
양용성•2006.12.07 23:43execute 나 opne 후에 변수 := Query1.ParamByName('RESULT').AsString; 하시면 됩니...
-
- 과학상자
- •
- 2006.12.06 23:13
- 1 COMMENTS
- /
- 0 LIKES
델파이 인데... 리소스 고쳐서... 프로그램 실행시에 화면창이 안뜨고 자동으로 트래이 아이콘으로 들어가 버려서... 실행할때 메인화면 보이게 하고 싶퍼서요... 어떻게 수정해야 되나요 ? ============================================...-
Marek•2006.12.11 18:05안녕하세요. FormCreate에서 아래 MinimizeToTray1Click(Self)를 제거 하시면 될겁니다. Marek... ...
-
- 과학상자
- •
- 2006.12.06 21:57
- 1 COMMENTS
- /
- 0 LIKES
-
황준동•2006.12.09 12:37상황을 자세히 설명해주셔야 말씀을 드릴수 있을것 같은데요... 무슨말씀인지 잘 이해가 안되네요.. ^...
-
- 이승근
- •
- 2006.12.06 21:02
- 1 COMMENTS
- /
- 0 LIKES
-
장덕곤•2006.12.07 05:10백업했다가 복구하시면 용량이 줄어듭니다.. 다른방법도 있는데 기억이 ㅡ,,ㅡ;;;
-
- 태기
- 2006.12.06 02:52
- 0 COMMENTS
- /
- 0 LIKES
FormCreate에서 아래 MinimizeToTray1Click(Self)를 제거 하시면 될겁니다.
Marek...
object MinimizetoTray1: TMenuItem
Caption = 'Minimize to Tray'
OnClick = MinimizetoTray1Click
end