Question CT LAB ver 7.00

object SnippetsMainFrm: TSnippetsMainFrm
<<<<<<< HEAD
  Left = 315
  Height = 581
  Top = 56
=======
  Left = 352
  Height = 581
  Top = 100
>>>>>>> 747aae165a283c89228d908bb5cbe9c7cd942bda
  Width = 987
  HorzScrollBar.Page = 824
  VertScrollBar.Page = 160
  AutoScroll = True
  Caption = 'Code Librarian'
  ClientHeight = 561
  ClientWidth = 987
  Menu = mnuMain
  OnClose = FormClose
<<<<<<< HEAD
  LCLVersion = '1.4.4.0'
=======
  LCLVersion = '1.4.0.4'
>>>>>>> 747aae165a283c89228d908bb5cbe9c7cd942bda

<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
  <ProjectSession>
    <PathDelim Value="\"/>
    <Version Value="9"/>
    <BuildModes Active="Debug"/>
<<<<<<< HEAD
    <Units Count="12">
      <Unit0>
        <Filename Value="CodeLibrarian.lpr"/>
        <IsPartOfProject Value="True"/>
        <EditorIndex Value="-1"/>
        <CursorPos Y="16"/>
        <UsageCount Value="237"/>
=======
    <Units Count="13">
      <Unit0>
        <Filename Value="CodeLibrarian.lpr"/>
        <IsPartOfProject Value="True"/>
        <EditorIndex Value="3"/>
        <CursorPos Y="16"/>
        <UsageCount Value="237"/>
        <Loaded Value="True"/>
>>>>>>> 747aae165a283c89228d908bb5cbe9c7cd942bda
      </Unit0>
      <Unit1>
        <Filename Value="umainform.pas"/>
        <IsPartOfProject Value="True"/>
        <ComponentName Value="SnippetsMainFrm"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="uMainForm"/>
        <IsVisibleTab Value="True"/>
<<<<<<< HEAD

        vToLib.CreateFolder(vNewFolder);
<<<<<<< HEAD
        CopyAttributes(vNewFolder, InclPathDel(aSourceFolder) + vFolders[vCnt]);
=======
        CopyAttributes(vNewFolder, vNewFolder);
>>>>>>> 747aae165a283c89228d908bb5cbe9c7cd942bda
        ImportFolder(aSourceFolder + vFolders[vCnt] +cDelim, vNewFolder);
      end;

<<<<<<< HEAD
    if vToLib.FolderExists(aRootFolder) then //need to change this bhavior the root folder will act only as a host it makes no sense to have a non existing host.
=======
    if vToLib.FolderExists(aRootFolder) then
>>>>>>> 747aae165a283c89228d908bb5cbe9c7cd942bda
      raise Exception.CreateFmt('Folder %S already exists in the library',[aRootFolder]);
    ImportFolder('/', aRootFolder);
    LoadCodeLib;
  finally

fRange := TRangeState(PtrInt(Value));  //=== cr9999 ==== 

Result := Pointer(PtrInt(fRange));    //=== cr9999 ====