Joe -
Thank you for your response. First, let me say that I am quite new to
the Palm, so I do not have a great depth in knowledge about the inner
workings.
What I have created is a "dynamic" Popup List. That is, I get data from
a DB and populate the list.
+++
procedure ListFromDBCallBack(ItemNum: Int16;
Bounds: RectanglePtr;
var Items: PChar);
var
RecordHandle: MemHandle;
RecordPtr: PChar;
begin
// TextPtr contains <Edit> and is placed at the end of the List
// The global var, PSCurrentDB has to be used inside the CallBack
if ItemNum = RecordCount(PSCurrentDB) -
NumRemovedRecords(PSCurrentDB) then
begin
WinDrawChars(TextPtr, StrLen(TextPtr),
Bounds.topLeft.x, Bounds.topLeft.y);
end else
begin
// Place the items in the DB onto the List
RecordHandle := DmQueryRecord(PSCurrentDB.Db, ItemNum);
RecordPtr := MemHandleLock(RecordHandle);
WinDrawChars(RecordPtr, StrLen(RecordPtr),
Bounds.topLeft.x, Bounds.topLeft.y);
MemHandleUnlock(RecordHandle);
end;
end;
+++
This works like a champ. However, if I select any area *except* one of
the items on the list, the List disappears leaving behind a blank area
(no repainting of the Form).
Todd
--
Dr. Todd Cary
Ariste Software
2200 D Street Extension
Petaluma, CA 94952
707-773-4523
[EMAIL PROTECTED]
--
For information on using the Palm Developer Forums, or to unsubscribe, please see
http://www.palmos.com/dev/support/forums/
