📄 unit1_1.inc

📁 一个虚拟串口的驱动程序源代码
💻 INC
📖 第 1 页 / 共 4 页
字号:
12 3 4 下一页
{ KOL MCK } // Do not remove this line!
const Sizeof_TForm1 = Sizeof(TForm1);
type TControl_ = object( TControl ) end;
type TObj_ = object( TObj ) end;
type _TObj_ = object( _TObj ) end;
const mnuFile = 0;
const mnuFileSave = 1;
const mnuFileExit = 3;
const mnuHelp = 4;
const mnuHelpAbout = 5;


{$IFDEF Pcode}
procedure NewForm1( var Result: PForm1; AParent: PControl );
{$IFDEF Psource}
 PROC(2)
 Load4 ####@@formvmt L(0)
 TObj.Create<2> RESULT
 SetSELF
 DUP C2 Store
 LoadAnsiStr 'VComConfigurator' #0
 C4 
 NewForm<2> RESULT
 DUP C3 AddByte_Store #TForm1.Form
 L(187) L(265) C2 TControl.SetPosition<3> L(382) L(329) C2 TControl.SetClientSize<3>
 DUP StoreVar ####Applet
 LoadSELF C1 
 TControl.Add2AutoFree<2>
 IFDEF(USE_NAMES)
 LoadAnsiStr 'Form1' #0
 C2 TObj.SetName<2>
 DelAnsiStr
 ENDIF
 L(14211288)
 C1 TControl_.SetCtlColor<2>
 L(11) LoadPCharArray #0
')' #0
'About VComConfigurator...' #0
'(' #0
'Help' #0
')' #0
'Exit' #0
'-' #0
'Save Configuration' #0
'(' #0
'File' #0
 L(10)
 L(0) L(0)
 LoadStack L(12) xyAdd
 L(0) LoadSELF AddByte_LoadRef #TForm1.Form NewMenu<3> RESULT DUP LoadSELF AddWord_Store ##TForm1.mnuMain
 LoadSELF Load4 ####TForm1.mnuMainmnuFileSaveMenu
 LoadStack L(0) xySwap L(1)
 C5 TMenu_.AssignEvents<3> DEL DEL
 LoadSELF Load4 ####TForm1.KOLForm1mnuFileExitMenu
 LoadStack L(0) xySwap L(3)
 C5 TMenu_.AssignEvents<3> DEL DEL
 LoadSELF Load4 ####TForm1.KOLForm1mnuHelpAboutMenu
 LoadStack L(0) xySwap L(5)
 C5 TMenu_.AssignEvents<3> DEL DEL
 DEL //mnuMain
 L(11) DELN
 L(2)  C1
 NewPanel<2>
 RESULT
L(5) C1 TControl_.SetAlign<2>
 DUP LoadSELF AddWord_Store ##TForm1.Panel1
 IFDEF(USE_NAMES)
 LoadAnsiStr 'Panel1' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 L(0) C1 TControl_.SetCtl3D<2>
 L(4)
 C1 AddWord_Store ##TControl_.fMargin
 L(1) C1 TControl_.SetTransparent<2>
 DEL //Panel1
 L(2)  C1
 NewPanel<2>
 RESULT
L(2) C1 TControl_.SetAlign<2> L(375) L(0) C2 TControl.SetSize<3>
 DUP LoadSELF AddWord_Store ##TForm1.Panel2
 IFDEF(USE_NAMES)
 LoadAnsiStr 'Panel2' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 L(0) C1 TControl_.SetCtl3D<2>
 L(0)
 C1 AddWord_Store ##TControl_.fMargin
 L(1) C1 TControl_.SetTransparent<2>
 L(15780518)
 L(15780518)
 LoadSELF AddWord_LoadRef ##TForm1.Panel2
 NewGradientPanel<3>
 RESULT
