FreePascal.ru

artem78

Спасибо, помогло.

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

artem78

По-видимому компонет TRxDBColorBox содержит ошибку. Если включён флаг cbCustomColor и устанавливаешь цвет через пункт "custom..." он сохраняется как clBlack. Если выбирать цвета из стандартного перечня - всё нормально.

https://disk.yandex.ru/i/ONnlkLwPOO_hyQ

Демо:
https://disk.yandex.ru/d ...

artem78

Есть ли в TChart способ автоматического поворота подписей, когда они перекрывают друг друга?

Нашёл вот это:
AChart.BottomAxis.Marks.SetAdditionalAngle(45)

Например, вместо этого:
VirtualBox_Windows 7_01_11_2024_21_09_38.png

делать так.
VirtualBox_Windows 7_01_11_2024_21_03_20.png

А если ...

artem78

Ошибка компиляции исчезла, но цвета остались стандартные.

Добавлено спустя 33 минуты 29 секунд:
Наверно, проще будет задать поле цвета в ds.FieldColor и получать цвет в SQL-запросе.

artem78

Хочу использвать собственные цвета вместо стандартных в круговой диаграмме TChart. Данные берутся из БД, колв-о значений может быть различным. Вот так пытаюсь задать цвета хотябы для десятка значений.

procedure TForm1.GenerateSourcesChart({var} AChart: TChart);
const
// Цвета как в LibreOffice ...

artem78

Chart.Free; и bmp.Free

Попробывал заккоментировать эти две строчки, ничего не изменилось.

Добавлено спустя 21 минуту 36 секунд:
Эврика! Заменил

Код: Выделить всё

Chart.PaintTo(bmp.Canvas, 0, 0);

на

Код: Выделить всё

Chart.PaintOnCanvas(bmp.Canvas, Rect(0, 0, chart.Width, chart.Height));

и попёрло.

artem78

Здравствуйте, уважаемые специалисты. Помогите чайнику с вставкой графика в LazReport. В шаблоне отчёта специально под это дело добавлен компонент типа Picture. Вот код, который формирует график и вставляет его в отчёт:

procedure TForm1.frReport1EnterRect(Memo: TStringList; View: TfrView);
var ...

artem78

Alex2013 писал(а):Главное поменьше использовать легаси функции

Наверно, вы правы.

artem78

Если только чтение, то в любом случае после AssignFile(f, FileNameEdit1.FileName); нужно добавить FileMode := 0;
Не помогло. Та же ошибка.

Посмотрите в сторону TFileReader из модуля StreamEx, который как раз предполагает построчное чтение текстового файла.
Зато этим способом с флагами ...

artem78

xchgeaxeax писал(а):Попробуйте читать файл через TFileStream

Насколько я понимаю, он для двоичных, а не текстовых файлов предназначен. Как с его помощью читать файл построчно мне не понятно.

Добавлено спустя 18 минут 30 секунд:

xchgeaxeax писал(а):OpenText

Что-то не могу найти, в каком юните это.

artem78

Вроде бы тривиальная задача построчного чтения текстового файла.

procedure TForm1.Button1Click(Sender: TObject);
var
F: TextFile;
Line: String;
begin
AssignFile(f, FileNameEdit1.FileName);
try
Reset(F);
while not EOF(F) do
begin
ReadLn(F, Line);
ParseLine(line);
end;
finally
CloseFile ...

artem78

Снег Север писал(а):По-моему это - нормальное правильное поведение. С чего бы вычисляемому полю обновляться без Refresh?

Возмоно. А почему тогда ID для таблицы обновляется, а для вида - нет?

artem78

Здравствуйте.

Использую БД SQLite3 и компонент DBGrid для отображения данных. Заметил следующую проблему: если SELECT запрос осуществляется не к реальной таблице, а к виду , то при добавлении новой записи не отображается значение в тех полях, которые не были явно заполнены при добавлении записи (в ...

artem78

iskander писал(а):Ну а код-то из поста выше опробовали?

Да. Похоже, работает как надо. Спасибо.

Добавлено спустя 22 часа 39 минут 49 секунд:

Снег Север писал(а):Пользуйтесь нормальными компонентами - SqlDB, ZeosDB

Какие между ними различия? Какой из них порекомендуете выбрать?

artem78

Как сделать, чтобы значки отображались слева от текста, а не сверху?

20220207_200242.png

object ToolBar1: TToolBar
Left = 0
Height = 26
Top = 0
Width = 320
ButtonHeight = 22
ButtonWidth = 23
Caption = 'ToolBar1'
Images = ImageList1
ShowCaptions = True
TabOrder = 0
object ...

FreePascal.ru

Найдено 50 результатов

Re: TRxDBColorBox не сохраняет custom-ные цвета

[РЕШЕНО] TRxDBColorBox не сохраняет custom-ные цвета

TChart: Наклон подписей при нехватке места

Re: TChart: Собственные цвета для круговой диаграммы

TChart: Собственные цвета для круговой диаграммы

Re: TChart и LazReport: вставка круговой диаграммы в отчёт

TChart и LazReport: вставка круговой диаграммы в отчёт

Re: Ошибка "File not open" при чтении файла

Re: Ошибка "File not open" при чтении файла

Re: Ошибка "File not open" при чтении файла

[Решено] Ошибка "File not open" при чтении файла

Re: DBGrid отображает не все поля у новой записи

DBGrid отображает не все поля у новой записи

Re: Ошибка "SQLITE BUSY" при работе с Sqliite БД

Значок и текст на одной строке в ToolBar