📄 unit1_1.inc

📁 一个虚拟串口的驱动程序源代码
💻 INC
📖 第 1 页 / 共 4 页
字号:
 L(8388608)
 L(8388608)
 LoadSELF AddWord_LoadRef ##TForm1.GradientPanel5
 NewGradientPanel<3>
 RESULT
L(258) L(100) C2 TControl.SetPosition<3> L(4) L(22) C2 TControl.SetSize<3>
 DUP LoadSELF AddWord_Store ##TForm1.GradientPanel19
 IFDEF(USE_NAMES)
 LoadAnsiStr 'GradientPanel19' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 L(0)
 C1 TControl_.SetHasBorder<2>
 L(0) C1 AddWord_Store ##TControl_.fTabStop
 DEL //GradientPanel19
 L(8388608)
 L(8388608)
 LoadSELF AddWord_LoadRef ##TForm1.GradientPanel5
 NewGradientPanel<3>
 RESULT
L(90) L(65) C2 TControl.SetPosition<3> L(4) L(22) C2 TControl.SetSize<3>
 DUP LoadSELF AddWord_Store ##TForm1.GradientPanel2
 IFDEF(USE_NAMES)
 LoadAnsiStr 'GradientPanel2' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 L(0)
 C1 TControl_.SetHasBorder<2>
 L(0) C1 AddWord_Store ##TControl_.fTabStop
 DEL //GradientPanel2
 L(8388608)
 L(8388608)
 LoadSELF AddWord_LoadRef ##TForm1.GradientPanel5
 NewGradientPanel<3>
 RESULT
L(282) L(65) C2 TControl.SetPosition<3> L(4) L(22) C2 TControl.SetSize<3>
 DUP LoadSELF AddWord_Store ##TForm1.GradientPanel20
 IFDEF(USE_NAMES)
 LoadAnsiStr 'GradientPanel20' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 L(0)
 C1 TControl_.SetHasBorder<2>
 L(0) C1 AddWord_Store ##TControl_.fTabStop
 DEL //GradientPanel20
 L(8388608)
 L(8388608)
 LoadSELF AddWord_LoadRef ##TForm1.GradientPanel5
 NewGradientPanel<3>
 RESULT
L(282) L(100) C2 TControl.SetPosition<3> L(4) L(22) C2 TControl.SetSize<3>
 DUP LoadSELF AddWord_Store ##TForm1.GradientPanel21
 IFDEF(USE_NAMES)
 LoadAnsiStr 'GradientPanel21' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 L(0)
 C1 TControl_.SetHasBorder<2>
 L(0) C1 AddWord_Store ##TControl_.fTabStop
 DEL //GradientPanel21
 L(8388608)
 L(8388608)
 LoadSELF AddWord_LoadRef ##TForm1.GradientPanel5
 NewGradientPanel<3>
 RESULT
L(90) L(100) C2 TControl.SetPosition<3> L(4) L(22) C2 TControl.SetSize<3>
 DUP LoadSELF AddWord_Store ##TForm1.GradientPanel3
 IFDEF(USE_NAMES)
 LoadAnsiStr 'GradientPanel3' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 L(0)
 C1 TControl_.SetHasBorder<2>
 L(0) C1 AddWord_Store ##TControl_.fTabStop
 DEL //GradientPanel3
 L(8388608)
 L(8388608)
 LoadSELF AddWord_LoadRef ##TForm1.GradientPanel5
 NewGradientPanel<3>
 RESULT
L(114) L(65) C2 TControl.SetPosition<3> L(4) L(22) C2 TControl.SetSize<3>
 DUP LoadSELF AddWord_Store ##TForm1.GradientPanel4
 IFDEF(USE_NAMES)
 LoadAnsiStr 'GradientPanel4' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 L(0)
 C1 TControl_.SetHasBorder<2>
 L(0) C1 AddWord_Store ##TControl_.fTabStop
 DEL //GradientPanel4
 L(8388608)
 L(8388608)
 LoadSELF AddWord_LoadRef ##TForm1.GradientPanel5
 NewGradientPanel<3>
 RESULT
