source code bug, please fix it
ibrahim bulut
turkey
i have found a bug in fr source code
when i try to change group header band's condition property in runtime,
i get error message
procedure TForm1.GroupSet(FieldName : String);
Var BB : TfrMemoView;
begin
BB:=TfrBandView(FRHESREC.FindObject('GroupHeader1'));
if (BB <> Nil) Then BB.Prop:='[Query1."' + FieldName + '"]';
end;
fr_class.pas
procedure TfrBandView.SetPropValue(Index: String; Value: Variant);
.
..
...
else if Index = 'CONDITION' then
begin
GroupCondition := Value;
if DocMode = dmPrinting then
Parent.GroupCondition := Value
end
it must be
GroupCondition := Value;
if (DocMode = dmPrinting) and (Parent <> Nil) Then Parent.GroupCondition:=Value
please change it original source code
when i try to change group header band's condition property in runtime,
i get error message
procedure TForm1.GroupSet(FieldName : String);
Var BB : TfrMemoView;
begin
BB:=TfrBandView(FRHESREC.FindObject('GroupHeader1'));
if (BB <> Nil) Then BB.Prop:='[Query1."' + FieldName + '"]';
end;
fr_class.pas
procedure TfrBandView.SetPropValue(Index: String; Value: Variant);
.
..
...
else if Index = 'CONDITION' then
begin
GroupCondition := Value;
if DocMode = dmPrinting then
Parent.GroupCondition := Value
end
it must be
GroupCondition := Value;
if (DocMode = dmPrinting) and (Parent <> Nil) Then Parent.GroupCondition:=Value
please change it original source code