Уже лучше...
28 2023-10-20 10:08:55
Re: сторонее приложение в форме (21 replies, posted in Russian)
Всем добрый день! Подскажите есть возможность поймать событие закрытия встроенного таким способом окна?
Для чего?
29 2023-10-20 08:41:37
Re: Placement of tabs (11 replies, posted in General)
В принципе можно и псевдокомпонент сделать из 2-х PageControl-ов.
Левый - мультилайновый
Правый - внутри групбокса или панели (иначе вкладки не спрятать)
TTabSheet-ы левого заполнить в скрипте динамически из правого.
В OnChange левого PageControl-а устанавливать индекс правого.
Можно получить что-то такое:
30 2023-10-20 07:29:42
Re: Placement of tabs (11 replies, posted in General)
And how to rotate a button
Это только рисовать с нуля, но в MVDb нет необходимых для этого Windows-функций.
31 2023-10-19 17:46:21
Re: Placement of tabs (11 replies, posted in General)
Все ж выходит в "целофановых пакетах":
32 2023-10-19 17:21:08
Re: Странное поведение TdbComboBox (7 replies, posted in Russian)
Программа "нездорова" трохи...
Вот так ̶ч̶е̶р̶е̶з̶ ̶ж̶о̶п̶у̶ фурычит вроде:
var
...
Control:TControl;
...
for i := tmpParent.ControlCount - 1 downto 0 do
begin
Control := tmpParent.Controls[i];
Control.Parent := Form1;
Control.Free;
end;
или такая дичь:
SendMessage(TWinControl(tmpParent.Controls[i]).Handle, WM_CLOSE ,0,0);
tmpParent.Controls[i].Free;
33 2023-10-17 09:39:05
Re: report : show text box only if a field is full (1 replies, posted in Reports)
write a script
34 2023-10-16 06:26:32
Re: Вычисляемое поле в SQL запросе (21 replies, posted in Russian)
function Utf8ToWinCP(s:string):string;
var sc:variant;
begin
sc:=CreateOleObject('ScriptControl');
sc.Language := 'JavaScript';
sc.reset;
sc.AddCode(
'function Utf8ToWinCP(s){'+
'var stream = new ActiveXObject("ADODB.Stream");'+
'stream.mode = 3;'+
'stream.type = 2;'+
'stream.charset = "UTF-8";'+
'stream.open();'+
'stream.writeText(s);'+
'stream.position = 0;'+
'stream.charset = "Windows-1251";'+
'return stream.readText();'+
'stream.close();'+
'}'
);
result := sc.Run('Utf8ToWinCP',s);
sc:=0;
end;
function WinCPToUtf8(s:string):string;
var sc:variant;
begin
sc:=CreateOleObject('ScriptControl');
sc.Language := 'JavaScript';
sc.reset;
sc.AddCode(
'function WinCPToUtf8(s){'+
'var stream = new ActiveXObject("ADODB.Stream");'+
'stream.mode = 3;'+
'stream.type = 2;'+
'stream.charset = "Windows-1251";'+
'stream.open();'+
'stream.writeText(s);'+
'stream.position = 0;'+
'stream.charset = "UTF-8";'+
'return stream.readText();'+
'stream.close();'+
'}'
);
result := sc.Run('WinCPToUtf8',s);
sc:=0;
end;
var s:string;
//...
s := Utf8ToWinCP('Привет');
ShowMessage(s); // Привет
ShowMessage(length(s)); // 15
s := WinCPToUtf8(s);
ShowMessage(s); // Привет
ShowMessage(length(s)); // 6
35 2023-10-15 15:12:26
Re: Вычисляемое поле в SQL запросе (21 replies, posted in Russian)
А разве в проге нет преобразования utf8<>win1251?
36 2023-10-06 15:05:59
Re: потоковое видео (28 replies, posted in Russian)
Это пример для второго варианта с использованием плагина камеры в TWebBrowser, а не для воспроизведения RTSP потока в VLC плеере.
Я бы даже сказал: "намёк для программиста" (а не того, кто ищет "куда вставить").
вот мне нужно на подобие этого
А чем вариант с VSPlayer не зашел? Вроде как делает то же самое...
37 2023-10-06 06:47:06
Re: потоковое видео (28 replies, posted in Russian)
То, что есть у меня - врядли ему подойдет.
Вот готовое решение.
38 2023-10-05 18:58:41
Re: потоковое видео (28 replies, posted in Russian)
rtmp - это не совсем rtsp...
Его нет в камерах, а если есть, то в специфичных (или безумно дорогих).
39 2023-10-05 14:22:02
Re: потоковое видео (28 replies, posted in Russian)
)). можно пример какой ни будь. примерно 10 камер мне нужно 10 окан с камерами что бы они показывали online ну и не плохо захват кадров ))))
Тут вот недавно "примеряли"...
40 2023-10-05 14:14:42
Re: потоковое видео (28 replies, posted in Russian)
Присоединюсь к вопросу... А захват и сохранение кадра видео осуществимо?
Ну, в принципе да. Самый простой способ - заюзать API камеры (есть ссылки для снапшотов).
Например:
Ну и VLC умеет скрины делать.
41 2023-10-05 10:41:26
Re: потоковое видео (28 replies, posted in Russian)
1. VLC плеером смотреть RTSP. Можно встроить в форму.
2. Плагин от камеры в TWebBrowser-е.
42 2023-10-03 17:18:03
Re: Style help me (6 replies, posted in General)
Надо линию посередине убрать и все заработает...
43 2023-10-02 14:31:34
Re: сторонее приложение в форме (21 replies, posted in Russian)
//_OnResize
SetWindowPos( ..... , SWP_ASYNCWINDOWPOS or SWP_NOACTIVATE);
44 2023-10-02 13:33:16
Re: сторонее приложение в форме (21 replies, posted in Russian)
vovka3003 wrote:Я про тормоза формы...
все ок, легко работает
И в ресайзе с якорями?
45 2023-10-02 11:18:39
Re: сторонее приложение в форме (21 replies, posted in Russian)
Я про тормоза формы...
46 2023-10-02 10:28:14
Re: сторонее приложение в форме (21 replies, posted in Russian)
если я использую размеры формы
SetWindowPos( h, 0, -10, -40, Form1.Width+15, Form1.Height+10, SWP_SHOWWINDOW);
то, появляется какая-то нагрузка (или что-то в этом роде) в общем управлять формой становиться тяжело
Решил, не?
47 2023-10-01 07:31:29
Re: script for changing Styles in the forms (8 replies, posted in General)
the reason I deleted the section and wrote a new one is because my English is not at a good level and I wanted to formulate my question as best as I could.
А причем тут "плохой Английский"? Есть кнопка "Редактировать пост".
И, кстати, в удаленногом сообщении вопрос был вполне понятен.
48 2023-09-30 20:57:58
Re: script for changing Styles in the forms (8 replies, posted in General)
Не, у меня тоже бывает настроение повоспитывать, но тут, как я чувствую, есть причины...
Некоторые не особо заморачиваются, просто лупят запизьдубля, а этот похитрее - удалил старую тему (созданную сегодня), и создал точно такую же новую (а, че - так и было, ничего не трогал).
49 2023-09-30 19:48:33
Re: script for changing Styles in the forms (8 replies, posted in General)
Если бы я был администратором форума, то за такие UP-ы влепил бан. Сначала на недельку, потом на месяц, третий-раз - навечно.
50 2023-09-29 13:28:50
Re: сторонее приложение в форме (21 replies, posted in Russian)
В общем я помещаю sumatraPDF в форму
если я использую размеры формыSetWindowPos( h, 0, -10, -40, Form1.Width+15, Form1.Height+10, SWP_SHOWWINDOW);
то, появляется какая-то нагрузка (или что-то в этом роде) в общем управлять формой становиться тяжело
но если не применять размеры формыSetWindowPos( h, 0, 0, 0, 0, 0, SWP_SHOWWINDOW);
то проблем в управлении окном не возникает
Походу применяешь в каком-то "попиксельном" событии...
Так же не могу понять как убрать рамки внедряемого приложения.
Смотря какие рамки... А так вообще - SetWindowLong