Hi!
I just went through the massena newsgroup (I found it a few minutes ago)
and there was a hint about setting controls BEFORE calling FrmDrawForm.
So after setting the modal form as active a call a FrmDrawForm)
For those who are interested in the solution:
( I just have to add the uncommented line )
Ralf Beckers wrote:
> Here is my code:
> ---- Code wich shows the modal form an reactivates the previous on
> FrmSetActiveForm(modalfrmptr);
FrmDrawForm(modalfrmptr);
> list = GetObjectPtr(KategorieKategorieList);
> LstSetListChoices(list, NULL, DmNumRecords(gKategorieDB));
> if (DmNumRecords(gKategorieDB) > 0)
> {
> LstSetSelection(list,0);
> h = DmQueryRecord(gKategorieDB,0);
> k = MemHandleLock(h);
> SetFieldTextFromStr(KategorieNameField, k->Name);
> MemHandleUnlock(h);
> DmReleaseRecord(gKategorieDB,0,true);
> }
>
> LstSetDrawFunction(list, ListKategorieBearbeitenDrawFunc);
> FrmSetEventHandler(frm, KategorieHandleEvent);
> button = FrmDoDialog(frm);
> FrmSetActiveForm(previousForm);
Thanks if you though about a solution :-)
bexxx
--
"Donuts - is there anything they can't do?"
Homer J. Simpson