L(114) L(100) C2 TControl.SetPosition<3> L(4) L(22) C2 TControl.SetSize<3>
 DUP LoadSELF AddWord_Store ##TForm1.GradientPanel6
 IFDEF(USE_NAMES)
 LoadAnsiStr 'GradientPanel6' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 L(0)
 C1 TControl_.SetHasBorder<2>
 L(0) C1 AddWord_Store ##TControl_.fTabStop
 DEL //GradientPanel6
 L(8388608)
 L(8388608)
 LoadSELF AddWord_LoadRef ##TForm1.GradientPanel5
 NewGradientPanel<3>
 RESULT
L(138) L(65) C2 TControl.SetPosition<3> L(4) L(22) C2 TControl.SetSize<3>
 DUP LoadSELF AddWord_Store ##TForm1.GradientPanel7
 IFDEF(USE_NAMES)
 LoadAnsiStr 'GradientPanel7' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 L(0)
 C1 TControl_.SetHasBorder<2>
 L(0) C1 AddWord_Store ##TControl_.fTabStop
 DEL //GradientPanel7
 L(8388608)
 L(8388608)
 LoadSELF AddWord_LoadRef ##TForm1.GradientPanel5
 NewGradientPanel<3>
 RESULT
L(138) L(100) C2 TControl.SetPosition<3> L(4) L(22) C2 TControl.SetSize<3>
 DUP LoadSELF AddWord_Store ##TForm1.GradientPanel8
 IFDEF(USE_NAMES)
 LoadAnsiStr 'GradientPanel8' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 L(0)
 C1 TControl_.SetHasBorder<2>
 L(0) C1 AddWord_Store ##TControl_.fTabStop
 DEL //GradientPanel8
 L(8388608)
 L(8388608)
 LoadSELF AddWord_LoadRef ##TForm1.GradientPanel5
 NewGradientPanel<3>
 RESULT
L(162) L(65) C2 TControl.SetPosition<3> L(4) L(22) C2 TControl.SetSize<3>
 DUP LoadSELF AddWord_Store ##TForm1.GradientPanel9
 IFDEF(USE_NAMES)
 LoadAnsiStr 'GradientPanel9' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 L(0)
 C1 TControl_.SetHasBorder<2>
 L(0) C1 AddWord_Store ##TControl_.fTabStop
 DEL //GradientPanel9
 DEL //GradientPanel5
 LoadAnsiStr 'Install Driver' #0
 C2
 NewButton<2>
 RESULT
L(349) L(12) C2 TControl.SetPosition<3> L(0) L(91) C2 TControl.SetSize<3> xySwap DelAnsiStr
 DUP LoadSELF AddWord_Store ##TForm1.Button1
 IFDEF(USE_NAMES)
 LoadAnsiStr 'Button1' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 DUP TControl_.GetFont<1> RESULT
 L(10)
 L(4)
 C2 TGraphTool.SetInt<3>
 DEL // Font
 DEL //Button1
 LoadAnsiStr 'Update Driver' #0
 C2
 NewButton<2>
 RESULT
L(349) L(116) C2 TControl.SetPosition<3> L(0) L(91) C2 TControl.SetSize<3> xySwap DelAnsiStr
 DUP LoadSELF AddWord_Store ##TForm1.Button2
 IFDEF(USE_NAMES)
 LoadAnsiStr 'Button2' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 DUP TControl_.GetFont<1> RESULT
 L(10)
 L(4)
 C2 TGraphTool.SetInt<3>
 DEL // Font
 DEL //Button2
 LoadAnsiStr 'Remove Driver' #0
 C2
 NewButton<2>
 RESULT
