Subject | Re: [IBO] TIB_SpinEnhEdit bug |
---|---|
Author | Geoff Worboys |
Post date | 2001-01-05T00:55:47Z |
> I'm using this component tied to smallint field. I noticedThe display problem sounds like it may be a bug in the underlying
> that when I open my form second time, the value isn't shown,
> but when I focus into this control the value shows up on top
> of right-side scrolling arrows. I got it fixed now by using
> left-align ,but still... Is it just me and my form?
CustomEditEnh control. I have a new version that I have been working
on and I did come across a display issue when changing dataset states
(the mask not being reset properly) which I think I have resolved, it
could be that this is causing (at least part) of your problem.
I was going to wait for IBOv4 to distribute the new CustomEditEnh
control because the changes are widespread, and Jason wants to have v3
stabilise to a "rock solid" version.
So what to do?... If you have full source, you could try editing
CustomEditEnh.pas and replacing the SetMaskMode procedure with the
following and rebuilding the package...
procedure TCustomEditEnh.SetMaskMode( AValue: TMaskEnhMode );
var
ClearMsk: boolean;
begin
if Mask = nil then begin
if AValue <> eemNone then begin
MakeMask;
Mask.Mode := AValue;
Inc(FMaskChanging);
try
RefreshDisplayedText;
finally
Dec(FMaskChanging);
end;
end;
end
else begin
if Mask.Mode <> AValue then begin
if (AValue = eemNone) and (Mask.MaskLen <= 0) then
ClearMsk := true
else ClearMsk := false;
Mask.Mode := AValue;
if ClearMsk then
SetEditMask( '' );
Inc(FMaskChanging);
try
RefreshDisplayedText;
finally
Dec(FMaskChanging);
end;
end;
end;
end;
Let me know if this resolves your problem. If so I will update the v3
distribution accordingly. If not, I may need you to send me a
demonstration of the problem so that I can work out where it is going
wrong.
Geoff Worboys
Telesis Computing