Add(MainForm,10448990,21,105)
{
 Left=20
 Top=105
 Width=806
 Height=596
 Position=1
}
Add(Message,7997923,294,189)
{
 Message="Файл не является базой данных!"
 Caption="Ошибка"
 Icon=5
}
Add(ChildGroupBox,16514163,245,294)
{
 link(onEvent1,2776348:doConvert,[])
 link(onEvent2,9171595:doWork1,[(401,307)(401,349)])
 link(Data1,985794:Data1,[(251,282)(244,282)])
}
BEGIN_SDK
  Add(EditMulti,9042703,3,3)
  {
   EventCount=2
   WorkCount=4
   DataCount=1
   VarCount=1
   Height=417
   link(doWork1,2418463:doWork2,[(40,9)(40,90)])
   link(doWork2,3362403:doEvent2,[(50,16)(50,97)])
   link(doWork3,1914734:doWork2,[(75,23)(75,111)])
   link(doWork4,3863482:doWork1,[(130,30)])
   link(Var1,10465963:Data2,[(9,240)(188,240)])
  }
  Add(GroupBox,3258583,35,161)
  {
   Left=10
   Top=60
   Width=335
   Height=470
   Caption=" CПИСОК ДИСКОВ "
   Point(doVisible)
  }
  Add(ListBox,14140593,168,119)
  {
   Left=10
   Top=20
   Width=315
   Height=420
   Font=[MS Sans Serif,10,0,0,1]
   Point(String)
   Point(onMouseDown)
   link(onClick,1866294:doString,[])
  }
  Add(SQLite_Query,2201615,49,112)
  {
   SQL="SELECT naim FROM CD;"
   link(onQuery,3863482:doWork2,[(103,118)(103,125)])
   link(dbHandle,6899018:Data1,[(55,86)(83,86)])
  }
  Add(Hub,3362403,98,84)
  {
   InCount=2
   link(onEvent1,1914734:doWork1,[(151,90)])
   link(onEvent2,2201615:doQuery,[(140,97)(140,74)(32,74)(32,118)])
  }
  Add(SQLite_Query,13868761,266,126)
  {
   link(onQuery,9042703:onEvent1,[(300,132)(300,9)])
   link(dbHandle,6899018:Data2,[(272,93)(90,93)])
  }
  Add(GetData,6899018,77,28)
  {
   Count=3
   link(Data,9042703:Data1,[(83,16)(9,16)])
  }
  Add(FormatStr,1866294,203,126)
  {
   Mask="SELECT hex(img) FROM CD WHERE naim="%1""
   link(onFString,13868761:doQuery,[])
   link(Str1,10465963:Data1,[(209,116)(165,116)(165,238)(181,238)])
  }
  Add(GetData,10465963,175,196)
  {
   link(Data,14140593:String,[(181,180)(195,180)])
  }
  Add(Button,1428332,21,343)
  {
   Left=10
   Top=445
   Width=60
   Caption="Найти"
   link(onClick,9042703:onEvent2,[(178,349)(178,16)])
  }
  Add(Button,3274655,224,343)
  {
   Left=80
   Top=445
   Width=245
   Caption="Построить весь список"
   link(onClick,2418463:doWork3,[(261,349)(261,194)(81,194)])
  }
  Add(HubEx,2418463,77,84)
  {
   link(onEvent,3362403:doEvent1,[])
  }
  Add(HubEx,1914734,147,105)
  {
   Angle=1
   link(onEvent,14140593:doClear,[(151,132)])
  }
  Add(HubEx,3863482,126,119)
  {
   link(onEvent,14140593:doAdd,[])
  }
