jvcl driver development envionment

源代码在线查看: fballs.dfm

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

相关代码

				object fBouncingBalls: TfBouncingBalls
				  Left = 339
				  Top = 149
				  Width = 500
				  Height = 518
				  Caption = 'Bouncing Balls'
				  Color = clBtnFace
				  DefaultMonitor = dmDesktop
				  Font.Charset = DEFAULT_CHARSET
				  Font.Color = clWindowText
				  Font.Height = -11
				  Font.Name = 'MS Sans Serif'
				  Font.Style = []
				  OldCreateOrder = False
				  Position = poDesktopCenter
				  Scaled = False
				  OnClose = FormClose
				  OnCreate = FormCreate
				  OnDestroy = FormDestroy
				  PixelsPerInch = 96
				  TextHeight = 13
				  object Button1: TButton
				    Left = 8
				    Top = 16
				    Width = 75
				    Height = 25
				    Caption = '&Run'
				    TabOrder = 0
				    OnClick = Button1Click
				  end
				  object Memo1: TMemo
				    Left = 96
				    Top = 8
				    Width = 384
				    Height = 190
				    TabStop = False
				    Anchors = [akLeft, akTop, akRight]
				    Lines.Strings = (
				      'Welcome to the Managed Threads demonstration'
				      ''
				      
				        'The red zone represents a counting section. Only three balls are' +
				        ' alowed inside '
				      
				        'this section. Press Run to add a ball, press Terminate to remove' +
				        ' the balls.'
				      ''
				      '')
				    ReadOnly = True
				    TabOrder = 1
				  end
				  object ScrollBox: TScrollBox
				    Left = 96
				    Top = 208
				    Width = 384
				    Height = 273
				    Anchors = [akLeft, akTop, akRight, akBottom]
				    TabOrder = 2
				    object CritShape: TShape
				      Left = 72
				      Top = 64
				      Width = 217
				      Height = 145
				      Brush.Color = clRed
				      Shape = stEllipse
				    end
				  end
				  object Button2: TButton
				    Left = 8
				    Top = 56
				    Width = 75
				    Height = 25
				    Caption = '&Terminate'
				    TabOrder = 3
				    OnClick = Button2Click
				  end
				  object ThreadManager: TJvMTManager
				    Left = 120
				    Top = 112
				  end
				  object BallThread: TJvMTThread
				    Manager = ThreadManager
				    RunOnCreate = False
				    OnExecute = BallThreadExecute
				    OnFinished = BallThreadFinished
				    Left = 120
				    Top = 144
				  end
				  object Buffer: TJvMTThreadToVCL
				    OnCanRead = JvMtThreadToVCL1CanRead
				    Left = 160
				    Top = 144
				  end
				  object Section: TJvMTCountingSection
				    MaxCount = 3
				    Left = 264
				    Top = 328
				  end
				end
							

相关资源