:-)

Much still needs implemented, but basic functionality is there. There is no support for character sets that use more than one byte per char. I'm also not sure how well it will react to the clipboard.

Probably will have some issues going from Delphi to Lazarus, but it solves my problem of needing a mask for my calendar edit control. I have tested it with some basic masks, but there may be problems with more complex display.

Works for me, except it wraps off the left side back to the right for some reason... lol

-Tony

Maybe I'm using it the wrong way, try the next editmask: '00-00-00;0;?'. What I'm trying to do is not to store the literals '-'. When I use 00-00-00;1;? it works ok :).

Jesus Reyes A.

--- Tony Maro escribi�: > Works for me, except it wraps off the left side back to the right

_________________________________________________________ Do You Yahoo!?
La mejor conexi�n a internet y 25MB extra a tu correo por $100 al mes. http://net.yahoo.com.mx

Hi, Tony its nice!. I tested and It seem to have problems with backspace.

Regards.

Jesus Reyes A.

--- Tony Maro escribi�: >

_________________________________________________________ Do You Yahoo!?
La mejor conexi�n a internet y 25MB extra a tu correo por $100 al mes. http://net.yahoo.com.mx

Mmm... I see what you mean. The 00-00-00;0;? works GREAT until you use backspace... then weirdo

Bleh. My backspace code is a horrible hack anyway. Give me some time I'll see what I can do. Part of the problem is I don't understand the way it was originally supposed to work.

Gotcha. Thanks!

Sorry, I ment AOwner.

Mattias

csDesigning is copied from its owner in the constructor of TComponent. Before the 'inherited Create' you can use this:

if (Ownernil) and not (csDesigning in Owner.componentstate) then begin

Mattias

Still a glitch or two, but this comes a heck of a lot closer. Code needs some serious cleanup now, but it's functional for storing / not storing the mask, and for the replacement blank space characters as well (I think.)

I've noticed that the csDesigning check doesn't seem to work anymore. Is there a bug in Lazarus or the LCL that breaks this? I can't get the designing check to work in anything I do...

Initial display of the mask may be weird. I can't quite seem to get it to handle creation properly. I think it's related to the possible csDesigning bug I mentioned.

Thanks,

Tony

-------------- next part --------------
A non-text attachment was scrubbed...
Name: gz00020.gz
Type: application/octet-stream
Size: 8059 bytes
Desc: "mask.pp.gz"
Url : http://localhost/pipermail/lazarus/attachments/20030416/b3b8ab7a/gz00020.obj

It works for me. When/Where do you check csDesigning?

Initial display of the mask may be weird. I can't quite seem to get it to handle creation properly. I think it's related to the possible csDesigning bug I mentioned.

Mattias

Well, the mask.pp is pretty complex in that and may have a bug, however the help system component I'm working on is simple.

constructor THelpSystem.create(AOwner: TComponent);
begin
  // squeeze myself into the form's OnKeyUp event
  // without ignoring anything already set there...
  FForm := nil;
  FOldKeyUp := nil;
  FItems := TStringList.Create;
  if not(csDesigning in componentstate) then begin
    if AOwner is TForm then begin
      FForm := AOwner as TForm;
      if assigned(FForm.OnKeyUp) then begin
        FOldKeyUP := FForm.OnKeyUp;
      end;
      FForm.OnKeyUP := @FormKEYUP;
      FForm.KeyPreview := True;
    end;
  end;
  inherited create(AOwner);
end;

Despite the fact that the section that assigns the OnKeyUp event is supposed to be checking to see if we're csDesigning, as soon as you drop this component on a form, it affects the OnKeyUp event of the form, changing it to "<unpublished>".

Now, I don't plan on using this code later, because of the changes discussed, but it illustrates the problem I'm having.

This is a fresh CVS download of Lazarus from a few hours ago.

-Tony

Jesus Reyes,

It's cleaned up and ready for primetime. Mattias has added it to the component palette under "Additional". I just sent him a patch to fix 2 warnings and a writeln I accidentally left in while debugging.

Have at it for the grid... He renamed the unit maskedit.pp

-Tony