1. Толщина рамки TfrMemoView в дизайнере сохраняется в lrf-файл нормально, а считывается плохо.
Мне нужно было сохранить значение FrameWidth Value="0,5". При открытии дизайнера или репорта получал FrameWidth Value="1".
В юните LR_Class в процедуре procedure TfrView.LoadFromXML(XML: TXMLConfig; Path: String) изменил строчку
- Код: Выделить всё
FFrameWidth := XML.GetValue(Path+'Frames/FrameWidth/Value', 1); // TODO Check default
на строчку
- Код: Выделить всё
FFrameWidth := StrToDouble(XML.GetValue(Path+'Frames/FrameWidth/Value', '1')); // TODO Check default
и все заработало.
2. Также вообще не сохранялась информация в lrf-файле о стиле, толщине, цвете линий TfrLineView.
В том же юните в классе TfrLineView = class(TfrView) опубликовал property Frames
- Код: Выделить всё
TfrLineView = class(TfrView)
public
constructor Create; override;
procedure Draw(aCanvas: TCanvas); override;
procedure DefinePopupMenu(Popup: TPopupMenu); override;
function GetClipRgn(rt: TfrRgnType): HRGN; override;
published
property Frames;//<-------------
property FrameColor;
property FrameStyle;
property FrameWidth;
end;
... и все работает.
Не знаю, нужно это писать в багрепорт или и здесь будет достаточно?
Теперь вопросы.
1. Как программно закрыть репорт? Хочу, чтобы после отправки репорта на печать он сам закрывался.
2. В репорте не работает поиск. Как быть? Это баг или я не правильно пытаюсь искать?
WinXP, SP2. Lazarus 0.9.25 beta, 2008-06-19, SVN Revision: 15331, FPC 2.2.0
