BorlandTalk.com

Boyan · Guest

Hi

I want to make some kind of spin edit, and I have one TEdit (main control)
and TSpinButtons (TCustomControl). How
to place this buttons in Edit (on right side) and then to move right margin
of Edit to disable typing on space where are buttons.

Thanks and Regards
Boyan

Boyan · Guest

Hi Again,

For some reason next code (from Spin.pas) do large flickering?!

var
Loc: TRect;
begin
SendMessage(Handle, EM_GETRECT, 0, LongInt(@Loc));
Loc.Bottom := ClientHeight + 1; {+1 is workaround for windows paint bug}
Loc.Right := ClientWidth - FButton.Width - 2;
Loc.Top := 0;
Loc.Left := 0;
SendMessage(Handle, EM_SETRECTNP, 0, LongInt(@Loc));
SendMessage(Handle, EM_GETRECT, 0, LongInt(@Loc)); {debug}
end;

Is there any workaround for this, to disable flickering? If text are changed
a little bit faster you will see a large flickering.

Thanks
Boyan

"Boyan" <nikolicspamoffbojan (AT) hotmail (DOT) com> wrote

Remy Lebeau (TeamB) · Guest

"Boyan" <nikolicspamoffbojan (AT) hotmail (DOT) com> wrote

Boyan · Guest

Hi

Yes, I know about TUpDown,

But I want to create my own spinedit (and to learn this) and to have buttons
inside Edit and then in future to add something more.

Boyan.

"Remy Lebeau (TeamB)" <gambit47 (AT) yahoo (DOT) com> wrote

Gnum · Guest

May be not "inside" but "aside" ?
You should better create new control that contains of
TEdit and TSpin or whatever...

calss TMyControl : public TWinControl
{
private:
TEdit* Edit;
TUpDown* UpDown;
. . .
...so on...
}

What's wrong with this way?

Gnum

"Boyan" <nikolicspamoffbojan (AT) hotmail (DOT) com> wrote