END_SDK
Add(ChildGroupBox,15433318,336,294)
{
 link(onEvent1,13453552:doWork1,[])
}
BEGIN_SDK
  Add(EditMulti,11921412,3,3)
  {
   EventCount=1
   WorkCount=1
   VarCount=1
   Width=363
   link(doWork1,6357221:doEvent1,[(33,9)(33,34)])
   link(Var1,11242846:ImageBitmap,[(9,125)(181,125)])
  }
  Add(GroupBox,8425838,35,105)
  {
   Left=350
   Top=60
   Width=440
   Height=470
   Caption="ИЗОБРАЖЕНИЕ ЭТИКЕТКИ ДИСКА "
   Point(doVisible)
  }
  Add(Image,11242846,175,14)
  {
   Left=7
   Top=20
   Width=421
   Height=443
   Point(onDblClick)
   link(onClick,11921412:onEvent1,[(287,20)(287,9)])
  }
  Add(Hub,6357221,63,28)
  {
   link(onEvent1,8468230:doLoadFromStream,[])
   link(onEvent2,8468230:doBitmap,[])
  }
  Add(Jpeg,8468230,119,14)
  {
   Quality=95
   Point(Stream)
   Point(doLoadFromStream)
   Point(doBitmap)
   link(onBitmap,11242846:doLoad,[])
  }
END_SDK
Add(Menu,470225,280,56)
{
 Menu=#4:База|1:(|12:Открыть базу|1:)|6:Правка|1:(|13:Добавить диск|23:Изменить название диска|35:Изменить изображение этикетки диска|12:Удалить диск|1:)|6:Сервис|1:(|10:Сжать базу|1:)|
 Point(onSelectNum)
 link(onSelectNum,8592578:doEvent,[])
}
Add(IndexToChanel,8592578,343,63)
{
 Count=9
 link(onEvent2,2720655:doWork2,[(399,76)])
 link(onEvent4,30931:doWork1,[(397,90)(397,153)])
 link(onEvent5,13287633:doWork1,[(446,97)(446,188)])
 link(onEvent6,8585765:doWork1,[(447,104)(447,251)])
 link(onEvent7,9289038:doWork1,[(447,111)(447,300)])
 link(onEvent9,15889583:doQuery,[(394,125)(394,202)])
}
Add(ODialog,3414508,441,91)
{
 Filter="База данных CD|*.cdb"
 Title="Открытие базы"
 StartDir=""
 FileName=""
 link(onExecute,2832838:doWork1,[(483,97)(483,128)(228,128)(228,146)])
}
Add(ChildGroupBox,2832838,238,140)
{
 link(onEvent1,2720655:doWork3,[(403,146)])
 link(onEvent2,816001:doOpen,[(280,153)(280,177)(229,177)(229,188)])
}
BEGIN_SDK
  Add(EditMulti,9161923,3,3)
  {
   EventCount=2
   WorkCount=1
   VarCount=1
   Width=181
   Height=116
   link(doWork1,7580017:doText,[(22,9)(22,20)])
   link(Var1,7580017:Text,[(9,83)(48,83)])
  }
  Add(GroupBox,5644296,42,63)
  {
   Left=10
   Top=10
   Width=780
   Caption=" ТЕКУЩАЯ БАЗА "
   Point(doVisible)
  }
  Add(Edit,7580017,42,14)
  {
   Left=10
   Top=20
   Width=660
   Text=""
   link(onChange,9161923:onEvent2,[(129,20)(129,16)])
  }
  Add(Button,5132938,133,21)
  {
   Left=685
   Top=20
   Width=85
   Caption="ОК"
   link(onClick,9161923:onEvent1,[(174,27)(174,9)])
  }
