demos/thread/Unit1.dfm

   1 object Form1: TForm1\r
   2   Left = 246\r
   3   Top = 107\r
   4   Width = 463\r
   5   Height = 269\r
   6   Caption = 'Form1'\r
   7   Color = clBtnFace\r
   8   Font.Charset = DEFAULT_CHARSET\r
   9   Font.Color = clWindowText\r
  10   Font.Height = -11\r
  11   Font.Name = 'MS Sans Serif'\r
  12   Font.Style = []\r
  13   OldCreateOrder = False\r
  14   PixelsPerInch = 96\r
  15   TextHeight = 13\r
  16   object Button1: TKOLButton\r
  17     Tag = 0\r
  18     Left = 16\r
  19     Top = 8\r
  20     Width = 201\r
  21     Height = 22\r
  22     TabOrder = 0\r
  23     PlaceDown = False\r
  24     PlaceRight = False\r
  25     PlaceUnder = False\r
  26     Visible = True\r
  27     Enabled = True\r
  28     DoubleBuffered = False\r
  29     Align = caNone\r
  30     CenterOnParent = False\r
  31     Caption = 'Resume Thread'\r
  32     Ctl3D = True\r
  33     Color = clBtnFace\r
  34     parentColor = False\r
  35     Font.Color = clWindowText\r
  36     Font.FontStyle = []\r
  37     Font.FontHeight = 0\r
  38     Font.FontWidth = 0\r
  39     Font.FontWeight = 0\r
  40     Font.FontName = 'MS Sans Serif'\r
  41     Font.FontOrientation = 0\r
  42     Font.FontCharset = 1\r
  43     Font.FontPitch = fpDefault\r
  44     parentFont = True\r
  45     OnClick = Button1Click\r
  46     EraseBackground = False\r
  47     TextAlign = taCenter\r
  48     VerticalAlign = vaCenter\r
  49     TabStop = True\r
  50     LikeSpeedButton = False\r
  51     autoSize = False\r
  52   end\r
  53   object Button2: TKOLButton\r
  54     Tag = 0\r
  55     Left = 16\r
  56     Top = 40\r
  57     Width = 201\r
  58     Height = 22\r
  59     TabOrder = 1\r
  60     PlaceDown = False\r
  61     PlaceRight = False\r
  62     PlaceUnder = False\r
  63     Visible = True\r
  64     Enabled = True\r
  65     DoubleBuffered = False\r
  66     Align = caNone\r
  67     CenterOnParent = False\r
  68     Caption = 'Suspend Thread'\r
  69     Ctl3D = True\r
  70     Color = clBtnFace\r
  71     parentColor = False\r
  72     Font.Color = clWindowText\r
  73     Font.FontStyle = []\r
  74     Font.FontHeight = 0\r
  75     Font.FontWidth = 0\r
  76     Font.FontWeight = 0\r
  77     Font.FontName = 'MS Sans Serif'\r
  78     Font.FontOrientation = 0\r
  79     Font.FontCharset = 1\r
  80     Font.FontPitch = fpDefault\r
  81     parentFont = True\r
  82     OnClick = Button2Click\r
  83     EraseBackground = False\r
  84     TextAlign = taCenter\r
  85     VerticalAlign = vaCenter\r
  86     TabStop = True\r
  87     LikeSpeedButton = False\r
  88     autoSize = False\r
  89   end\r
  90   object Memo1: TKOLMemo\r
  91     Tag = 0\r
  92     Left = 240\r
  93     Top = 8\r
  94     Width = 200\r
  95     Height = 222\r
  96     TabOrder = 3\r
  97     PlaceDown = False\r
  98     PlaceRight = False\r
  99     PlaceUnder = False\r
 100     Visible = True\r
 101     Enabled = True\r
 102     DoubleBuffered = False\r
 103     Align = caNone\r
 104     CenterOnParent = False\r
 105     Ctl3D = True\r
 106     Color = clWindow\r
 107     parentColor = False\r
 108     Font.Color = clWindowText\r
 109     Font.FontStyle = []\r
 110     Font.FontHeight = 0\r
 111     Font.FontWidth = 0\r
 112     Font.FontWeight = 0\r
 113     Font.FontName = 'MS Sans Serif'\r
 114     Font.FontOrientation = 0\r
 115     Font.FontCharset = 1\r
 116     Font.FontPitch = fpDefault\r
 117     parentFont = True\r
 118     EraseBackground = False\r
 119     Transparent = False\r
 120     Text.Strings = (\r
 121       \r
 122         'While thread is executing you can do something else. E.g., edit ' +\r
 123         'this text.')\r
 124     TextAlign = taLeft\r
 125     TabStop = True\r
 126     Options = [eo_NoHScroll]\r
 127     HasBorder = True\r
 128     EditTabChar = False\r
 129   end\r
 130   object Button3: TKOLButton\r
 131     Tag = 0\r
 132     Left = 16\r
 133     Top = 88\r
 134     Width = 201\r
 135     Height = 22\r
 136     TabOrder = 2\r
 137     PlaceDown = False\r
 138     PlaceRight = False\r
 139     PlaceUnder = False\r
 140     Visible = True\r
 141     Enabled = True\r
 142     DoubleBuffered = False\r
 143     Align = caNone\r
 144     CenterOnParent = False\r
 145     Caption = 'Terminate all NOW!'\r
 146     Ctl3D = True\r
 147     Color = clBtnFace\r
 148     parentColor = False\r
 149     Font.Color = clWindowText\r
 150     Font.FontStyle = []\r
 151     Font.FontHeight = 0\r
 152     Font.FontWidth = 0\r
 153     Font.FontWeight = 0\r
 154     Font.FontName = 'MS Sans Serif'\r
 155     Font.FontOrientation = 0\r
 156     Font.FontCharset = 1\r
 157     Font.FontPitch = fpDefault\r
 158     parentFont = True\r
 159     OnClick = Button3Click\r
 160     EraseBackground = False\r
 161     TextAlign = taCenter\r
 162     VerticalAlign = vaCenter\r
 163     TabStop = True\r
 164     LikeSpeedButton = False\r
 165     autoSize = False\r
 166   end\r
 167   object KOLProject1: TKOLProject\r
 168     Locked = False\r
 169     projectName = 'DemoThread'\r
 170     projectDest = 'DemoThread'\r
 171     sourcePath = 'E:\KOL\Demos\DemoThread\'\r
 172     outdcuPath = 'E:\KOL\Demos\DemoThread\'\r
 173     dprResource = False\r
 174     protectFiles = True\r
 175     showReport = False\r
 176     isKOLProject = True\r
 177     autoBuild = True\r
 178     autoBuildDelay = 500\r
 179     BUILD = False\r
 180     consoleOut = False\r
 181     SupportAnsiMnemonics = 0\r
 182     Left = 16\r
 183     Top = 168\r
 184   end\r
 185   object KOLForm1: TKOLForm\r
 186     Caption = 'Form1'\r
 187     Visible = True\r
 188     OnClose = KOLForm1Close\r
 189     Locked = False\r
 190     formUnit = 'Unit1'\r
 191     formMain = True\r
 192     Enabled = True\r
 193     Tabulate = True\r
 194     TabulateEx = False\r
 195     defaultSize = False\r
 196     defaultPosition = False\r
 197     HasBorder = True\r
 198     HasCaption = True\r
 199     StayOnTop = False\r
 200     CanResize = False\r
 201     CenterOnScreen = False\r
 202     Ctl3D = True\r
 203     WindowState = wsNormal\r
 204     minimizeIcon = True\r
 205     maximizeIcon = True\r
 206     closeIcon = True\r
 207     Color = clBtnFace\r
 208     Font.Color = clWindowText\r
 209     Font.FontStyle = []\r
 210     Font.FontHeight = 0\r
 211     Font.FontWidth = 0\r
 212     Font.FontWeight = 0\r
 213     Font.FontName = 'MS Sans Serif'\r
 214     Font.FontOrientation = 0\r
 215     Font.FontCharset = 1\r
 216     Font.FontPitch = fpDefault\r
 217     DoubleBuffered = False\r
 218     PreventResizeFlicks = False\r
 219     Transparent = False\r
 220     AlphaBlend = 255\r
 221     Border = 2\r
 222     MarginLeft = 0\r
 223     MarginRight = 0\r
 224     MarginTop = 0\r
 225     MarginBottom = 0\r
 226     MinimizeNormalAnimated = False\r
 227     zOrderChildren = False\r
 228     statusSizeGrip = True\r
 229     EraseBackground = False\r
 230     supportMnemonics = False\r
 231     Left = 96\r
 232     Top = 168\r
 233   end\r
 234   object Thread1: TKOLThread\r
 235     OnDestroy = Thread1Destroy\r
 236     PriorityClass = pcNormal\r
 237     ThreadPriority = tpNormal\r
 238     OnExecute = Thread1Execute\r
 239     OnSuspend = Thread1Suspend\r
 240     OnResume = Thread1Resume\r
 241     startSuspended = True\r
 242     AutoFree = False\r
 243     Left = 48\r
 244     Top = 104\r
 245   end\r
 246 end\r