Custom Autosearch Forms
Guys
I have established how to create the custom forms and all is ticking along
nicely.
I have combo box's date controls, labels to explain what to do etc lovely..
Only question I have now is this...
In the default behaviour if you select the Show All values check box the
controls are disabled..how can I get the same functionality for my controls
on my custom panels???
Also did you know that there is a slight bug..
If you press the CAPS Lock key watch what happens...the caps lock key checks
the all values box for you..try it
Cheers in advance
Mark
I have established how to create the custom forms and all is ticking along
nicely.
I have combo box's date controls, labels to explain what to do etc lovely..
Only question I have now is this...
In the default behaviour if you select the Show All values check box the
controls are disabled..how can I get the same functionality for my controls
on my custom panels???
Also did you know that there is a slight bug..
If you press the CAPS Lock key watch what happens...the caps lock key checks
the all values box for you..try it
Cheers in advance
Mark
This discussion has been closed.
Comments
I was a dumb ass..worked out how to do this as its in the demo code!!!!
The bug thing is still true tho
Cheers
Mark
Thanks for pointing this out. I researched this and the behavior happens
when the edit box has focus and is empty. Try modifying the
EditControlKeyUpEvent to be like what is shown here. (We will make this
change for the next release.)
procedure TppSimpleSearchPanel.EditControlKeyUpEvent(Sender: TObject; var
Key: Word; Shift: TShiftState);
const
cIgnoreKeys = [VK_TAB, VK_CAPITAL, VK_CONTROL, VK_SHIFT, VK_MENU,
VK_INSERT, VK_DELETE, VK_NUMLOCK];
begin
if FShowAllValues.Visible and not(Key in cIgnoreKeys) then
FShowAllValues.Checked := Length(FEditControl.Text) = 0;
end; {procedure, EditControlKeyUpEvent}
--
Nard Moseley
Digital Metaphors Corporation
http://www.digital-metaphors.com
Best regards,
Nard Moseley
Digital Metaphors
www.digital-metaphors.com