Добрый день жители королевство! В двух словах создаем объект (TMyCustomControl), который свою очередь порожден от TCustomControl. Переназначив процедуру procedure Paint; override, рисуем сетки. Суть проблемы, когда располагаешь объект, на пример кнопку, все нормально, но когда изменяем размеры (TMyCustomControl), объект (кнопка) исчезает и потом появляется, как это избежать в каком направление рыть? ...

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

Не поможет ли кто разобраться с COM портами, устанавливаемыми при подсоединении модуля BlueTooth-COM? Образуется два COM порта. Входящий и Исходящий. Исходящий - это обычный (с точки зрения API порт). При попытке записать что-то во Входящий порт (WriteFile (com, Tx_Buffer, b_cnt, b_send, nil)) программа зависает. У меня программа ищет подсоединённое железо последовательно посылая запрос на COM порты. Всё было хорошо, пока один Заказчик не присоединил модуль BlueTooth. Можно ли программно определ ...

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

Добрый день. Подскажите, кто знает. Есть такой код:

code:
procedure TForm1.btn1Click(Sender: TObject);
type
  TLn = record
    aaa: array[0..100000] of Integer;
    bbb: string;
  end;
var
  iA: Integer;
  mas: array of TLn;
begin
  mas := nil;
  for iA := 0 to 1000 do SetLength(mas, Length(mas) + 1);
  lbl1.Caption := 'Done';
end;

В RAD studio 10 Seattle и ниже все выполняется нормально и практически мгновенно. А вот в RAD Studio 10.1 Berlin время выполнения Setlength с ...

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

Всем привет. Какой-то ступор. Вот такой вот код [Code] with spDict do begin ClearData; Open; tmpID := 0; SetLength(ArrDrugs,RecordCount); Index := -1; for i := 0 to RecordCount-1 do begin ... if ((Index mod 100) = 99) and CheckBreak(True) then begin Close; ClearData; ModalResult := mrCancel; Exit; end; pbMain.Position := Trunc((i+1)*100/RecordCount); Next; end; Close; inc(Index); SetLength(ArrDrugs,Index); ...

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

Здравствуйте Уважаемые жители Королевства! Подскажите куда копать. Есть служба, которая по TCP (IdTCPClient) считывает непрерывно поступающие данные и кладет в StringList, который создается при запуске службы, уничтожается при остановке.

code:
 
while not Terminated do
begin
   if IdTCPClient1.Connected then
       while not IdTCPClient1.Socket.InputBufferIsEmpty do
       begin 
         ........... 
         ListData.Add(sdata);
       end
   sleep(500);
end;

Дал ...

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

Камрады, помогите справиться с проблемой, которую демонстрирую на примере простейшего приложения в Delphi 7. На форму положил TRichEdit и TButton. В обработчик кнопки поместил простейший код : procedure TForm1.Button1Click(Sender: TObject); var i2 : Integer; begin i2 := 0; Repeat i2 := i2 mod 16; RichEdit1.Lines.Add( IntToStr( i2 ) ); RichEdit1.Repaint(); if ( 15 <= i2 ) then RichEdit1.Clear(); RichEdit1.Repaint(); INC( i2 ); if ( GetAsyncKeyState( ...

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

Как отследить изменение размера папки (с учётом вложений)? Вижу, что на ноутбуке свободной памяти день ото дня становится меньше (хотя иногда - больше, чем накануне). Выяснил, что нет команды win api, которая даёт размер папки с учётом вложений. С хуками не знаком. Итак, задача узнать, где создаются файлы больших размеров. Заодно, если можно, то какая программа (процесс) их создаёт. ...

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

Как отследить изменение размера папки (с учётом вложений)? Вижу, что на ноутбуке свободной памяти день ото дня становится меньше (хотя иногда - больше, чем накануне). Выяснил, что нет команды win api, которая даёт размер папки с учётом вложений. С хуками не знаком. Итак, задача узнать, где создаются файлы больших размеров. Заодно, если можно, то какая программа (процесс) их создаёт. ...

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

Вопрос по компоненте RichMemo для Lazarus. Никак не могу понять, как правильно добавлять текст, что бы не вставлялся переход на другую строку:

code:
     Form1.RichMemo1.Lines.Append('to');
    Form1.RichMemo1.Lines.Add('to');
   Form1.RichMemo1.Lines.AddText('to');

Всё это вставляет перевод строки. Второй момент, с расцветкой, мне надо в одной строке подсветить слова разным цветом, вот такой код стирает старые цвета от начала строки: [Code]save_pos:=Form1.RichMemo1.GetTextLen - ...

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

Камрады, прошу помощи по следующей проблеме. Делаю проект в Delphi 7 для обработки архивных файлов и каталогов.Каталоги представляют собой сложную многоуровневую структуру с большой глубиной вложенности подкаталогов и имеют большой объем хранимых в них файлов. Для отображения в окне структуры каталогов поставил компоненты TDirectoryOutline. Все прекрасно работало, но под самый конец проекта ( по закону подлости ! ) столкнулся с неожиданной проблемой. Все было хорошо, пока у обрабатываемых кат ...

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

Здравствуйте уважаемые. Извиняюсь заранее за дилетантский вопрос, но не могу понять в чем дело. То работает сутками без проблемм, то клинит даже до проверки наличия URL. Возникла необходимость, для корректной работы программы проверить доступность определенного URL.Все же остановился на индейцах, т.к. они и так используются, хотя на wininet никаких чудес, всё то же самое. Собственно сам код: //////////////////////////////////////// function GetUrl(const url: string): Boolean; var HTTP: TIdHT ...

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

Не получается подключить справку JVCL к Delphi 2010 IDE Добрый день. Прошу прощения за вопрос, не писал на делфи 10 лет. Столкнулся со следующей проблемой. Имеем Delphi 2010, и библиотеку компонентов JVCL. Поставил JVCL3.49 через встроенный инсталлятор. В инсталляторе не было галочки об установке справки. Сами компоненты установились, все ок, но нет справочной системы по ним. Скачал с официального сайта help к компонентам в формате HxS: https://sourceforge.net/projects/jvc...2.zip/download ...

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

Доброго времени суток! У меня вопрос по ShellExecute. Многие программы предоставляют сервис "показать в проводнике"; при этом открывается папка с файлом, и фокус устанавливается на нужном файле. Вызов

code:
ShellExecute(0, 'explore', <имя_файла> ...)

вообще ничего не делает. Вызов

code:
ShellExecute(0, 'explore', <имя_папки>, <имя_файла> ...)

открывает папку в проводнике, но фокус на дереве папок, на файл не устанавливается. Аналогично с [B][Cod ...

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

Всем привет! Подскажите по вопросу: Есть код на D2007 [Code] TDOAOracleSQL=class(TOracleSQL) .... public function RunFunctionExInt(FunName:TSQLString;Params:TTNTStrings):longint; override; function ExecSQL(sl:TTNTStrings; ShowTextError: boolean = TRUE):integer; override; ... fOrclSQL: TDOAOracleSQL; tnt: TTNTStringList; ... tnt.Add(inttostr(fOrclSQL.UserID('dbo')) + ', 3672255, ' + '''' + DateToStr(fDocument.fDocDate){FormatDateTime('m/d/yyyy', fDocument.fDocDate)}+'''' + ', ...

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

Вопрос по Lazarus'у. Может быть, здесь кто ответит... На их форумах очень странная система регистрации, мне не удалось пробиться. После выхода из IDE каталог с проектом приобретает атрибут HIDDEN и исчезает из поля зрения файл-менеджера (я пользуюсь Total Commander). После принудительного сброса этого атрибута средствами Оп.Системы каталог становится видим до следующего выхода из IDE. Можно как-то избежать этой ситуации?! ...

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

Всем привет. в процессе работы программы создаю новое окно и отцепляю его от главной, чтобы кнопка в таскбаре была видна. adump[ii] := TFormDU.Create(Application); SetWindowLong((adump[ii] as TFormDU).Handle, GWL_HWNDPARENT, GetDesktopWindow); (adump[ii] as TFormDU).FormStyle := fsNormal; все нормально работает, только одна неприятность. когда вызываю в этом окне OpenDialog1.Execute, это окно скрывается за главным окном, а когда opendialog закрываю, оно снова выпрыгивает из-за главног ...

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

Всем добрый день. Пишу программу отправки мейла с помощью TIdSMTP и TIdMessage. Нужно что в зависимости от ситуации TIdMessage.Subject имел бы разные цвета (черный, красный зеленый). Пожете подсказать это возможно? Если да то КАК? ...

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

Доброго времени суток Как в Delphi прочитать произвольный кусок памяти и получить его значение. Например p:=$00000001 или p:=$FF54CE0E; Интересует только чтение. ...

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

Доброго времени суток Как в Delphi прочитать произвольный кусок памяти и получить его значение. Например p:=$00000001 или p:=$FF54CE0E; Интересует только чтение. ...

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

Всем добрый день! Возникла довольно странная ситуация по поводу Synapse/ Использую данную библиотеку уже много лет. А вот сегодня на Delphi 2010 при выполнение POST запроса, появилось чудо: Некорректно обрабатываются параметры. Лог: POST /log.php HTTP/1.1 Host: test2.soft-test.ru Keep-Alive: 300 Connection: keep-alive User-Agent: Mozilla/4.0 (compatible; Synapse) Content-Type: application/x-www-form-urlencoded Content-Length: 4 Код конечно в классике жанра: [Code] http := THTT ...

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