RxFPC - новая версия

Модераторы: alexs, Модераторы

vicvala
новенький
Сообщения: 27
Зарегистрирован: 11.06.2011 17:55:25

Сообщение vicvala »

Возникла (она и была) такая мелкая фигня: нижний scroll (когда он появляется) полностью перекрывает footer! Видимо у всех всё нормально, т.к. по поиску ничего не нашёл! RxLib использую от 14.01.2012г. В общем, если у кого также или кому это интересно:

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

procedure TRxDBGrid.DrawFooterRows;
var
...
begin
  TotalWidth := GetClientRect.Right;
// от сель --------------
  if ScrollBarIsVisible(SB_HORZ) then
    TotalYOffs := GCache.ClientHeight - (GetSystemMetrics(SM_CYHSCROLL) +
      GetSystemMetrics(SM_SWSCROLLBARSPACING))
  else
    TotalYOffs := GCache.ClientHeight;
// до сель --------------
...
end;

выделенный комментарий - внесённые изменения. Я не спец в этом деле, но вреде работает!
alexs
Если всё верно, плз добавьте к себе в сорцы или по своему поправьте!
Аватара пользователя
alexs
долгожитель
Сообщения: 4066
Зарегистрирован: 15.05.2005 23:17:07
Откуда: г.Ставрополь
Контактная информация:

Сообщение alexs »

Готово.
Спасибо!
Аватара пользователя
Jura
незнакомец
Сообщения: 7
Зарегистрирован: 24.12.2009 16:18:16
Откуда: Новосибирск

Сообщение Jura »

Здравствуйте. А не могли бы Вы поправить RxTimeEdit. В RxTimeEdit глючат часы, когда они достигают значения >23, не сбрасываются в ноль, а непрерывно растут до 99, а только потом в ноль. А то я использую его в своих небольших программках.
Я правда сам немного поправил ваш файл rxtimeedit.pas
Вместо кода:

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

procedure IncHour;
begin
  H1:=H1+AValue;
  if H1<0 then H1:=0;
end;


Поставил немного другой

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

procedure IncHour;
begin
  H1:=H1+AValue;
  if H1>23 then
      H1:=0
  else
    if H1<0 then
      H1:=23;
end;


Вроде теперь работает как должно. Может кому-нибудь еще пригодится.
vicvala
новенький
Сообщения: 27
Зарегистрирован: 11.06.2011 17:55:25

Сообщение vicvala »

else?
Аватара пользователя
Jura
незнакомец
Сообщения: 7
Зарегистрирован: 24.12.2009 16:18:16
Откуда: Новосибирск

Сообщение Jura »

Да точно. Спасибо.

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

procedure IncHour;
begin
  H1:=H1+AValue;
  if H1>23 then
      H1:=0;
    if H1<0 then
      H1:=23;
end;
Аватара пользователя
alexs
долгожитель
Сообщения: 4066
Зарегистрирован: 15.05.2005 23:17:07
Откуда: г.Ставрополь
Контактная информация:

Сообщение alexs »

Jura
Готово
Аватара пользователя
Jura
незнакомец
Сообщения: 7
Зарегистрирован: 24.12.2009 16:18:16
Откуда: Новосибирск

Сообщение Jura »

Спасибо. :D
a.rander
незнакомец
Сообщения: 5
Зарегистрирован: 20.04.2012 12:26:09

Сообщение a.rander »

В пакете есть ссылка на пакет rx. Где этот пакет брать?
Скачал отсюда, в надежде обнаружить сей пакет svn co https://lazarus-ccr.svn.sourceforge.net ... ponents/rx
Но и там он отсутствует.
svk12
постоялец
Сообщения: 411
Зарегистрирован: 09.06.2008 18:42:47

Сообщение svk12 »

a.rander писал(а):Где этот пакет брать?


Относительно директории, где установлен Лазарь, components\rx\.
vicvala
новенький
Сообщения: 27
Зарегистрирован: 11.06.2011 17:55:25

Сообщение vicvala »

alexs писал(а):
vicvala писал(а):Я о другом hint! Когда данные не видны в ячейкe, то при наведении на неё (ячейку) мыши, всплывает hint с текстом ячейки!

Я такого и не делал. В стандартном гриде вроде тоже нет.
Давай делать.

Спасибо alexs, всё там уже есть!!! Это я не туды!!! :roll:
Ответить