Делаю компонент-кнопку от TCustomControl. Её канвас создаю так в Create компонента:

code:
FCanvas: TCanvas;
...
FCanvas := TControlCanvas.Create;
TControlCanvas( FCanvas ).Control := Self;

Ну и рисую на нём:

code:
FCanvas.Draw( 0, 0, _BitMap );

Всё отлично работает до тех пор, пока родитель кнопки или его родитель или ещё выше по иерархии не сделает:

code:
Parent := nil;

И если после этого что-то вызовет перерисовку кнопки, к примеру смена одного из её свойств, то ...

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

СУБД Postgresql 9.3, в грид DBGrridEh в поле пишу дробное число с двумя знаками после запятой и не сохраняется значение. Дробная часть отбрасывается. Такая же ситуация с любым другим компонентом. На других компьютерах работает, а на двух компах не работает, на одном Win7 на другом 8(СУБД и Клиент на один ПК устанавливается, не по сети подключение к БД) Пробовал Сделать в PGAdmin команду insert дробное значение сохраняется . Сколько лет уже устанавливаю программу всегда все работало, а вот н ...

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

В этой области я начинающий, поэтому прошу сильно не пинать. В Delphi 10.2 (10.1) требуется написать приложение под Android. Запускаю входящий в комплект AVD Manager. Создаю виртуальное устройство под версию API 17. Запускаю. Появляется окно эмулятора. Выбираю его в качестве платформы в Delphi. Приложение компилируется и устанавливается на эмулятор без ошибок. А вот при попытке его запуска наблюдаю или черный экран или сообщение "К сожалению приложение остановлено". При смене платформы ...

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

Здравствуйте, уважаемые форумчане! Помогите пожалуйста с решением следующей проблемы. На своём компьютере разработал программу для работы с базой данных Firebird. Всё работает замечательно. При переносе программы на другой компьютер выполнял следующие действия: 1) Скопировал с флешки папку с exe-шником и папку с файлом базы данных; 2) Установил СУБД Firebird 3.0 (служба запустилась); 3) Запустил exe-шник; При выполнении последнего пункта получил сообщение об ошибке "unavailable database". ...

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

В Делфи 7 поставил на форме idhttp+ sshandler, скачал библиотеки openssl. Теперь, если я коннекчусь к Яндексу, он нормально (htmlsource) сохраняется, при попытке зайти на рабочий украинский https://olx.ua - error connecting with ssl. Причем не возникает ошибка сервера - 301,302 или еще какая, я это перехватываю. ...

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

Прошу помочь. Не могу понять, почему когда код полностью выполняется и результаты отображаются на экране, программа ещё минут пять висит и не реагирует на действия пользователя. Задача простая, соединится с 1С:Предприятием 8.3 конфигурация "Зарплата и управление персоналом" и считать всех сотрудников принятых на работу в течении текущей недели. Делаю кратко так: //Параметры подключения к Файловой базе данных InitLine:='File="'+Com_1C_BD_File+'";Usr="'+Com_1C_Login+'";Pwd="'+Com_1C_Passwor ...

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

FireMonkey + Linux. Есть такая небольшая статья: https://community.embarcadero.com/blogs/entry/firemonkey-on-linux Сделал всё по ней. Delphi Tokyo + VMWare + Ubuntu + PAServer. В Library Path добавил: C:\FmxLinux\Source Но когда пытаюсь скомпилировать пишет: [Warning Warning] Local file "\Redist\libfmux.so" not found. Skipping deployment. Хотя после этого почему-то success. А в терминале Linux в это время появляется: Runtime error 217 at 0000000000664245 Куда я только не кидал этот libfmu ...

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

Здравствуйте, Создаю объект от TObject, визуальное отображение объекта скажем квадрат, который прорисовывается на канве формы. Каким образом мне написать код для его перемещении по форме с помощью мышки? Вопрос точнее как перемещать не проблема, проблема как связать этот объект с мышкой. Спасибо. ...

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

Здравствуйте. Нужно создать новое поле в таблице базы MySQL если оно не существует. Для этого написал такой блок:

code:
dm1.Q_tmp.Active:=false;dm1.Q_tmp.SQL.Clear;
dm1.Q_tmp.SQL.Add('select taxkod_branch from firms limit 1');
try
  dm1.Q_tmp.Open;
except
  dm1.Q_tmp.Active:=false;dm1.Q_tmp.SQL.Clear;
  dm1.Q_tmp.SQL.Add('ALTER TABLE `firms` ADD `taxkod_branch` VARCHAR(10) NULL AFTER `taxkod`');
  dm1.Q_tmp.Open;
