Add DBLookupCombobox to Delphi DBGrid -


i'd add dblookupcomboboxes columns in dbgrid. there nice article on about.com on how here. problem table having many columns, if select dblookupcombobox in 1 column , try scroll left, combobox move left shown in included images. how can about.com code can changed prevent behavior? web search showed 2 others complaining of exact same problem no solution. note want use dblookupcombobox show name enter id, using simple picklist not do.

using combobox scroll left

procedure tform1.dbgrid1colexit(sender: tobject); begin   if dbgrid1.selectedfield.fieldname = dblookupcombobox1.datafield     dblookupcombobox1.visible := false end;  procedure tform1.dbgrid1drawcolumncell(sender: tobject; const rect: trect;   datacol: integer; column: tcolumn; state: tgriddrawstate); begin   if (gdfocused in state)   begin     if (column.field.fieldname = dblookupcombobox1.datafield)     dblookupcombobox1     begin       left := rect.left + dbgrid1.left + 2;       top := rect.top + dbgrid1.top + 2;       width := rect.right - rect.left;       width := rect.right - rect.left;       height := rect.bottom - rect.top;        visible := true;     end;   end end;  procedure tform1.dbgrid1keypress(sender: tobject; var key: char); begin   if (key = chr(9)) exit;    if (dbgrid1.selectedfield.fieldname = dblookupcombobox1.datafield)   begin     dblookupcombobox1.setfocus;     sendmessage(dblookupcombobox1.handle, wm_char, word(key), 0);   end end;  procedure tform1.formcreate(sender: tobject); begin  dblookupcombobox1  begin    datasource := datasource1; // -> adotable1 -> dbgrid1    listsource := datasource2;    datafield   := 'resource_id'; // adotable1 - displayed in dbgrid    keyfield  := 'id';    listfield := 'resource_name; id';     visible    := false;  end;   datasource2.dataset := adoquery1;   adoquery1.connection := adoconnection1;  adoquery1.sql.text := 'select id,resource_name resources';  adoquery1.open; end;

here 1 solution using neat hack françois.

type     // hack redeclare tdbgrid here without the form designer going mad     tdbgrid = class(dbgrids.tdbgrid)       procedure wmhscroll(var msg: twmhscroll); message wm_hscroll;     end;    tform1 = class(tform) [...] procedure tdbgrid.wmhscroll(var msg: twmhscroll); begin   if form1.dbgrid1.selectedfield.fieldname = form1.dblookupcombobox1.datafield begin     case msg.scrollcode of       sb_left,sb_lineleft,sb_pageleft: begin         form1.dbgrid1.selectedindex := form1.dbgrid1.selectedindex-1;         form1.dblookupcombobox1.visible := false;       end;       sb_right,sb_lineright,sb_pageright: begin         form1.dbgrid1.selectedindex := form1.dbgrid1.selectedindex+1;         form1.dblookupcombobox1.visible := false;       end;     end;   end;   inherited; // keep expected behavior end;

Comments

Post a Comment

Popular posts from this blog

resizing Telegram inline keyboard -

telegram's inline keyboard great feature lots of different use cases. inline buttons added list of items this: inline_keyboard = [[inlinekeyboardbutton(text="button", callback_data="button"), inlinekeyboardbutton(text="reset",callback_data="reset")]] inline_keyboard_markup = inlinekeyboardmarkup(inline_keyboard) update.message.reply_text("hi", reply_markup=inline_keyboard_markup) the above code adds 2 buttons each half width of chat screen. i know the normal keyboard button there resize_keyboard parameter somehow can used. my question is there way resize inline buttons ? example make full width or quarter width. unfortunately, can't now. :( you can suggest @botsupport , might add feature next version.
Read more

command line - How can a Python program background itself? -

consider following python command-line program. doesn't work because incomplete, think illustrates problem: #!/usr/bin/python3 import multiprocessing pool = multiprocessing.pool() task in expensive_iterator_with_user_interaction(): pool.call_async(expensive_computation, (task,)) pool.close() print("dear user, may press ctrl-z , bg script.") pool.join() thus, problem scripts needs user input while it's launching expensive parallel processes. there moment when user interaction not needed anymore. then, ask user background process shell actions. however, can achieved program itself? (side note: core of problem entanglement of user input firing “expensive computations”. therefore, cannot separate both in 2 scripts, , letting 1 spawning other daemon.) the command screen may you. use screen -l create new session , run application. after inputting data, can press " ctrl-a " , press " d " on keyboard detach session. now...
Read more

php - "cURL error 28: Resolving timed out" on Wordpress on Azure App Service on Linux -

Image
my wordpress installation on azure app service on linux using custom docker container has slow response times. pages take around 20-40 seconds load. i have troubleshooting plugin installed indicates problem "curl error 28: resolving timed out after n milliseconds" when making requests following urls https://api.wordpress.org/core/version-check/1.7/ http://api.wordpress.org/core/version-check/1.7/ https://api.wordpress.org/plugins/update-check/1.1/ http://api.wordpress.org/plugins/update-check/1.1/ https://api.wordpress.org/themes/update-check/1.1/ http://api.wordpress.org/themes/update-check/1.1/ curl works fine on scm-site command line. example works ok. curl -x post http://api.wordpress.org/core/version-check/1.7/ edit if ssh container , run php code, works fine. <?php $url = 'http://api.wordpress.org/core/version-check/1.7/'; $fields = array( 'version' => urlencode('4.8.1'), 'php' => urlencode(...
Read more