END_SDK
Add(HubEx,2720655,399,91)
{
 link(onEvent,3414508:doExecute,[])
}
Add(ChildForm,30931,413,147)
{
 @Hint=#14:Дочерняя форма|
 link(onEvent1,1124253:doWork2,[(231,153)])
 link(Data1,985794:Data2,[(419,137)(342,137)(342,280)(251,280)])
}
BEGIN_SDK
  Add(EditMulti,49448,3,3)
  {
   EventCount=1
   WorkCount=1
   DataCount=1
   Width=759
   Height=367
   link(doWork1,74041:doVisible,[(30,9)(30,59)])
  }
  Add(MainForm,74041,55,25)
  {
   Left=593
   Top=130
   Width=426
   Height=179
   Visible=1
   Caption="Добавить диск"
   BorderStyle=3
   TaskBar=1
   Position=1
   Point(doVisible)
  }
  Add(Label,13839587,231,14)
  {
   Left=10
   Top=10
   Width=90
   Height=17
   Caption="Название диска:"
  }
  Add(Edit,3368732,231,56)
  {
   Left=10
   Top=30
   Width=390
   Text=""
  }
  Add(Label,4943214,231,98)
  {
   Left=10
   Top=55
   Width=159
   Height=17
   Caption="Изображение этикетки диска:"
  }
  Add(Edit,10276107,231,147)
  {
   Left=10
   Top=75
   Width=370
   Text=""
  }
  Add(Button,9698098,280,147)
  {
   Left=380
   Top=75
   Width=20
   Caption="..."
   link(onClick,3392089:doExecute,[])
  }
  Add(ODialog,3392089,322,147)
  {
   Filter="Файлы *.jpg|*.jpg"
   Title="Выбор изображения"
   StartDir=""
   FileName=""
   link(onExecute,16295193:doValue,[])
  }
  Add(Stream2Hex,13361357,498,259)
  {
   link(onResult,14414580:doString,[])
  }
  Add(Hub,15215390,400,259)
  {
   link(onEvent1,11349030:doOpen,[])
   link(onEvent2,11349030:doClose,[])
  }
  Add(FileStream,11349030,449,259)
  {
   link(onLoad,13361357:doConvert,[])
  }
  Add(SQLite_Exec,11016115,645,259)
  {
   link(dbHandle,49448:Data1,[(651,131)(9,131)])
  }
  Add(FormatStr,14414580,568,259)
  {
   Mask="INSERT INTO CD (naim, img) VALUES ("%2",x'%1');\n\r"
   link(onFString,11016115:doExec,[])
   link(Str2,3368732:Text,[(581,174)(237,174)])
  }
  Add(Button,1280555,217,259)
  {
   Left=330
   Top=105
   Width=65
   Caption="Добавить"
   link(onClick,13569349:doData,[])
  }
  Add(Hub,11407057,316,259)
  {
   OutCount=4
   link(onEvent1,15215390:doEvent1,[])
   link(onEvent2,49448:onEvent1,[(555,272)(555,9)])
   link(onEvent3,10794419:doData,[(358,279)(358,219)(39,219)(39,153)])
   link(onEvent4,74041:doClose,[(358,286)(358,165)(45,165)(45,52)])
  }
  Add(Memory,16295193,371,147)
  {
   link(onData,6114095:doWork3,[(221,153)])
  }
  Add(DoData,13569349,273,259)
  {
   link(onEventData,11407057:doEvent1,[])
   link(Data,16295193:Value,[(279,219)(377,219)])
  }
  Add(Hub,3640753,98,147)
  {
   link(onEvent1,3368732:doText,[(180,153)(180,62)])
   link(onEvent2,6114095:doWork2,[(217,160)])
  }
  Add(DoData,10794419,49,147)
  {
   link(onEventData,3640753:doEvent1,[])
  }
  Add(HubEx,6114095,217,140)
  {
   link(onEvent,10276107:doText,[(228,146)(228,153)])
  }