L(349) L(220) C2 TControl.SetPosition<3> L(0) L(91) C2 TControl.SetSize<3> xySwap DelAnsiStr
 DUP LoadSELF AddWord_Store ##TForm1.Button3
 IFDEF(USE_NAMES)
 LoadAnsiStr 'Button3' #0
 C2 TObj_.SetName<2>
 DelAnsiStr
 ENDIF
 DUP TControl_.GetFont<1> RESULT
 L(10)
 L(4)
 C2 TGraphTool.SetInt<3>
 DEL // Font
 DEL //Button3
 DEL //Panel2
 LoadSELF AddWord_LoadRef ##TForm1.cboLeft1
 Load4 ####TForm1.cboPortsChange
 C1 AddWord_Store ##TControl_.fOnChange
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnChange)
 DEL //cboLeft1
 LoadSELF AddWord_LoadRef ##TForm1.cboLeft2
 Load4 ####TForm1.cboPortsChange
 C1 AddWord_Store ##TControl_.fOnChange
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnChange)
 DEL //cboLeft2
 LoadSELF AddWord_LoadRef ##TForm1.cboLeft3
 Load4 ####TForm1.cboPortsChange
 C1 AddWord_Store ##TControl_.fOnChange
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnChange)
 DEL //cboLeft3
 LoadSELF AddWord_LoadRef ##TForm1.cboLeft4
 Load4 ####TForm1.cboPortsChange
 C1 AddWord_Store ##TControl_.fOnChange
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnChange)
 DEL //cboLeft4
 LoadSELF AddWord_LoadRef ##TForm1.cboRight1
 Load4 ####TForm1.cboPortsChange
 C1 AddWord_Store ##TControl_.fOnChange
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnChange)
 DEL //cboRight1
 LoadSELF AddWord_LoadRef ##TForm1.cboRight2
 Load4 ####TForm1.cboPortsChange
 C1 AddWord_Store ##TControl_.fOnChange
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnChange)
 DEL //cboRight2
 LoadSELF AddWord_LoadRef ##TForm1.cboRight3
 Load4 ####TForm1.cboPortsChange
 C1 AddWord_Store ##TControl_.fOnChange
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnChange)
 DEL //cboRight3
 LoadSELF AddWord_LoadRef ##TForm1.cboRight4
 Load4 ####TForm1.cboPortsChange
 C1 AddWord_Store ##TControl_.fOnChange
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnChange)
 DEL //cboRight4
 LoadSELF AddWord_LoadRef ##TForm1.btnSave
 Load4 ####TForm1.btnSaveClick
 C1 AddWord_Store ##TControl_.fOnClick
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnClick)
 DEL //btnSave
 LoadSELF AddWord_LoadRef ##TForm1.CheckBox1
 Load4 ####TForm1.chkBoxClick
 C1 AddWord_Store ##TControl_.fOnClick
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnClick)
 DEL //CheckBox1
 LoadSELF AddWord_LoadRef ##TForm1.CheckBox2
 Load4 ####TForm1.chkBoxClick
 C1 AddWord_Store ##TControl_.fOnClick
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnClick)
 DEL //CheckBox2
 LoadSELF AddWord_LoadRef ##TForm1.CheckBox3
 Load4 ####TForm1.chkBoxClick
 C1 AddWord_Store ##TControl_.fOnClick
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnClick)
 DEL //CheckBox3
 LoadSELF AddWord_LoadRef ##TForm1.CheckBox4
 Load4 ####TForm1.chkBoxClick
 C1 AddWord_Store ##TControl_.fOnClick
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnClick)
 DEL //CheckBox4
 LoadSELF AddWord_LoadRef ##TForm1.CheckBox5
 Load4 ####TForm1.chkBoxClick
 C1 AddWord_Store ##TControl_.fOnClick
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnClick)
 DEL //CheckBox5
 LoadSELF AddWord_LoadRef ##TForm1.cboLeft5
 Load4 ####TForm1.cboPortsChange
 C1 AddWord_Store ##TControl_.fOnChange
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnChange)
 DEL //cboLeft5
 LoadSELF AddWord_LoadRef ##TForm1.cboRight5
 Load4 ####TForm1.cboPortsChange
 C1 AddWord_Store ##TControl_.fOnChange
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnChange)
 DEL //cboRight5
 LoadSELF AddWord_LoadRef ##TForm1.cboLeft7
 Load4 ####TForm1.cboPortsChange
 C1 AddWord_Store ##TControl_.fOnChange
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnChange)
 DEL //cboLeft7
 LoadSELF AddWord_LoadRef ##TForm1.cboLeft8
 Load4 ####TForm1.cboPortsChange
 C1 AddWord_Store ##TControl_.fOnChange
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnChange)
 DEL //cboLeft8
 LoadSELF AddWord_LoadRef ##TForm1.cboLeft9
 Load4 ####TForm1.cboPortsChange
 C1 AddWord_Store ##TControl_.fOnChange
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnChange)
 DEL //cboLeft9
 LoadSELF AddWord_LoadRef ##TForm1.cboRight6
 Load4 ####TForm1.cboPortsChange
 C1 AddWord_Store ##TControl_.fOnChange
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnChange)
 DEL //cboRight6
 LoadSELF AddWord_LoadRef ##TForm1.cboRight7
 Load4 ####TForm1.cboPortsChange
 C1 AddWord_Store ##TControl_.fOnChange
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnChange)
 DEL //cboRight7
 LoadSELF AddWord_LoadRef ##TForm1.cboRight8
 Load4 ####TForm1.cboPortsChange
 C1 AddWord_Store ##TControl_.fOnChange
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnChange)
 DEL //cboRight8
 LoadSELF AddWord_LoadRef ##TForm1.cboRight9
 Load4 ####TForm1.cboPortsChange
 C1 AddWord_Store ##TControl_.fOnChange
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnChange)
 DEL //cboRight9
 LoadSELF AddWord_LoadRef ##TForm1.CheckBox6
 Load4 ####TForm1.chkBoxClick
 C1 AddWord_Store ##TControl_.fOnClick
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnClick)
 DEL //CheckBox6
 LoadSELF AddWord_LoadRef ##TForm1.CheckBox7
 Load4 ####TForm1.chkBoxClick
 C1 AddWord_Store ##TControl_.fOnClick
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnClick)
 DEL //CheckBox7
 LoadSELF AddWord_LoadRef ##TForm1.CheckBox8
 Load4 ####TForm1.chkBoxClick
 C1 AddWord_Store ##TControl_.fOnClick
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnClick)
 DEL //CheckBox8
 LoadSELF AddWord_LoadRef ##TForm1.CheckBox9
 Load4 ####TForm1.chkBoxClick
 C1 AddWord_Store ##TControl_.fOnClick
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnClick)
 DEL //CheckBox9
 LoadSELF AddWord_LoadRef ##TForm1.CheckBox10
 Load4 ####TForm1.chkBoxClick
 C1 AddWord_Store ##TControl_.fOnClick
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnClick)
 DEL //CheckBox10
 LoadSELF AddWord_LoadRef ##TForm1.cboLeft10
 Load4 ####TForm1.cboPortsChange
 C1 AddWord_Store ##TControl_.fOnChange
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnChange)
 DEL //cboLeft10
 LoadSELF AddWord_LoadRef ##TForm1.cboRight10
 Load4 ####TForm1.cboPortsChange
 C1 AddWord_Store ##TControl_.fOnChange
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnChange)
 DEL //cboRight10
 LoadSELF AddWord_LoadRef ##TForm1.Button1
 Load4 ####TForm1.Button1Click
 C1 AddWord_Store ##TControl_.fOnClick
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnClick)
 DEL //Button1
 LoadSELF AddWord_LoadRef ##TForm1.Button2
 Load4 ####TForm1.Button2Click
 C1 AddWord_Store ##TControl_.fOnClick
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnClick)
 DEL //Button2
 LoadSELF AddWord_LoadRef ##TForm1.Button3
 Load4 ####TForm1.Button3Click
 C1 AddWord_Store ##TControl_.fOnClick
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnClick)
 DEL //Button3
 LoadSELF AddWord_LoadRef ##TForm1.cboLeft6
 Load4 ####TForm1.cboPortsChange
 C1 AddWord_Store ##TControl_.fOnChange
 LoadSELF C1 AddWord_Store ##(4+TControl_.fOnChange)
 DEL //cboLeft6
 LoadSELF DUP TForm1.KOLForm1FormCreate<2>
 DEL DelAnsiStr DEL DEL DEL EXIT
           ####Sizeof_TForm1
           ####0
