[Lazarus] Expanding EditBox

[Paul Ishenin]

03.02.2010 7:23, JoshyFun wrote:

> I had a little extend feature for EditBox but it needs a message in
> Windows (only to get a bit better look) and in other platforms it
> could be solved using plain LCL. So the question is how to integrate
> that message for Win32/64 without the usual #ifdef. Should a new
> function be added to intfbasewinapi ? or is there a better way to do
> it ? The message is an EM_ message for TextBox.

You can add TWSCustomEdit.SetSomething() and override it on win32 
widgetset only:

class procedure TWin32WSCustomEdit.SetSomething(Edit: TCustomEdit; 
State: Boolean);
begin
   // this protects from ocasional call of SetSomething while handle is 
not yet allocated
   if not CheckWSHandleAllocated(...) then
     Exit;

   // this performs your call
   SendMessage(TWin32WSCustomEdit.Handle, EM_..., WParam, LParam);
end;

In the LCL code you write where you need this:

   TWSCustomEditClass(WidgetSetClass).SetSomething(Self, ...);

Best regards,
Paul Ishenin.