L(8) L(64) C2 TControl.SetPosition<3> L(329) L(187) C2 TControl.SetSize<3>
 DUP LoadSELF AddWord_Store ##TForm1.GradientPanel5
 IFDEF(USE_NAMES)
 LoadAnsiStr 'GradientPanel5' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 L(0) C1 AddWord_Store ##TControl_.fTabStop
 L(2)
 C1 AddWord_Store ##TControl_.fMargin
 L(1) C1 TControl_.SetHasBorder<2>
 LoadAnsiStr 'Use?' #0 C2
 NewLabel<2>
 RESULT
 xySwap DelAnsiStr L(46) L(79) C2 TControl.SetPosition<3> L(1) C1 TControl.AutoSize<2>
 DUP LoadSELF AddWord_Store ##TForm1.Label1
 IFDEF(USE_NAMES)
 LoadAnsiStr 'Label1' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 DUP TControl_.GetFont<1> RESULT
 L(10)
 L(4)
 C2 TGraphTool.SetInt<3>
 DEL // Font
 L(1) C1 TControl_.SetTransparent<2>
 DEL //Label1
 LoadAnsiStr 'Virtual Port Pairs' #0
 L(0) xySwap
 LoadSELF AddWord_LoadRef ##TForm1.GradientPanel5
 NewLabelEffect<3>
 RESULT
 xySwap DelAnsiStr L(26) L(49) C2 TControl.SetPosition<3> L(1) C1 TControl.AutoSize<2>
 DUP LoadSELF AddWord_Store ##TForm1.LabelEffect1
 IFDEF(USE_NAMES)
 LoadAnsiStr 'LabelEffect1' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 L(0) C1 TControl_.SetCtl3D<2>
 DUP TControl_.GetFont<1> RESULT
 L(0)
 C1 TGraphTool.SetColor<2>
 L(16)
 L(4)
 C2 TGraphTool.SetInt<3>
 LoadAnsiStr 'Comic Sans MS' #0
 C2 TGraphTool.SetFontName<2>
 DelAnsiStr
 DEL // Font
 L(0)  C1 TControl_.SetTextAlign<2>
 L(15780518)
 C1 TControl_.SetCtlColor<2>
 L(0) C1 TControl_.SetColor2<2>
 DEL //LabelEffect1
 LoadAnsiStr 'N8VBvCOM Driver' #0
 L(1) xySwap
 LoadSELF AddWord_LoadRef ##TForm1.GradientPanel5
 NewLabelEffect<3>
 RESULT
 xySwap DelAnsiStr L(2) L(22) C2 TControl.SetPosition<3> L(1) C1 TControl.AutoSize<2>
 DUP LoadSELF AddWord_Store ##TForm1.LabelEffect6
 IFDEF(USE_NAMES)
 LoadAnsiStr 'LabelEffect6' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 L(0) C1 TControl_.SetCtl3D<2>
 DUP TControl_.GetFont<1> RESULT
 L(8421376)
 C1 TGraphTool.SetColor<2>
 L(4)
 C1 TGraphTool.SetFontStyle<2>
 L(23)
 L(4)
 C2 TGraphTool.SetInt<3>
 LoadAnsiStr 'Comic Sans MS' #0
 C2 TGraphTool.SetFontName<2>
 DelAnsiStr
 DEL // Font
 L(0)  C1 TControl_.SetTextAlign<2>
 L(15780518)
 C1 TControl_.SetCtlColor<2>
 L(0) C1 TControl_.SetColor2<2>
 DEL //LabelEffect6
 L(17)
 C1
 NewComboBox<2>
 RESULT
L(57) L(5) C2 TControl.SetPosition<3> L(0) L(61) C2 TControl.SetSize<3>
 DUP LoadSELF AddWord_Store ##TForm1.cboLeft1
 IFDEF(USE_NAMES)
 LoadAnsiStr 'cboLeft1' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 L(0) C1 TControl_.SetCtl3D<2>
 DUP TControl_.GetFont<1> RESULT
 L(10)
 L(4)
 C2 TGraphTool.SetInt<3>
 DEL // Font
 L(-2147483643)
 C1 TControl_.SetCtlColor<2>
 L(0) C1 TControl_.SetCurIndex<2>
 DEL //cboLeft1
 LoadAnsiStr  #0
 C2
 NewCheckBox<2>
 RESULT
 xySwap DelAnsiStr L(57) L(85) C2 TControl.SetPosition<3> L(0) L(17) C2 TControl.SetSize<3>
 DUP LoadSELF AddWord_Store ##TForm1.CheckBox1
 IFDEF(USE_NAMES)
 LoadAnsiStr 'CheckBox1' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 L(1) C1 TControl_.SetTransparent<2>
 L(15780518)
 C1 TControl_.SetCtlColor<2>
 DEL //CheckBox1
 L(17)
 C1
 NewComboBox<2>
 RESULT
