Вверх ↑
Этот топик читают: Гость
Ответов: 495
Рейтинг: 163
#1: 2019-02-19 21:07:05 ЛС | профиль | цитата
Приветствую Всех. Уважаемые пользователи, подскажите пожалуйста есть ли какая возможность в диалоге выбора файла на кнопке, получить надпись УДАЛИТЬ, вместо открыть (может другой вариант есть)? Задача была сохранять разные конфигурации программы ,загружать их, не нужные удалять.
Пример


Add(MainForm,2953706,21,105)
{
}
Add(Button,14096210,91,105)
{
Left=10
Top=25
Width=95
Height=25
Font=[Arial,9,0,0,204]
Caption="Загрузить"
link(onClick,940614:doExecute,[])
}
Add(Button,4918045,91,161)
{
Left=10
Top=55
Width=95
Height=25
Font=[Arial,9,0,0,204]
Caption="Сохранить"
link(onClick,15292050:doExecute,[])
}
Add(Button,10436757,91,231)
{
Left=10
Top=85
Width=95
Height=25
Font=[Arial,9,0,0,204]
Caption="Удалить"
link(onClick,4948524:doExecute,[])
}
Add(ODialog,940614,140,105)
{
Filter="cfg|*.cfg"
Title="Загрузка файла конфигурации"
FileName=""
FileMustExists=0
Point(StartDir)
}
Add(SDialog,15292050,140,161)
{
Filter="cfg|*.cfg"
Title="Сохранение файла конфигурации"
FileName=""
}
Add(ODialog,4948524,140,231)
{
Filter="cfg|*.cfg"
Title="УДАЛЕНИЕ файла конфигурации"
FileName=""
Point(StartDir)
}

карма: 4

0
Ответов: 537
Рейтинг: 14
#2: 2019-02-19 22:05:26 ЛС | профиль | цитата
Можно так

Add(MainForm,2953706,0,91)
{
}
Add(Button,10436757,49,91)
{
Left=10
Top=85
Width=95
Height=25
Font=[Arial,9,0,0,204]
Caption="Удалить"
link(onClick,10013423:doEvent1,[])
}
Add(ODialog,4948524,140,98)
{
Filter="cfg|*.cfg"
Title="УДАЛЕНИЕ файла конфигурации"
FileName=""
Point(StartDir)
}
Add(Hub,10013423,105,91)
{
link(onEvent1,15145449:doStart,[])
link(onEvent2,4948524:doExecute,[])
}
Add(WinEnum,10380141,266,84)
{
VisibleOnly=1
link(onFindWindow,14516471:doEnumChildWindows,[])
link(Caption,5011281:Text,[])
}
Add(WinEnum,14516471,357,63)
{
Point(doEnumChildWindows)
Point(onEnumChildWindows)
Point(ParentHandle)
link(onEnumChildWindows,3585944:doStr,[])
link(ParentHandle,10380141:Handle,[(370,51)(321,51)(321,128)(272,128)])
}
Add(MT_String,3585944,413,77)
{
link(onResult,9018304:doCompare,[])
}
Add(VisualStrings,5011281,266,49)
{
Lines=#27:УДАЛЕНИЕ файла конфигурации|
}
Add(StrMask,9018304,462,77)
{
Mask="*Button;*;&Открыть*"
link(onTrue,5988400:doSplit,[])
}
Add(MultiStrPart,5988400,511,84)
{
link(onSplit,15918280:doEvent1,[])
}
Add(SendMessage,13367039,518,259)
{
Message=10
link(Handle,5988400:Part2,[])
link(LParam,4055860:Memory,[])
}
Add(MemoryStream,4055860,518,147)
{
Stream=[ZIP6300000078DA05C1410EC2201005D0137D50134DEADA85AE8D07F88DC5A2E04C605ACAEDFBDE6CA6F5EA7D6BCD49DADC422F63E79AA67F9CBC16793323880955596808CB37869832EA69381F50F16331E950E64E8B385EF019F1B8B5FB6B7BBAD972DA0138AE2415]
Point(Memory)
Point(doSize)
}
Add(Hub,2436151,413,154)
{
OutCount=4
link(onEvent1,4055860:doClear,[])
link(onEvent2,1521875:doLength,[])
link(onEvent3,12194962:doPut,[(449,174)(449,209)])
link(onEvent4,13367039:doSendMessage,[(444,181)(444,265)])
}
Add(Length,1521875,455,161)
{
link(onLength,4055860:doSize,[])
}
Add(DataToFile,12194962,518,203)
{
Type=6
link(Stream,4055860:Stream,[])
}
Add(VisualStrings,11960187,364,154)
{
Lines=#7:Удалить|
Point(doText)
Point(onText)
link(onText,2436151:doEvent1,[])
}
Add(Thread,15145449,217,91)
{
Delay=10
Point(doStopFlag)
link(onExec,10380141:doFind,[])
}
Add(Hub,15918280,553,84)
{
link(onEvent1,15145449:doStopFlag,[(579,90)(579,44)(203,44)(203,111)])
link(onEvent2,11960187:doText,[(579,97)(579,129)(352,129)(352,160)])
}
карма: 4

0
Ответов: 495
Рейтинг: 163
#3: 2019-02-19 22:40:13 ЛС | профиль | цитата
Sersey писал(а):
Можно так

СПАСИБО! То что надо!
Sersey,а зачем в MemoryStream html ссылка?
карма: 4

0
Ответов: 537
Рейтинг: 14
#4: 2019-02-19 23:15:55 ЛС | профиль | цитата
Забыл удалить

Редактировалось 2 раз(а), последний 2019-02-19 23:16:09
карма: 4

0
4
Сообщение
...
Прикрепленные файлы
(файлы не залиты)