Новая версия RxFPC - 1.0.19.61

[alexs]

01.11.2006 - версия 1.0.19.61
+ В выпадающем списке компонента TRxDBLookupCombo реализован быстрый поиск по столбцу, заданному свойством LookupDisplayIndex. Из-за ограничений LCL поиск осуществляется пока только по вводу чисел
+ В RxDBGrid добавлено отображение строки итогов (Footer row), соответсвенно введены необходимые свойства в колонках.
Внимание: из-за ошибок в TDataSet не работает коректно пока агрегатные функции (SUM, MAX, MIN, AVG)
+ В TRxMemoryData реализовал свойство AppendRecord - пока не будет написано аналогичное в TDataSet
+ Новый Демо - RxDBGrid - демонстрация возможностей RxDBGrid
- В RxDBGrid исправлен вызов OnDrawColumnCell

P.S.
Эта версия компилируется только в текущей версии Lazarus cSVN - необходимые мне методы в LCL появились только 01.11.2006
собираю всё это с помощью FPC 2.1.1

[Yogrik]

ОООгромное спасибо....
Особенно строка итогов....

[Yogrik]

Все таки мне не понравилось как отрабатывает событие отрисовки строки итогов....
Немного поковырялся, мне кажется так удачней будет

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

procedure TRxDBGrid.DrawFooterRows;
var
  FooterRect: TRect;
  R : TRect;
  TotalYOffs: integer;
  TotalWidth: integer;
  i  : integer;
  C :TRxColumn;
  Background : TColor;
  ClipArea: Trect;
begin
  TotalWidth := GetClientRect.Right;
  TotalYOffs:= GCache.ClientHeight;
  FooterRect := Rect(0, TotalYOffs, TotalWidth, TotalYOffs + DefaultRowHeight * FooterRowCount + 2);

  Background := Canvas.Brush.Color;
  Canvas.Brush.Color:=Color;
  Canvas.FillRect(FooterRect);
  
  R.Top:=TotalYOffs;
  R.Bottom:=TotalYOffs + DefaultRowHeight * FooterRowCount + 2;

  Canvas.Brush.Color := FFooterColor;
  if (Columns.Count > 0) then
  begin
    for i := GCache.VisibleGrid.Left to GCache.VisibleGrid.Right do
    begin
      ColRowToOffset(True, True, i, R.Left, R.Right);
      Canvas.FillRect(R);
      DrawCellGrid(i, 0, R, []);

       C := ColumnFromGridColumn(i) as TRxColumn;

       Canvas.TextStyle.Alignment:=C.Footer.Alignment;
       Canvas.TextStyle.Layout:=C.Footer.Layout;
       DrawCellText(i, 0, R, [], C.Footer.DisplayText);

    end;

    ClipArea := Canvas.ClipRect;
    For i:=0 to FixedCols-1 do
    begin
      ColRowToOffset(True, True, i, R.Left, R.Right);
      DrawCellGrid(i, 0, R, [gdFixed]);
      if ((R.Left < ClipArea.Right) and (R.Right > ClipArea.Left)) then
        DrawCell(i, 0, R, [gdFixed]);
    end;
  end;
  Canvas.Brush.Color := Background;
end;

Да и еще, если фон итоговой строки сделать таким же как фон таблицы
ТО горизонатльная линия сетки(над строкой) не отрисовывается....
Пока так и не понял как исправить....

[Yogrik]

Блин, только заметил....

А почему топик находится в формуе "Lazarus", а не в "Сторонние средства"??
Админы услышьте меня.....

[Yogrik]

TRxDBGrid при изменении ширины колонки, не меняется ширина колонки итоговой строки, а хотелось бы.....

Фсе, сил больше работать нет...

[Yogrik]

Так же при использовании горизонтально полосы прокрутки(именно полосы а не кнопочек) Не происходит перерисовки итоговой строки...

[alexs]

ок.
посмотрим

[Джентельмен]

так...
это все хорошо...
а как насчет версии RxFPC для Lazarus 0.9.14
есть такая версия?
дайте пожалуста...

[alexs]

ну не знаю - может старое и скомпилится
а почему не обновиш версию лазаря?
если оновлять через SVN - то трафик не большой и всегда в курсе всех событий

[Джентельмен]

да потому что мой проэкт под 9.20 не хочет работать, там с TDBF чегото не совместимо...
посиму дай версию для 9.14...
буду очень благодарен...

[alexs]

я не помню какая была сборка рабочая с 9.14 - возьми из 21-й Grids и DBGrids - замени в стандартной LCL - должно скомпилироваться с текущей версией
если есть желаение -то я залил на к себе сайт старый версии
адреса:
http://alexs75.narod.ru/fpc/rxfpc/RxFPC_12.rar
...
http://alexs75.narod.ru/fpc/rxfpc/RxFPC_18.rar
соответсвенно - пробуй

[Джентельмен]

а не угадали...
не компилируетса...
не та, не та версия...
еще варианты...
нужно очень... и срочно...
а проблема одна, раскрасить DBGridпо условию...
может есть другие варианты...

[alexs]

используй в DBGrid событие OnPrepareCanvas

[Джентельмен]

а не используетса...
какуюто ошибку выдает, мол исправте сначала что-то...
в dbgrid.pas