END_SDK
Add(SQLite_DB,816001,239,182)
{
 FileName="Base.db"
 link(onOpen,4514911:doWork1,[(228,188)])
 link(onError,7997923:doMessage,[])
 link(FileName,2832838:Var1,[(245,177)(244,177)])
}
Add(Stream2Hex,2776348,288,294)
{
 Mode=1
 link(onResult,15433318:doWork1,[])
}
Add(GetData,985794,238,238)
{
 Count=7
 link(Data,816001:dbHandle,[(244,226)(245,226)])
}
Add(SQLite_Query,15889583,413,196)
{
 SQL="vacuum;"
 link(dbHandle,985794:Data3,[(419,179)(338,179)(338,280)(258,280)])
}
Add(StyleXP,6526915,21,63)
{
}
Add(ChildForm,13287633,518,182)
{
 @Hint=#14:Дочерняя форма|
 link(onEvent1,15720827:doWork2,[])
 link(Data1,985794:Data4,[(524,172)(373,172)(373,280)(265,280)])
 link(Data2,1589471:Data1,[(531,170)(387,170)(387,387)(244,387)])
}
BEGIN_SDK
  Add(EditMulti,49448,3,3)
  {
   EventCount=1
   WorkCount=1
   DataCount=2
   Width=759
   Height=367
   link(doWork1,4011968:doEvent1,[(12,9)(12,90)])
  }
  Add(MainForm,74041,76,25)
  {
   Left=593
   Top=130
   Width=426
   Height=163
   Visible=1
   Caption="Изменить диск"
   BorderStyle=3
   TaskBar=1
   Position=1
   Point(doVisible)
  }
  Add(Label,13839587,231,14)
  {
   Left=10
   Top=50
   Width=123
   Height=17
   Caption="Новое название диска:"
  }
  Add(Edit,3368732,231,56)
  {
   Left=10
   Top=70
   Width=390
   Text=""
  }
  Add(Hub,4011968,21,84)
  {
   OutCount=4
   link(onEvent1,2144490:doClear,[(173,90)(173,27)])
   link(onEvent2,2201615:doQuery,[(86,97)(86,20)])
   link(onEvent3,15398467:doData,[(93,104)(93,111)])
   link(onEvent4,74041:doVisible,[(64,111)(64,59)])
  }
  Add(GetData,14595229,7,28)
  {
   link(Data,49448:Data1,[(13,16)(9,16)])
  }
  Add(SQLite_Query,2201615,119,14)
  {
   SQL="SELECT naim FROM CD;"
   link(onQuery,2144490:doAdd,[])
   link(dbHandle,14595229:Data1,[(125,4)(79,4)(79,70)(13,70)])
  }
  Add(Label,10045604,175,14)
  {
   Left=10
   Top=5
   Width=94
   Height=17
   Caption="Старое название:"
  }
  Add(FormatStr,14414580,309,259)
  {
   Mask="UPDATE CD SET naim="%2" WHERE naim="%1";\n\r"
   link(onFString,5524470:doQuery,[])
   link(Str1,2144490:String,[(315,159)(314,159)])
   link(Str2,3368732:Text,[(322,174)(237,174)])
  }
  Add(ComboBox,2144490,294,14)
  {
   Left=10
   Top=25
   Width=390
   Height=21
   Point(doSelectString)
  }
  Add(Button,1280555,147,259)
  {
   Left=335
   Top=100
   Width=65
   Caption="Изменить"
   link(onClick,1204508:doEvent1,[(191,265)(191,265)])
  }
  Add(SQLite_Query,5524470,364,259)
  {
   link(onError,10287646:doMessage,[(422,279)(422,293)])
   link(dbHandle,14595229:Data2,[(370,160)(20,160)])
  }
  Add(Hub,1204508,203,259)
  {
   OutCount=4
   link(onEvent1,14414580:doString,[])
   link(onEvent2,49448:onEvent1,[(498,272)(498,9)])
   link(onEvent3,3368732:doText,[(245,279)(245,174)(221,174)(221,62)])
   link(onEvent4,74041:doClose,[(245,286)(245,165)(66,165)(66,52)])
  }
  Add(Message,10287646,448,287)
  {
  }
  Add(DoData,15398467,133,105)
  {
   link(onEventData,2144490:doSelectString,[(229,111)(229,62)])
   link(Data,49448:Data2,[(139,54)(16,54)])
  }
