Вверх ↑
Этот топик читают: Гость
Ответов: 4
Рейтинг: 0
#1: 2011-10-12 01:18:13 ЛС | профиль | цитата
Подскажите как можно открыть файл с расширением lg3 если можно пример пожалуйста.

http://files.mail.ru/RPLG0H
карма: 0

0
Разработчик
Ответов: 26305
Рейтинг: 2146
#2: 2011-10-12 02:06:09 ЛС | профиль | цитата
<БрОдЯгА> писал(а):
Подскажите как можно открыть файл с расширением lg3 если можно пример пожалуйста


code_25440.txt
карма: 22

0
файлы: 1code_25440.txt [954B] [215]
Ответов: 4
Рейтинг: 0
#3: 2011-10-12 14:52:44 ЛС | профиль | цитата
nesco, Спасибо, А возможно ли сделать так что бы редактировать этот фай, и сохранять

карма: 0

0
Ответов: 16884
Рейтинг: 1239
#4: 2011-10-12 15:00:37 ЛС | профиль | цитата
<БрОдЯгА> писал(а):
А возможно ли сделать так что бы редактировать этот фай, и сохранять
Возможно. И без никаких проблем.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26305
Рейтинг: 2146
#5: 2011-10-12 16:31:34 ЛС | профиль | цитата
<БрОдЯгА> писал(а):
А возможно ли сделать так что бы редактировать этот фай, и сохранять

Вот, самый простенький вариант. Дальше сам



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,[])
}


Упрощать ничего не стал
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#6: 2011-10-12 18:22:24 ЛС | профиль | цитата
nesco писал(а):
Упрощать ничего не стал
Иногда полезнее усложнить.
code_25444.txt
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_25444.txt [4.5KB] [147]
Разработчик
Ответов: 26305
Рейтинг: 2146
#7: 2011-10-12 20:00:11 ЛС | профиль | цитата
Tad писал(а):
Иногда полезнее усложнить.

Гы. У меня первая версия была тоже с отслеживанием изменений. Хз че я от нее отказался...
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#8: 2011-10-12 20:02:36 ЛС | профиль | цитата

Да, и не люблю я Edit с ReadOnly=True за то, что всё равно фокус на себя ловит.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
8
Сообщение
...
Прикрепленные файлы
(файлы не залиты)