end; 

Q_tmp это TQuery. При запуске скомпилированной проги выскакив ...

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

Привет всем. Поискал, поискал... Неужели никому не приходилось сталкиваться с "большой закачкой" данных? Неужели никто не разбирался с BulkCopy MS SQL? Читал-читал... ничего не понял. Профайлером ловил "булки" от программы на C# - ничего похожего. Подскажите, пожалуйста, как сформировать запрос и подготовить данные. ...

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

Прошу помочь с решением следующей проблемы. Я написал функцию FileSetDateExif, устанавливающую время модификации файла JPG равным времени его создания, прописанного в Exif. Мне она нужна в связи с сведением в "одну кучу" уже модифицированных файлов JPG от разных фотоаппаратов. Программа работает как часы, - время модификации файлов устанавливается в нужное значение, но есть и огромная ложка дегтя, - при работе как под отладчиком, так и без него при установке времени каждого файла возникает ошибк ...

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

Здравствуйте можно ли записать в memo или в string значение выполнения JavaScript

code:
var
str:string;
Str:=Chromium1.Browser.GetMainFrame.ExecuteJavaScript('document.getElementsByClassName("text")[0].innerText',url,0);

Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter' ...

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

Добрый день. Windows 7. Пытаюсь сделать переключение кнопкой на форме. Согласно мануалу переключение может осуществляться нажатием сочетания left Shift+left Alt+PrtSc . Использую следующий код procedure TForm1.Button1Click(Sender: TObject); var KeyInputs: array of TInput; KeyInputCount: Integer; result :Cardinal; procedure KeybdInput(VKey: Byte; Flags: DWORD); begin Inc(KeyInputCount); SetLength(KeyInputs, KeyInputCount); KeyInputs[KeyInputCount - 1].Ityp ...

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

Коллеги всем доброе утро (день, вечер). Не могу побороть компонент TDBCtrlGrid в части разрисовки компонентов, лежащих на нем.... В таблице есть ID статуса Когда я прописываю в событии OnPaintPanel код

code:
id:=DBEdit20.DataSource.DataSet.FieldByName('status_id').AsInteger;
 DBEdit20.Color:=ColorStatus[id];

то все вроде прекрасно отрисовывает, пока я не становлюсь на какую то запись.... Она перерисовывается... как этого избежать? ...

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

Здравствуйте! Прошу совета или любой помощи в такой вот задачке. В масштабе реального времени (МРВ) в приложение поступают пространственные координаты ЛА, необходимо их, так же в МРВ отображать на подложенной карте. В сторону какой ГИС посоветуете смотреть, может у кого есть похожий проект, может быть ссылки. Короче помогите кто, чем сможет. ...

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

Добрый день! Нуждаюсь в совете по такому вопросу: проект, созданный в свое время в Delphi 7, открываю в Delphi 2010. Собираю. И получаю приложение в старом интерфейсе (win 98). Как и где что изменить, чтобы интерфейс приложения стал нормальным. Заранее спасибо! ...

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

Здравствуйте. У компонента TIdTelnet есть event OnWorkEnd. Поясните пожалуйста когда он срабатывает? Мне нужно гарантировано узнать что компонента завершила прием информации (ответ на посланный запрос), и только потом её обработать. Информацию получаю в событии OnDataAvailable, но процесс длится по разному. Использую Дельфи ХЕ, (Indy 10), Win 7. ...

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

Здравствуйте! У меня вопрос по компоненту Chart. Я так понимаю, что для отображения точек на Chart разным цветом достаточно написать Chart1.Series[0].AddXY(координата X, Координата Y,'здесь задать цвет какой нужно например clGreen');, а как это сохранить в текстовый файл, что бы сначала шла координата X, потом Y, а затем код цвета ...

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

Здравствуйте! Есть Delphi 7 и скачанный TeeChart Pro 8.06 Source. Ребята напишите пожалуйста инструкцию по его установки, какие есть подводные камни и пути их обхода, короче по порядку все действия. ...

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

Здравствуйте! Не подскажете, как получить разрешение монитора, с которым разрабатывалась форма, или к значению [EM]FTextHeight[/EM] формы? Поясню. Мне необходимо пересчитывать некоторые параметры в зависимости от разрешения экрана (точнее, от соотношения разрешений экрана во время разработки и использования). В частности, в программе задаётся Constraints в зависимости от некоторых условий; так вот их нужно масштабировать. Сейчас мы договорились в группе, что разраб ...

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