END_SDK
Add(HubEx,4514911,224,273)
{
 link(onEvent,1124253:doWork1,[(235,279)])
}
Add(HubEx,1124253,231,287)
{
 link(onEvent,16514163:doWork1,[(250,293)(250,270)(228,270)(228,300)])
}
Add(ChildForm,8585765,518,245)
{
 @Hint=#14:Дочерняя форма|
 link(Data1,985794:Data5,[(524,233)(398,233)(398,282)(272,282)])
 link(Data2,1589471:Data2,[(531,233)(391,233)(391,387)(251,387)])
}
BEGIN_SDK
  Add(EditMulti,49448,3,3)
  {
   EventCount=1
   WorkCount=1
   DataCount=2
   Width=759
   Height=367
   link(doWork1,4011968:doEvent1,[(12,9)(12,90)])
  }
  Add(MainForm,74041,76,25)
  {
   Left=593
   Top=130
   Width=426
   Height=163
   Visible=1
   Caption="Изменить изображение этикетки диска"
   BorderStyle=3
   TaskBar=1
   Position=1
   Point(doVisible)
  }
  Add(Label,13839587,231,14)
  {
   Left=10
   Top=50
   Width=192
   Height=17
   Caption="Новое изображение этикетки диска:"
  }
  Add(DoData,15398467,133,105)
  {
   link(onEventData,2144490:doSelectString,[(229,111)(229,62)])
   link(Data,49448:Data2,[(139,54)(16,54)])
  }
  Add(Hub,4011968,21,84)
  {
   OutCount=4
   link(onEvent1,2144490:doClear,[(173,90)(173,27)])
   link(onEvent2,2201615:doQuery,[(86,97)(86,20)])
   link(onEvent3,15398467:doData,[(93,104)(93,111)])
   link(onEvent4,74041:doVisible,[(64,111)(64,59)])
  }
  Add(GetData,14595229,7,28)
  {
   link(Data,49448:Data1,[(13,16)(9,16)])
  }
  Add(SQLite_Query,2201615,119,14)
  {
   SQL="SELECT naim FROM CD;"
   link(onQuery,2144490:doAdd,[])
   link(dbHandle,14595229:Data1,[(125,4)(79,4)(79,70)(13,70)])
  }
  Add(Label,10045604,175,14)
  {
   Left=10
   Top=5
   Width=94
   Height=17
   Caption="Название диска:"
  }
  Add(DoData,13569349,196,315)
  {
   link(onEventData,11407057:doEvent1,[])
   link(Data,1332807:Text,[(202,229)(412,229)])
  }
  Add(ComboBox,2144490,294,14)
  {
   Left=10
   Top=25
   Width=390
   Height=21
   Point(doSelectString)
  }
  Add(Hub,11407057,260,315)
  {
   OutCount=3
   link(onEvent1,15215390:doEvent1,[])
   link(onEvent2,450691:doData,[(310,328)(310,272)])
   link(onEvent3,74041:doClose,[(304,335)(304,193)(64,193)(64,52)])
  }
  Add(Button,4510120,140,315)
  {
   Left=330
   Top=105
   Width=65
   Caption="Изменить"
   link(onClick,13569349:doData,[])
  }
  Add(FormatStr,16267480,491,315)
  {
   Mask="UPDATE CD SET img=x'%1'  WHERE naim="%2";\n\r\n\r"
   link(onFString,11016115:doExec,[])
   link(Str2,2144490:String,[(504,191)(314,191)])
  }
  Add(SQLite_Exec,11016115,568,315)
  {
   link(onError,12021303:doMessage,[])
   link(dbHandle,14595229:Data2,[(574,187)(20,187)])
  }
  Add(Edit,1332807,406,112)
  {
   Left=10
   Top=70
   Width=370
   Text=""
  }
  Add(Button,1387043,245,112)
  {
   Left=380
   Top=70
   Width=20
   Caption="..."
   link(onClick,3392089:doExecute,[])
  }
  Add(ODialog,3392089,315,112)
  {
   Filter="Файлы *.jpg|*.jpg"
   Title="Выбор изображения"
   StartDir=""
   FileName=""
   link(onExecute,4274153:doWork2,[])
  }
  Add(Stream2Hex,13361357,421,315)
  {
   link(onResult,16267480:doString,[])
  }
  Add(Hub,15215390,323,315)
  {
   link(onEvent1,11349030:doOpen,[])
   link(onEvent2,11349030:doClose,[])
  }
  Add(FileStream,11349030,372,315)
  {
   link(onLoad,13361357:doConvert,[])
  }
  Add(Message,12021303,644,315)
  {
  }
  Add(DoData,450691,329,266)
  {
   link(onEventData,4274153:doWork3,[(382,272)])
  }
  Add(HubEx,4274153,378,112)
  {
   link(onEvent,1332807:doText,[])
  }
