<БрОдЯгА> писал(а): А возможно ли сделать так что бы редактировать этот фай, и сохранять
Вот, самый простенький вариант. Дальше сам
Add(MainForm,26194,315,175) { Width=793 Height=505 Caption="lg3 Editor" Position=1 } Add(Button,2503196,266,231) { Left=320 Top=440 Width=70 TabOrder=-1 Caption="Load" link(onClick,8413210:doExecute,[]) } Add(StringTable,3816494,679,231) { Left=5 Top=10 Width=765 Height=425 Columns=#7:AID=140|5:E=300|5:R=300| Redaction=1 Flat=1 Point(doSetFocus) Point(doSelect) Point(doEnsureVisible) } Add(ODialog,8413210,315,231) { Filter="Файлы *.lg3|*.lg3" link(onExecute,6087563:doValue,[]) } Add(SQLite_DB,7522574,469,231) { link(onOpen,9333371:doQuery,[]) link(FileName,11455722:Var2,[]) } Add(Hub,3190900,434,224) { InCount=2 OutCount=3 link(onEvent1,3816494:doClear,[(663,230)(663,244)]) link(onEvent2,7522574:doOpen,[]) link(onEvent3,7522574:doClose,[]) } Add(MT_String,13372068,567,231) { link(onResult,12755783:doCharset,[]) } Add(SQLite_Query,9333371,518,231) { SQL="Select AID,E,R From LRG" link(onQuery,13372068:doStr,[]) } Add(Charset,12755783,616,231) { Type=7 link(onCharset,3816494:doAdd,[]) } Add(Memory,6087563,364,231) { link(onData,3190900:doEvent2,[]) } Add(ChildForm,12962996,735,308) { link(onEvent1,3190900:doEvent1,[(781,314)(781,183)(423,183)(423,230)]) link(Data1,11455722:Var3,[(741,201)]) } BEGIN_SDK Add(EditMulti,14150995,21,21) { EventCount=1 WorkCount=1 DataCount=1 Width=552 Height=326 link(doWork1,6392207:doCase,[(35,27)(35,83)]) } Add(MainForm,1514325,329,280) { Left=35 Top=105 Width=767 Height=100 Visible=1 Caption="Edit Row" Position=1 Point(doVisible) Point(doShowModal) } Add(Edit,14978099,406,84) { Left=145 Top=10 Width=300 WinStyle=2 Text="" } Add(Edit,10306787,413,126) { Left=445 Top=10 Width=300 WinStyle=2 Text="" } Add(Edit,16422999,399,42) { Left=5 Top=10 Width=140 WinStyle=2 Text="" ReadOnly=0 } Add(MultiStrData,9953708,329,77) { Count=3 link(onPart1,16422999:doText,[(380,83)(380,48)]) link(onPart2,14978099:doText,[]) link(onPart3,10306787:doText,[(380,97)(380,132)]) } Add(Button,15329465,112,196) { Left=310 Top=35 Width=70 TabOrder=-1 Caption="Save" link(onClick,1410426:doMessage,[]) } Add(Button,7706093,161,301) { Left=380 Top=35 Width=70 TabOrder=-1 Caption="Cancel" Data=Integer(0) link(onClick,8669496:doWork2,[]) } Add(SQLite_DB,11106742,329,203) { link(onOpen,11144306:doString,[]) link(FileName,14150995:Data1,[(335,112)(27,112)]) } Add(Message,1410426,161,196) { Message="Сохранить изменения в базе?" Type=1 Point(onOK) Point(onCANCEL) link(onOK,5028860:doEvent1,[]) link(onCANCEL,8669496:doWork1,[(214,216)]) } Add(FormatStr,11144306,399,203) { DataCount=3 Mask="UPDATE LRG SET E = '%2', R = '%3' WHERE AID = %1" link(onFString,5454128:doCharset,[]) link(Str1,16422999:Text,[]) link(Str2,14978099:Text,[]) link(Str3,10306787:Text,[]) } Add(Hub,5028860,231,203) { OutCount=4 link(onEvent1,11106742:doOpen,[]) link(onEvent2,11106742:doClose,[]) link(onEvent3,14150995:onEvent1,[(542,223)(542,27)]) link(onEvent4,8702657:doWork1,[(305,230)]) } Add(Charset,5454128,448,203) { Type=6 link(onCharset,13699276:doExec,[]) } Add(SQLite_Exec,13699276,497,203) { link(dbHandle,11106742:dbHandle,[(503,191)(438,191)(438,249)(335,249)]) } Add(Hub,14907356,98,77) { link(onEvent1,9953708:doSplit,[]) link(onEvent2,1514325:doShowModal,[(126,90)(126,321)]) } Add(HubEx,8702657,301,301) { link(onEvent,1514325:doClose,[]) } Add(Case,6392207,49,77) { Value=String(;;) link(onNextCase,14907356:doEvent1,[]) } Add(HubEx,8669496,210,301) { link(onEvent,8702657:doWork2,[]) } END_SDK Add(DoData,2533169,686,308) { link(onEventData,12962996:doWork1,[]) link(Data,3816494:Select,[]) } Add(GetDataEx,11455722,469,196) { Angle=3 link(Data,6087563:Value,[(412,201)(412,285)(370,285)]) } Add(Button,1708464,616,308) { Left=390 Top=440 Width=70 TabOrder=-1 Caption="Edit" link(onClick,2533169:doData,[]) }
Упрощать ничего не стал
|