@@formvmt: ####_TObj_.Init
           ####TObj.Destroy
 ENDP
{$ENDIF Psource}
{$ELSE OldCode}
procedure NewForm1( var Result: PForm1; AParent: PControl );
begin

  {$IFDEF KOLCLASSES}
  Result := PForm1.Create;
  {$ELSE OBJECTS}
  New( Result, Create );
  {$ENDIF KOL CLASSES/OBJECTS}
  Result.Form := NewForm( AParent, 'VComConfigurator' ).SetPosition( 265, 187 ){MainMenuHeight=20}.SetClientSize( 329, 402 );
  Applet :=  Result.Form;
  Result.Form.Add2AutoFree( Result );
   {$IFDEF USE_NAMES}
    Result.Form.Name := 'Form1';
   {$ENDIF}
    Result.Form.Color := $D8D8D8;

    Result.mnuMain := NewMenu( Result.Form, 0, [ 'File', '('
      , 'Save Configuration', '-' + '', 'Exit', ')', 'Help', '('
      , 'About VComConfigurator...', ')', '' ], nil );
   {$IFDEF USE_NAMES}
    Result.mnuMain.Name := 'mnuMain';
   {$ENDIF}
    Result.mnuMain.AssignEvents( 1, [ Result.mnuMainmnuFileSaveMenu ] );
    Result.mnuMain.AssignEvents( 3, [ Result.KOLForm1mnuFileExitMenu ] );
    Result.mnuMain.AssignEvents( 5, [ Result.KOLForm1mnuHelpAboutMenu ] );
    // Result.Panel1.TabOrder = 0
    Result.Panel1 := NewPanel( Result.Form, esNone ).SetAlign ( caClient );
   {$IFDEF USE_NAMES}
    Result.Panel1.Name := 'Panel1';
   {$ENDIF}
    Result.Panel1.Ctl3D := False;
    Result.Panel1.Border := 4;
    Result.Panel1.Transparent := True;
    // Result.Panel2.TabOrder = 1
    Result.Panel2 := NewPanel( Result.Form, esNone ).SetAlign ( caTop ).SetSize( 0, 375 );
   {$IFDEF USE_NAMES}
    Result.Panel2.Name := 'Panel2';
   {$ENDIF}
    Result.Panel2.Ctl3D := False;
    Result.Panel2.Border := 0;
    Result.Panel2.Transparent := True;
    // Result.GradientPanel5.TabOrder = 0
      Result.GradientPanel5 := NewGradientPanel( Result.Panel2, $F0CAA6, $F0CAA6 ).SetPosition( 64, 8 ).SetSize( 187, 329 );
   {$IFDEF USE_NAMES}
      Result.GradientPanel5.Name := 'GradientPanel5';
   {$ENDIF}
    Result.GradientPanel5.TabStop := FALSE;
      Result.GradientPanel5.Border := 2;
      Result.GradientPanel5.HasBorder := TRUE;
    // Result.Label1.TabOrder = -1
        Result.Label1 := NewLabel( Result.GradientPanel5, 'Use?' ).SetPosition( 79, 46 ).AutoSize( TRUE );
   {$IFDEF USE_NAMES}
        Result.Label1.Name := 'Label1';
   {$ENDIF}
    Result.Label1.Font.FontHeight := 10;
        Result.Label1.Transparent := True;
    // Result.LabelEffect1.TabOrder = -1
        Result.LabelEffect1 := NewLabelEffect( Result.GradientPanel5, 'Virtual Port Pairs', 0 ).SetPosition( 49, 26 ).AutoSize( TRUE );
   {$IFDEF USE_NAMES}
        Result.LabelEffect1.Name := 'LabelEffect1';
   {$ENDIF}
        Result.LabelEffect1.Ctl3D := False;
    Result.LabelEffect1.Font.Color := clBlack;
    Result.LabelEffect1.Font.FontHeight := 16;
    Result.LabelEffect1.Font.FontName := 'Comic Sans MS';
    Result.LabelEffect1.TextAlign := taLeft;
    Result.LabelEffect1.Color := $F0CAA6;
        Result.LabelEffect1.Color2 := clBlack;
    // Result.LabelEffect6.TabOrder = -1
        Result.LabelEffect6 := NewLabelEffect( Result.GradientPanel5, 'N8VBvCOM Driver', 1 ).SetPosition( 22, 2 ).AutoSize( TRUE );
   {$IFDEF USE_NAMES}
        Result.LabelEffect6.Name := 'LabelEffect6';
💿 文件大小 433 K
👤 上传用户 angela5683
📂 所属分类驱动编程
🏷️ 相关标签

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

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