Recent content by dustypup

Я до сих пор использую старьё отсюда: https://cc.embarcadero.com/Item/20139 =)

Скомпилируй dll с этой функцией и используй её из дельфи.

В JEDI JVCL есть TJvChangeNotify...

Чем стандартный TListView + DynamicAppearance не устраивает?

По инструкции от Embarcadero https://www.embarcadero.com/starthere/seattle/mobdevsetup/ios/en/running_on_your_connected_device.html все отлично работает. Проверяйте по пунктам.

Видимо глюк в undocked. В docked у меня такого не наблюдается.

Чем не устраивает TCoolBar?

Такое происходит когда выставлен Align у фрейма в значение отличное от alNone.

День добрый! Есть немного. Собственно вся интеграция через sql server.

Создай несколько экземпляров потока. Передай в каждый поток указатель на свой комбобокс. В потоке заполняй комбобокс и enable его. Запускай все потоки одновременно.

Тут все дело в том, что Memo.Lines это TStrings, а RichEdit.Lines это TRichEditStrings. Поэтому разница в поведении. Смотреть в ComCtrls: procedure TRichEditStrings.Insert(Index: Integer; const S: string); function CountLineBreaks(const S: string): Integer; const LB = #13#10; var...

Проверьте еще раз. var S: String; begin S := 'sdfsdf' + #13#10 + 'asfasf'; Memo1.Lines.Text := S; RichEdit1.Lines.Text := S; end;

Не поленился и проверил. Нет такой проблемы у TMemo.

Зачем использовать навороченные компоненты, если можно обойтись простыми? :) Тем более, что при этом приходиться использовать "ректальные" методы.

procedure TForm1.Memo1Change(Sender: TObject); begin with TMemo(Sender) do if (Abs(Font.Height) + 4) * Lines.Count > Height then ScrollBars := ssVertical else ScrollBars := ssNone; end;