vovka3003 wrote:Не получится, т.к. в ячейке нет нужных событий.
// при переходе в режим редактирования все точки в ячейке меняются на запятую
Вопрос звучал: "как это сделать не через задницу"...
My Visual Database → Posts by vovka3003
vovka3003 wrote:Не получится, т.к. в ячейке нет нужных событий.
// при переходе в режим редактирования все точки в ячейке меняются на запятую
Вопрос звучал: "как это сделать не через задницу"...
Is he possibly interested in releasing the source code so that the community keeps MVD alive?
Нет, потому что исходники содержат компоненты, лицензия которых не предусматривает свободное копирование в открытом (не компилированном) виде.
Не получится, т.к. в ячейке нет нужных событий.
Он жив здоров, но возвращаться к проекту и развивать его дальше - не планирует.
runabase
https://runabase.com/
"Забивалка данных". Больше не умеет ровным счетом ничего... Да еще и с привязкой к "серверу Васи" в многопользовательском режиме с пожизненными отчислениями. Начиная с версии 5 - угроблен интерфейс QT-шными "новинками". Разработка ведется по принципу: "а давай попробуем так, не получилось - давай этак".
DataExpress is a great software, but if it had a help file in english it would be much better.
Неужели так не проканает..?
Вообще, поднимите руку те, кто всегда начинает работу в какой-нибудь программе с чтения справки?
A minus the it has no executable file and no database file.
Does it create also sn exe file like mvdb?
Нет, но можно использовать google translate
Does it create also sn exe file like mvdb?
Нет. Среда исполнения одновременно является средой программирования.
NSBase
Качаю и пробую примерно раз в полгода. Пока результат один - свалилась, сломалась, выкинул...
I would add DataExpress to this list, but this system does not have localization into languages other than Russian.
Почему нет? Есть.
Resourse Hacker in help for builder.dll...
Translate works fine but trying to translate Yes and No it fails. Any idea?
Это системные диалоги и их нельзя перевести. По крайней мере с помощью MVDb.
Проверил на 2х компах - все ок.
Проблема на вашем компе а какая именно - неясно (с учетом того, что с AD работает), возможно отсутствуют какие-то системные билиотеки. Проверьте на всякий случай на нем наличие NET Framework "не ниже версии 4.0".
I thought that this will be easier to get translated
Не получится.
"программку" в студию...
procedure ConsultarCEP(vCEP: string; var vLogradouro, vBairro, vCidade, vUF: string);
var s :variant;
begin
try
s:=CreateOleObject('ScriptControl');
s.Language := 'JavaScript';
s := s.Eval('('+HttpGET( 'https://viacep.com.br/ws/'+vCEP+'/json/')+')');
try
vLogradouro := s.logradouro;
vBairro := s.bairro;
vCidade := s.localidade;
vUF := s.uf;
except
if (s.erro) = 'true' then
ShowMessage('Not found: "'+vCEP+'"');
end;
finally
s:=0;
end;
end;
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var Logradouro, Bairro, Cidade, UF:string;
begin
ConsultarCEP('01001000',Logradouro,Bairro,Cidade,UF);
ShowMessage(Logradouro +#13#10+ Bairro +#13#10+ Cidade +#13#10+ UF);
end;
Дальше сам...
const
// режимы
mbOkOnly = 0;
mbOkCancel = 1;
mbAbortRetryIgnore = 2;
mbYesNoCancel = 3;
mbYesNo = 4;
mbRetryCancel = 5;
mbCritical = 16;
mbQuestion = 32;
mbExclamation = 48;
mbInformation = 64;
function MessageDialogEx(caption,msg:string; mode:integer):LongInt;
var Sh:variant;
begin
Sh := CreateOleObject('WScript.Shell');
result := Sh.Popup(msg, 0, caption, mode);
Sh := 0;
end;
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var res:integer;
begin
case MessageDialogEx('Внимание','Вопрос...',mbYesNo + mbQuestion) of
mrYes:ShowMessage('Нажата кнопка "ДА"');
mrNo:ShowMessage('Нажата кнопка "НЕТ"');
end;
end;
var BP:TToolbar;
SP:TSpeedButton;
i:integer;
begin
BP := TToolbar.Create(Form1);
BP.Parent := Form1;
for i:=0 to 3 do
begin
SP:=TSpeedButton.Create(BP);
SP.Caption:='...';
SP.Parent:=BP;
SP.GroupIndex:=1;
end;
end.
Смысл в том чтобы при выборе "категории" выпадали "субкатегории" того же порядка.
То есть при выборе 01000 выпадает список из продуктов а не все в подряд.
XYZ проблема налицо... Вы спрашиваете "как соорудить молоток", но промолчали, что требуется "забить шуруп".
Здесь не "циферками" надо решать вопрос а именованием категорий.
А в чем глобальная задача? Что это за цифры?
FormN.TableGridN.PopupMenu.Items[0].Enabled := false;
... I try the command OpenUrl('www.google.com') + From1.Edit1.Text; ...
1.3 * w / Power(h, 2.5)
У меня есть только доступ к удаленной базе данных и все. Ни какой код на той стороне возможности написать не имею.
Интересно, это как..? Чужой сайт?
Где-то на форуме есть примеры.
Тут наверное...
А насчет удаления target, то самый незатейливый способ - это скачивать страницы, сохранять их локальный файл и обрабатывать
Без OLE, через веб-драйвер это можно сделать в рантайме внутри хрома, внедрив скрипт непосредственно в страницу.
Правда кроме target-ов там может торчать много других сучков, например вызов new Window(), а это уже сложнее прибивать.
А IE и TWebBrowser-у уже давно свечку поставил современный веб, и даже несмотря на то, что для IE тоже драйвер есть - его юзать бессмысленно.
My Visual Database → Posts by vovka3003
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi