Добрый день. Мне нужно программно отключить сглаживание неровностей экранных шрифтов. Изменить значение в реестре не проблема, а как сделать, чтобы это изменение было принято без перезагрузки компьютера? вариант "RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters ,1 ,True" - выполняется, но сглаживание шрифтов остается. Может, кто-то сталкивался с такой проблемой? ...

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

Добрый день. Мне нужно программно отключить сглаживание неровностей экранных шрифтов. Изменить значение в реестре не проблема, а как сделать, чтобы это изменение было принято без перезагрузки компьютера? вариант "RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters ,1 ,True" - выполняется, но сглаживание шрифтов остается. Может, кто-то сталкивался с такой проблемой? ...

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

Глюк обнаружен на текущей версии Lazarus. При проверке числа простым кодом:

code:
Val(Stroka,Result,I);
  if I<>0 then
    Result:=-1;

При передаче параметра Stroka='88E6852-123'; программы вылетает по ошибке "Float Point Overflow". Какие предложения по обходу глюка? Я решил проблему, добавив кусок:

code:
For I:=1 to Length(Stroka) do
  if not (Stroka[I] in ['0'..'9','.']) then begin
    Result:=0.0;
    exit;
  end;

Очевидно, это отсекает вышеприведённый вариант, н ...

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

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

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

Добрый день. Имеется компьютер с Windows XP SP3 (+все обновления). На компьютере установлена программа, которая написана на Delphi XE4. Программа работает с базой данных Access 2013 (accdb). Для этого на компьютере установлено Access Runtime 2010. База разделенная на две: с формами+запросами (№1) и с таблицами (№2). База №2 лежит на сетевом ресурсе, а база №1 у клиентов в программе. Проблема в очень медленной работе Windows XP с разделенной базой Acceess 2013. Открытие и обновление таблицы заним ...

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

Возникла достаточно нетривиальная задача. Есть простой OpenCir:TOpenDialog, в нём два фильтра, скажем, *.cir и *.mac. Есть необходимость при выборе одного фильтра автоматически перебрасывать пользователя в одну папку, а при выборе другого - в другую папку. Язык реализации, кстати, Lazarus. На первый взгляд, нужно просто подцепиться на событие OnTypeChange и в нём сделать что-то вроде:

code:
case OpenCir.FilterIndex of
  1:OpenCir.InitialDir:=...;
  2:OpenCir.InitialDir:=...;
end;

Но ...

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

Возникла достаточно нетривиальная задача. Есть простой OpenCir:TOpenDialog, в нём два фильтра, скажем, *.cir и *.mac. Есть необходимость при выборе одного фильтра автоматически перебрасывать пользователя в одну папку, а при выборе другого - в другую папку. Язык реализации, кстати, Lazarus. На первый взгляд, нужно просто подцепиться на событие OnTypeChange и в нём сделать что-то вроде:

code:
case OpenCir.FilterIndex of
  1:OpenCir.InitialDir:=...;
  2:OpenCir.InitialDir:=...;
end;

Но ...

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

Доброго вечера уважаемый All! Имеется Delphi 5. Обрабатываем drag&drop из windows на свою форму. Под windows xp все отлично работает, а вот под windows Vista или 8.1. показывает курсорчик при перетаскивании, но месадж не обрабатывается видимо (т.е. процедура не отрабатывается) Код юзаю такой: [Code]... private { Private declarations } procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES; .... procedure TEPMDoc_Edit_F.WMDropFiles(var Msg: TWMDropFiles); var Dro ...

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

Здравствуйте! Не ругайте сразу. Помощь очень нужна. Есть компонент TChromium (Delphi 7) именован как wb1, получаю код страницы запросом wb1.Load(url). Подскажите пожалуйста, как в получаемом коде страницы исключить выполнение javascript кода, размещенного в контейнере . Заранее спасибо неравнодушным. ...

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

Здравствуйте. Нужно открыть файл *.csv и разбить текст по столбцам. Разделителем является запятая. В макросах MS Excel это выглядит так: Columns("A:A").Select Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _ :=Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), _ ...

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

Всем привет. Вот функция, которая возвращает список звуковых карт. Почему когда она вызывается из программы с окном, то все хорошо, а если ее вызвать из программы без окна, из сервиса, например, то она валится? Похоже, что у нее точка возврата изменяется. Честно списал, слабо с олелями знаком. [Code]function SoundCardsInfo: string; const WbemUser = ''; WbemPassword = ''; WbemComputer = 'localhost'; wbemFlagForwardOnly = $00000020; var FS ...

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

Добрый день, Может ли кто мне объяснить, почему в TStream.CopyFrom использует буфер MaxBufSize именно такого размера $F000, а ни какого другого? ...

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

Добрый день жители королевство! В двух словах создаем объект (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