END_SDK
Add(GetData,1589471,238,343)
{
 Count=3
 link(Data,16514163:Var1,[(244,335)(251,335)])
}
Add(ChildForm,9289038,518,294)
{
 @Hint=#14:Дочерняя форма|
 link(onEvent1,15720827:doWork3,[(562,300)(562,246)(396,246)])
 link(Data1,985794:Data6,[(524,282)(279,282)])
 link(Data2,1589471:Data3,[(531,282)(398,282)(398,387)(258,387)])
}
BEGIN_SDK
  Add(EditMulti,49448,3,3)
  {
   EventCount=1
   WorkCount=1
   DataCount=2
   Width=759
   Height=367
   link(doWork1,4011968:doEvent1,[(12,9)(12,90)])
  }
  Add(MainForm,74041,76,25)
  {
   Left=593
   Top=130
   Width=426
   Height=120
   Visible=1
   Caption="Удалить диск"
   BorderStyle=3
   TaskBar=1
   Position=1
   Point(doVisible)
  }
  Add(SQLite_Exec,11016115,568,315)
  {
   link(dbHandle,14595229:Data2,[(574,187)(20,187)])
  }
  Add(DoData,15398467,133,105)
  {
   link(onEventData,2144490:doSelectString,[(229,111)(229,62)])
   link(Data,49448:Data2,[(139,54)(16,54)])
  }
  Add(Hub,4011968,21,84)
  {
   OutCount=4
   link(onEvent1,2144490:doClear,[(173,90)(173,27)])
   link(onEvent2,2201615:doQuery,[(86,97)(86,20)])
   link(onEvent3,15398467:doData,[(93,104)(93,111)])
   link(onEvent4,74041:doVisible,[(64,111)(64,59)])
  }
  Add(GetData,14595229,7,28)
  {
   link(Data,49448:Data1,[(13,16)(9,16)])
  }
  Add(SQLite_Query,2201615,119,14)
  {
   SQL="SELECT naim FROM CD;"
   link(onQuery,2144490:doAdd,[])
   link(dbHandle,14595229:Data1,[(125,4)(79,4)(79,70)(13,70)])
  }
  Add(Label,10045604,175,14)
  {
   Left=10
   Top=5
   Width=94
   Height=17
   Caption="Название диска:"
  }
  Add(DoData,13569349,329,315)
  {
   link(onEventData,11407057:doEvent1,[])
  }
  Add(ComboBox,2144490,294,14)
  {
   Left=10
   Top=25
   Width=390
   Height=21
   Point(doSelectString)
  }
  Add(Hub,11407057,407,315)
  {
   OutCount=3
   link(onEvent1,16267480:doString,[])
   link(onEvent2,49448:onEvent1,[(601,328)(601,9)])
   link(onEvent3,74041:doClose,[(451,335)(451,193)(64,193)(64,52)])
  }
  Add(Button,4510120,252,315)
  {
   Left=335
   Top=55
   Width=65
   Caption="Удалить"
   link(onClick,13569349:doData,[])
  }
  Add(FormatStr,16267480,491,315)
  {
   Mask="DELETE FROM CD WHERE naim ="%1";\n\r\n\r"
   link(onFString,11016115:doExec,[])
   link(Str1,2144490:String,[(497,191)(314,191)])
  }