L(57) L(121) C2 TControl.SetPosition<3> L(0) L(61) C2 TControl.SetSize<3>
 DUP LoadSELF AddWord_Store ##TForm1.cboRight1
 IFDEF(USE_NAMES)
 LoadAnsiStr 'cboRight1' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 L(0) C1 TControl_.SetCtl3D<2>
 DUP TControl_.GetFont<1> RESULT
 L(10)
 L(4)
 C2 TGraphTool.SetInt<3>
 DEL // Font
 L(-2147483643)
 C1 TControl_.SetCtlColor<2>
 L(0) C1 TControl_.SetCurIndex<2>
 DEL //cboRight1
 L(17)
 C1
 NewComboBox<2>
 RESULT
L(81) L(5) C2 TControl.SetPosition<3> L(0) L(61) C2 TControl.SetSize<3>
 DUP LoadSELF AddWord_Store ##TForm1.cboLeft2
 IFDEF(USE_NAMES)
 LoadAnsiStr 'cboLeft2' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 L(0) C1 TControl_.SetCtl3D<2>
 DUP TControl_.GetFont<1> RESULT
 L(10)
 L(4)
 C2 TGraphTool.SetInt<3>
 DEL // Font
 L(-2147483643)
 C1 TControl_.SetCtlColor<2>
 L(0) C1 TControl_.SetCurIndex<2>
 DEL //cboLeft2
 LoadAnsiStr  #0
 C2
 NewCheckBox<2>
 RESULT
 xySwap DelAnsiStr L(81) L(85) C2 TControl.SetPosition<3> L(0) L(17) C2 TControl.SetSize<3>
 DUP LoadSELF AddWord_Store ##TForm1.CheckBox2
 IFDEF(USE_NAMES)
 LoadAnsiStr 'CheckBox2' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 L(1) C1 TControl_.SetTransparent<2>
 L(15780518)
 C1 TControl_.SetCtlColor<2>
 DEL //CheckBox2
 L(17)
 C1
 NewComboBox<2>
 RESULT
L(81) L(121) C2 TControl.SetPosition<3> L(0) L(61) C2 TControl.SetSize<3>
 DUP LoadSELF AddWord_Store ##TForm1.cboRight2
 IFDEF(USE_NAMES)
 LoadAnsiStr 'cboRight2' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 L(0) C1 TControl_.SetCtl3D<2>
 DUP TControl_.GetFont<1> RESULT
 L(10)
 L(4)
 C2 TGraphTool.SetInt<3>
 DEL // Font
 L(-2147483643)
 C1 TControl_.SetCtlColor<2>
 L(0) C1 TControl_.SetCurIndex<2>
 DEL //cboRight2
 L(17)
 C1
 NewComboBox<2>
 RESULT
L(105) L(5) C2 TControl.SetPosition<3> L(0) L(61) C2 TControl.SetSize<3>
 DUP LoadSELF AddWord_Store ##TForm1.cboLeft3
 IFDEF(USE_NAMES)
 LoadAnsiStr 'cboLeft3' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 L(0) C1 TControl_.SetCtl3D<2>
 DUP TControl_.GetFont<1> RESULT
 L(10)
 L(4)
 C2 TGraphTool.SetInt<3>
 DEL // Font
 L(-2147483643)
 C1 TControl_.SetCtlColor<2>
 L(0) C1 TControl_.SetCurIndex<2>
 DEL //cboLeft3
 LoadAnsiStr  #0
 C2
 NewCheckBox<2>
 RESULT
 xySwap DelAnsiStr L(105) L(85) C2 TControl.SetPosition<3> L(0) L(17) C2 TControl.SetSize<3>
 DUP LoadSELF AddWord_Store ##TForm1.CheckBox3
 IFDEF(USE_NAMES)
 LoadAnsiStr 'CheckBox3' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 L(1) C1 TControl_.SetTransparent<2>
 L(15780518)
 C1 TControl_.SetCtlColor<2>
 DEL //CheckBox3
 L(17)
 C1
 NewComboBox<2>
 RESULT
L(105) L(121) C2 TControl.SetPosition<3> L(0) L(61) C2 TControl.SetSize<3>
 DUP LoadSELF AddWord_Store ##TForm1.cboRight3
 IFDEF(USE_NAMES)
 LoadAnsiStr 'cboRight3' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 L(0) C1 TControl_.SetCtl3D<2>
 DUP TControl_.GetFont<1> RESULT
 L(10)
 L(4)
 C2 TGraphTool.SetInt<3>
 DEL // Font
 L(-2147483643)
 C1 TControl_.SetCtlColor<2>
 L(0) C1 TControl_.SetCurIndex<2>
 DEL //cboRight3
 L(17)
 C1
 NewComboBox<2>
 RESULT
