Subject | Re: [IBO] New TEST sub-release to all areas |
---|---|
Author | Geoff Worboys |
Post date | 2001-01-21T13:05:50Z |
Whoops!
I did discover a problem that you will have in pre Delphi/C++Builder
v5. In IBC_Label.pas you will need to add the lines marked below
before being able to compile the update.
procedure TIB_AutoLabel.SetModel(const M:TControl);
var
TmpLbl: TCustomLabel;
begin
if (M<>FModel) then begin
TmpLbl := GetModelLabel;
if TmpLbl <> nil then begin
if TmpLbl is TIB_Label then
TIB_Label(TmpLbl).RemoveModelRef( Self )
{$IFDEF IBO_VCL50_OR_GREATER} //<-- Add
else if Assigned(theLabel) then
FModel.RemoveFreeNotification( theLabel );
{$ELSE}; //<-- Add
{$ENDIF} //<-- Add
end;
FModel:=M;
RemoveFreeNotification does not exist before v5. The online help in
v5 says that it probably not necessary, but I prefer to leave the call
in there for v5 for the sake of completeness.
I meant to check under BCB4 before the changes were released, but
forgot. Sorry for any inconvenience.
Geoff Worboys
Telesis Computing
I did discover a problem that you will have in pre Delphi/C++Builder
v5. In IBC_Label.pas you will need to add the lines marked below
before being able to compile the update.
procedure TIB_AutoLabel.SetModel(const M:TControl);
var
TmpLbl: TCustomLabel;
begin
if (M<>FModel) then begin
TmpLbl := GetModelLabel;
if TmpLbl <> nil then begin
if TmpLbl is TIB_Label then
TIB_Label(TmpLbl).RemoveModelRef( Self )
{$IFDEF IBO_VCL50_OR_GREATER} //<-- Add
else if Assigned(theLabel) then
FModel.RemoveFreeNotification( theLabel );
{$ELSE}; //<-- Add
{$ENDIF} //<-- Add
end;
FModel:=M;
RemoveFreeNotification does not exist before v5. The online help in
v5 says that it probably not necessary, but I prefer to leave the call
in there for v5 for the sake of completeness.
I meant to check under BCB4 before the changes were released, but
forgot. Sorry for any inconvenience.
Geoff Worboys
Telesis Computing