Вопрос относится к доработке класса TRyMenu (http://www.delphikingdom.com/asp/viewitem.asp?catalogid=511). Передо мной сейчас стоит особая задача: необходимо добиться такого поведения, чтобы при выборе пункта контекстного меню [EM]Меню[/EM] не закрывалось, что облегчило бы выбор другого пункта меню при желании. В этом случае предполагаю, что для скрытия меню пользователь должен будет увести в сторону курсор мыши. Такое поведение нужно не всегда, а только в особых случаях. Например: [Code] ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83781

Доброго времени, уважаемые. Ситуация такая: Программа пишет логи, в начале которых вставляет разную информацию о системе. Чтобы получить наименование системы, использую TOSVersion.Name. Для Windows 10 всегда возвращает просто "Windows". Из кода понятно, что так и должно быть. Погуглил и увидел множество советов исправить это добавлением следующего фрагмента в сертификат: [Code] ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83780

Всем добрый день. Решил написать маленькое приложение под андроид (Delphi 10.4 Sydney) Приложение простое - открыть URL и дальше уже пользователь по страничке .... Бросил WebBrowser, Navigate сделал и тут оказалось , что WebView андроид не хочет работать с input type="file" В инете много инфы но для Android Studio Никто не сталкивался с такой проблемой и если да то как решали? Спасибо ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83779

Знатокам GDI. Есть маска — битмап с белым изображением и черным фоном. Можно ли по этой маске быстро (желательно в одну функцию) вывести на DC изображение с заданным цветом изображения и фона. А-ля текстовый режим, где есть маска символа, есть цвет символа и есть цвет фона. Если просто на черном фоне, то это делается вызовом BitBlt с растровой операцией MERGECOPY (цвет символа задается как цвет кисти). А вот чтобы и цвет символа, и цвет фона — что-то не получается придумать без кучи дополн ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83771

Коллеги, подскажите, как правильно добавить string в array of TVarRec? function Test: string; var xPars: array of TVarRec; xS: string; begin xS := 'abc'; SetLength(xPars, 1); xPars[0].VType := vtUnicodeString; xPars[0].VUnicodeString := @xS; // Ожидаю одинакового результата в следующих строках, однако: Result := Format('Res:%s', ['abc']); // Result= 'Res:abc' Result := Format('Res:%s', [xS]); // Result= 'Res:abc' Result := Format('Res:%s', xPars); ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83766

Здравствуйте! Есть библиотека RXLib, а в ней компонент для работы с датой в БД TDBDateEdit, только эта библиотека для delphi 7, а есть ли подобный аналог компонента для Delphi X3 (проект в нём написан). ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83760

Всем привет! не знаю можно ли тут постить ссылки на другие ресурсы... По словам delphi+LanczosFilter и по delphi+bicubic можно легко взять очень интересные процедурки для качественного ресампла битмапов. Lanczos, конечно, лучше всех в даунскейле. Вопрос про скорость. Если я вывожу картинку средствами GDI+ примерно так [Code]currGPI := TGPImage.Create(filename); ... готовлю rect ... gra := TGPGraphics.Create(BOX.Canvas.Handle); gra.SetInterpolationMode(InterpolationModeHighQ ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83752

Доброго времени. Хочу проконсультироваться у уважаемых коллег. Есть ли у кого-то опыт работы с Bullzip через OLE? Версия Bullzip - 6.0.0. Хочу получить интерфейс через CreateOleObject. Делаю, как увидел в примерах. Но программа не находит ProgID "Bullzip.PdfUtil". Сам тоже не нахожу в реестре. Рекомендуемый ProgID "Bullzip.PdfSettings" заменил на "Bullzip.PdfPrinterSettings" и получил интерфейс. Но какой класс использовать именно для печати? Возможно ли это для старой бесплатной версии? За ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83751

Всем привет. решил доделать, если получится, один свой старый прожект... копию радмина. Можно сказать, что он даже работает, но есть несколько крупных косяков. Вот, например, кнопки на удаленной стороне я нажимаю командами keybd_event и mouse_event. Пока просто в каком-нибудь ворде или по папочкам ходишь - все ок. Но как только откроешь, например, настройки доктора веба или что-нибудь системное, то там этими командами кнопки не нажимаются, ни мышь ни клавиатура. Это они так, видимо, от вирусо ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83750

Здравствуйте. Задан тип структуры Type TRec = record f1: Type1; ......... fn: TypeN; end; статическая переменная и динамический массив с этой структурой var vr: TRec; DA : array of TRec; Так вот, формат структуры после компилирования (расположение и размер полей) будут разные у переменной и динамического массива. В динамическом массиве компилятор оптимизирует расположение полей, а в переменной - нет. Но это полностью нарушает работу прог ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83749

Есть некая базовая dll, в которой некоторые функции объявлены как EXTERNAL из других dll. Приложение базовую dll загружает в run-time через LoadLibrary. Потребовалось переместить базовую dll со всеми сопутствующими из каталога с приложением в другое место. Приложение знает путь, по которому расположена базовая dll, однако загрузка не проходит: не находятся сопутствующие dll с реализациями external-функций. Предположительно, они ищутся не в каталоге с базовой dll, а в каталоге с приложением. ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83747

Приветствую всех жителей Королевства. Очень нуждаюсь в вашей помощи. Сразу к делу. Есть моя программа на ПК и некий внешний блок, который выполняет множество измерений. Связь с ним осуществляется с помощью Ethernet по протоколу UDP. Для этого я использую компонент TIdUDPServer. Блок имеет свой IP и на него отправляются управляющие команды, используя порт 4660. Через этот же порт блок на ПК отправляет массивы данных.Всё работает как часы. Но вот заказчик изменил протокол обмена. Теперь прог ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83744

Читаю OpenGL Red Book. В главе, посвященной альфа тесту сказано: "GL_LESS — фрагмент принимается, если его альфа < заданного значения". В главе, посвященной тесту трафарета: "Например, если выбрана GL_LESS, фрагмент проходит тест только в случае, если ref меньше, чем величина в буфере трафарета" Правильно ли я понимаю, что значение констант сравнения (GL_LESS) зависит от того, в каком тесте они используются? ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83742

Читаю OpenGL Red Book. В главе, посвященной альфа тесту сказано: "GL_LESS — фрагмент принимается, если его альфа < заданного значения". В главе, посвященной тесту трафарета: "Например, если выбрана GL_LESS, фрагмент проходит тест только в случае, если ref меньше, чем величина в буфере трафарета" Правильно ли я понимаю, что значение констант сравнения (GL_LESS) зависит от того, в каком тесте они используются? ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83742

Перестал запускаться delphi 7. Выдает сообщение "Точка входа в процедуру @Disview@TDisassemblyView@GetSourcePosEtEip$qqrv не найдена в библиотеке DLL coreide70.bpl". Сначала подумал, что все испортила установка delphi 10.3.3. Пришлось даже переустановить Win 7. Но результат тот же на чистой ОС. Что это? ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83741

Всем привет. Есть принтеры brother HL-2300 или похожие. Есть приложение, которое печатает талон на листке А6. Талон рисуется в графике. Когда он готов я его печатал так

code:

Printer.PrinterIndex := pin;
printer.title := 'текст';

Printer.BeginDoc;
try
RR := Rect(.....);
Printer.Canvas.StretchDraw(RR, TA.Picture.Graphic);
finally
Printer.EndDoc;
end;

И все было хорошо. У принтера в настройках стояла бумага А4. Ставили свою бумажку А6 по центру и в RR я делал сдвиг ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83738

Здравствуйте. Столкнулся с проблемой. Есть dll библиотека, написанная на Дельфи. В её внутренних процедурах встроен перехват исключений через блок try except end. Перехватываются исключения FPU и Access Violation. При подключении dll к программе, написанной на Дельфи всё работает, но при подключении dll к GCC, MSVC перехват исключений внутри процедур dll больше не работает. Также перехват не работает, если заключить вызовы dll процедур в С++ программе в такой же блок перехвата исключений: ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83734

TCustomImageList.InsertImage и ImageList_Copy Добрый день! Кто-нибудь сталкивался с подобной проблемой? Делаю дублирование картинки в TListImag'е:

code:
        ABitmap := TBitmap.Create();
        try
            ACurrImageIndex := GetImageIndex();
            Images.GetBitmap(ACurrImageIndex,ABitmap);
            Images.Insert(ACurrImageIndex,ABitmap, nil);
//....
        finally
          System.SysUtils.FreeAndNil(ABitmap);
        end;
 

При первом вызове ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83733

Здравствуйте! Подскажите пожалуйста, как можно создать WAV файл с помощью периодов импульсов. Т.е. есть набор периодов и длительностей и по ним нужно создать файл. Я создаю файл, но звук не совпадает оригиналом... Заранее благодарен. ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83732

Всем привет. Есть VCL приложение. Хочу в тот момент, когда форма ничего не делает, а проверяет наличие сообщений, проверять пару своих переменных. Как добраться цикла, в котором PeekMessage, TranslateMessage и DispatchMessage? Дайте списать! :) ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83730