jvcl driver development envionment

源代码在线查看: commentfrm.dfm

软件大小: 11078 K
上传用户: haowfei
关键词: development envionment driver jvcl
下载地址: 免注册下载 普通下载 VIP

相关代码

				object frmComment: TfrmComment
				  Left = 414
				  Top = 204
				  Width = 381
				  Height = 321
				  ActiveControl = reComments
				  Caption = 'Comment on "%s"'
				  Color = clBtnFace
				  ParentFont = True
				  FormStyle = fsStayOnTop
				  OldCreateOrder = False
				  Position = poMainFormCenter
				  PixelsPerInch = 96
				  TextHeight = 13
				  object btnOK: TButton
				    Left = 204
				    Top = 260
				    Width = 75
				    Height = 25
				    Action = acOK
				    Anchors = [akRight, akBottom]
				    Default = True
				    ModalResult = 1
				    TabOrder = 1
				  end
				  object btnCancel: TButton
				    Left = 284
				    Top = 260
				    Width = 75
				    Height = 25
				    Action = acCancel
				    Anchors = [akRight, akBottom]
				    Cancel = True
				    ModalResult = 2
				    TabOrder = 2
				  end
				  object reComments: TJvMemo
				    Left = 6
				    Top = 6
				    Width = 361
				    Height = 246
				    AutoSize = False
				    MaxLines = 0
				    HideCaret = False
				    Anchors = [akLeft, akTop, akRight, akBottom]
				    PopupMenu = popEdit
				    ReadOnly = False
				    ScrollBars = ssBoth
				    TabOrder = 0
				    WantTabs = True
				    WordWrap = False
				  end
				  object alCommentFrm: TActionList
				    Left = 84
				    Top = 108
				    object acOK: TAction
				      Caption = '&OK'
				      OnExecute = acOKExecute
				    end
				    object acCancel: TAction
				      Caption = '&Cancel'
				      ShortCut = 27
				      OnExecute = acCancelExecute
				    end
				    object acLoad: TAction
				      Caption = 'Load...'
				      ShortCut = 16463
				      OnExecute = acLoadExecute
				    end
				    object acSave: TAction
				      Caption = 'Save...'
				      ShortCut = 16467
				      OnExecute = acSaveExecute
				    end
				  end
				  object OpenFileDlg: TJvOpenDialog
				    DefaultExt = 'txt'
				    Filter = 'Text files (*.txt)|*.txt|All files|*.*'
				    InitialDir = '.'
				    Height = 347
				    Width = 563
				    Left = 66
				    Top = 36
				  end
				  object SaveFileDlg: TJvSaveDialog
				    Filter = 'Text files (*.txt)|*.txt|All files|*.*'
				    InitialDir = '.'
				    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
				    Height = 0
				    Width = 0
				    Left = 138
				    Top = 36
				  end
				  object popEdit: TPopupMenu
				    Left = 174
				    Top = 114
				    object Load1: TMenuItem
				      Action = acLoad
				    end
				    object Save1: TMenuItem
				      Action = acSave
				    end
				  end
				end
							

相关资源