paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 19:59:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, fixed storing more properties of checkboxview, fixed finding dataset components on different forms (from Aleks Lagunov)

Browse Source 
git-svn-id: trunk@12054 -
This commit is contained in:
jesus 2007-09-17 16:03:43 +00:00
parent 0f4b37d257
commit 0efab1aa67
2 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/lazreport/source/lr_chbox.pas
View File

@ -51,10 +51,14 @@ type
procedure LoadFromXML(XML: TXMLConfig; Path: String); override; procedure LoadFromXML(XML: TXMLConfig; Path: String); override;
procedure SaveToXML(XML: TXMLConfig; Path: String); override; procedure SaveToXML(XML: TXMLConfig; Path: String); override;
published published
property Frames;
property FillColor;
property Checked : Boolean read fChecked write fChecked; property Checked : Boolean read fChecked write fChecked;
property FillColor;
property FrameColor;
property Frames;
property FrameStyle;
property FrameWidth;
property Script;
end; end;

9
components/lazreport/source/lr_utils.pas
View File

@ -321,14 +321,7 @@ begin
begin begin
s3 := Copy(s2, Pos('.', s2) + 1, 255); s3 := Copy(s2, Pos('.', s2) + 1, 255);
s2 := Copy(s2, 1, Pos('.', s2) - 1); s2 := Copy(s2, 1, Pos('.', s2) - 1);
f := nil; f:=FindGlobalComponent(S1);
if Assigned(Application.FindComponent(S1)) then
begin
if Application.FindComponent(S1) is TDataSet then
f := Application.FindComponent(S1) //FindGlobalComponent(s1);
else if Application.FindComponent(S1) is TDataSource then
f := TDataSource(Application.FindComponent(S1)).DataSet;
end;
if f <> nil then if f <> nil then
begin begin
DataSet := TfrTDataSet(f.FindComponent(s2)); DataSet := TfrTDataSet(f.FindComponent(s2));