END_SDK
Add(HubEx,15720827,392,182)
{
 Angle=2
 link(onEvent,4514911:doWork2,[(212,188)(212,279)])
}
Add(ChildForm,9171595,518,343)
{
 @Hint=#14:Дочерняя форма|
 link(onEvent1,16514163:doWork3,[(562,349)(562,331)(233,331)(233,314)])
 link(onEvent2,16514163:doWork4,[(562,356)(562,338)(233,338)(233,321)])
 link(Data1,985794:Data7,[(524,307)(286,307)])
}
BEGIN_SDK
  Add(EditMulti,49448,3,3)
  {
   EventCount=2
   WorkCount=1
   DataCount=2
   Width=759
   Height=367
   link(doWork1,74041:doVisible,[(39,9)(39,59)])
  }
  Add(MainForm,74041,76,25)
  {
   Left=593
   Top=130
   Width=419
   Height=120
   Visible=1
   Caption="Поиск диска"
   BorderStyle=3
   TaskBar=1
   Position=1
   Point(doVisible)
  }
  Add(StrCase,6492101,231,63)
  {
   Type=1
   link(onModify,8857858:doValue,[])
   link(Str,11711480:Text,[])
  }
  Add(Button,4510120,63,133)
  {
   Left=335
   Top=55
   Width=65
   Caption="Найти"
   link(onClick,14741254:doEvent1,[])
  }
  Add(GetDataEx,1084286,168,102)
  {
   link(Data,49448:Data1,[(174,52)(9,52)])
  }
  Add(FormatStr,7844828,231,112)
  {
   Mask="SELECT naim FROM CD WHERE upper(naim) LIKE '%^%1%'"
   link(onFString,11219612:doReplace,[])
   link(Str1,8857858:Value,[(237,104)(384,104)])
  }
  Add(Edit,11711480,231,14)
  {
   Left=10
   Top=25
   Width=390
   Text=""
  }
  Add(Label,10045604,175,14)
  {
   Left=10
   Top=5
   Width=94
   Height=17
   Caption="Название диска:"
  }
  Add(InlineCode,11222037,189,126)
  {
   WorkPoints=#11:addFunction|
   DataPoints=#8:dbHandle|
   Code=#15:unit HiAsmUnit;|0:|9:interface|0:|52:uses kol,Share,Debug,Windows,SQLite3Api,hiSQLite_DB;|0:|4:type|28: THiAsmClass = class(TDebug)|9:   public|22:   dbHandle:THI_Event;|52:   procedure addFunction(var _Data:TData; idx:word);|5: end;|0:|14:implementation|0:|65:procedure myFunc(ctx:pointer; nArg:integer; args:ppvalue); cdecl;|13:var s:string;|5:begin|31:  s:=sqlite3_value_text(args^);|33:  CharUpperBuff(@s[1],Length(s));|48:  sqlite3_result_text(ctx,PChar(s),Length(s),0);|4:end;|0:|34:procedure THiAsmClass.addFunction;|13:var dt:TData;|5:begin|37:  dt := ReadData(_Data,dbHandle,nil);|41:  if _IsObject(dt,SQLite_GUID) then begin|90:    sqlite3_create_function(ToObject(dt),PChar('UPPER'),1,SQLITE_ANY,nil,@myFunc,nil,nil);|6:  end;|4:end;|0:|4:end.|
   link(dbHandle,1084286:Var2,[(195,115)(174,115)])
  }
  Add(Hub,14741254,105,133)
  {
   OutCount=9
   link(onEvent1,6492101:doModify,[(184,139)(184,69)])
   link(onEvent2,7844828:doString,[(184,146)(184,118)])
   link(onEvent3,49448:onEvent1,[(449,153)(449,9)])
   link(onEvent4,11222037:addFunction,[(163,160)(163,132)])
   link(onEvent5,15010514:doQuery,[(153,167)(153,188)])
   link(onEvent6,8857858:doClear,[(257,174)(257,76)])
   link(onEvent7,11211712:doClear,[(251,181)(251,125)])
   link(onEvent8,11711480:doText,[(184,188)(184,20)])
   link(onEvent9,74041:doClose,[(149,195)(149,123)(64,123)(64,52)])
  }
  Add(SQLite_Query,15010514,168,182)
  {
   link(onQuery,49448:onEvent2,[(481,188)(481,16)])
   link(dbHandle,1084286:Var1,[(174,144)(157,144)(157,107)])
   link(SQL,11211712:Value,[(181,163)(370,163)])
  }
  Add(Memory,11211712,364,112)
  {
  }
  Add(Memory,8857858,378,63)
  {
  }
  Add(Replace,11219612,273,112)
  {
   SubStr="^"
   link(onReplace,11211712:doValue,[])
  }
END_SDK
Add(ChildForm,13453552,413,294)
{
 @Hint=#14:Дочерняя форма|
 link(Data1,15433318:Var1,[(419,282)(381,282)(381,338)(342,338)])
}
BEGIN_SDK
  Add(EditMulti,49448,3,3)
  {
   WorkCount=1
   DataCount=1
   Width=234
   Height=185
   link(doWork1,15900668:doEvent1,[(9,9)(9,69)])
  }
  Add(MainForm,7215087,153,25)
  {
   Left=593
   Top=130
   Width=754
   Height=527
   Visible=1
   Caption="Изменить диск"
   BorderStyle=1
   WindowsState=2
   TaskBar=1
   Position=1
   Point(doVisible)
  }
  Add(Image,14388221,133,84)
  {
   Width=748
   Height=495
   Align=5
   AutoSize=0
  }
  Add(Hub,15900668,21,63)
  {
   link(onEvent1,7215087:doVisible,[(103,69)(103,59)])
   link(onEvent2,16108699:doData,[(65,76)(65,90)])
  }
  Add(DoData,16108699,77,84)
  {
   link(onEventData,14388221:doLoad,[])
   link(Data,49448:Data1,[(83,44)(9,44)])
  }
END_SDK