L(129) L(5) C2 TControl.SetPosition<3> L(0) L(61) C2 TControl.SetSize<3>
 DUP LoadSELF AddWord_Store ##TForm1.cboLeft4
 IFDEF(USE_NAMES)
 LoadAnsiStr 'cboLeft4' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 L(0) C1 TControl_.SetCtl3D<2>
 DUP TControl_.GetFont<1> RESULT
 L(10)
 L(4)
 C2 TGraphTool.SetInt<3>
 DEL // Font
 L(-2147483643)
 C1 TControl_.SetCtlColor<2>
 L(0) C1 TControl_.SetCurIndex<2>
 DEL //cboLeft4
 LoadAnsiStr  #0
 C2
 NewCheckBox<2>
 RESULT
 xySwap DelAnsiStr L(129) L(85) C2 TControl.SetPosition<3> L(0) L(17) C2 TControl.SetSize<3>
 DUP LoadSELF AddWord_Store ##TForm1.CheckBox4
 IFDEF(USE_NAMES)
 LoadAnsiStr 'CheckBox4' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 L(1) C1 TControl_.SetTransparent<2>
 L(15780518)
 C1 TControl_.SetCtlColor<2>
 DEL //CheckBox4
 L(17)
 C1
 NewComboBox<2>
 RESULT
L(129) L(121) C2 TControl.SetPosition<3> L(0) L(61) C2 TControl.SetSize<3>
 DUP LoadSELF AddWord_Store ##TForm1.cboRight4
 IFDEF(USE_NAMES)
 LoadAnsiStr 'cboRight4' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 L(0) C1 TControl_.SetCtl3D<2>
 DUP TControl_.GetFont<1> RESULT
 L(10)
 L(4)
 C2 TGraphTool.SetInt<3>
 DEL // Font
 L(-2147483643)
 C1 TControl_.SetCtlColor<2>
 L(0) C1 TControl_.SetCurIndex<2>
 DEL //cboRight4
 L(17)
 C1
 NewComboBox<2>
 RESULT
L(153) L(5) C2 TControl.SetPosition<3> L(0) L(61) C2 TControl.SetSize<3>
 DUP LoadSELF AddWord_Store ##TForm1.cboLeft5
 IFDEF(USE_NAMES)
 LoadAnsiStr 'cboLeft5' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 L(0) C1 TControl_.SetCtl3D<2>
 DUP TControl_.GetFont<1> RESULT
 L(10)
 L(4)
 C2 TGraphTool.SetInt<3>
 DEL // Font
 L(-2147483643)
 C1 TControl_.SetCtlColor<2>
 L(0) C1 TControl_.SetCurIndex<2>
 DEL //cboLeft5
 LoadAnsiStr  #0
 C2
 NewCheckBox<2>
 RESULT
 xySwap DelAnsiStr L(153) L(85) C2 TControl.SetPosition<3> L(0) L(17) C2 TControl.SetSize<3>
 DUP LoadSELF AddWord_Store ##TForm1.CheckBox5
 IFDEF(USE_NAMES)
 LoadAnsiStr 'CheckBox5' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 L(1) C1 TControl_.SetTransparent<2>
 L(15780518)
 C1 TControl_.SetCtlColor<2>
 DEL //CheckBox5
 L(17)
 C1
 NewComboBox<2>
 RESULT
L(153) L(121) C2 TControl.SetPosition<3> L(0) L(61) C2 TControl.SetSize<3>
 DUP LoadSELF AddWord_Store ##TForm1.cboRight5
 IFDEF(USE_NAMES)
 LoadAnsiStr 'cboRight5' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 L(0) C1 TControl_.SetCtl3D<2>
 DUP TControl_.GetFont<1> RESULT
 L(10)
 L(4)
 C2 TGraphTool.SetInt<3>
 DEL // Font
 L(-2147483643)
 C1 TControl_.SetCtlColor<2>
12 3 4 下一页
💿 文件大小 433 K
👤 上传用户 angela5683
📂 所属分类驱动编程
🏷️ 相关标签

#虚拟串口 #源代码 #驱动程序
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -