Sorry to use the abbreviation.
PG = Programmers Guide (=developers guide)
I execute as follows:
procedure TformMain.MyDuallistCustomizeControls(Sender: TObject);
begin
MyDuallist.LeftList.Style:=lbOwnerDrawVariable; //works fine
MyDuallist.RightList.Style:=lbOwnerDrawVariable; //works fine
MyDuallist.LeftList.OnDragDrop:=lstbVdispShowOrgDragDrop; //works fine
MyDuallist.RightList.OnDragDrop:=lstbVdispShowOrgDragDrop; //works fine
MyDuallist.LeftList.OnDragOver:=lstbVdispShowOrgDragOver; //works fine
MyDuallist.RightList.OnDragOver:=lstbVdispShowOrgDragOver; //works fine
MyDuallist.LeftList.DragMode:=dmAutomatic; //works fine
MyDuallist.LeftList.OnDrawItem:=lstbVdispShowOrgDrawItem; //works fine
MyDuallist.RightList.OnDrawItem:=lstbVdispShowOrgDrawItem;//works fine
MyDuallist.LeftList.ItemHeight:=20; //works fine
MyDuallist.RightList.ItemHeight:=20; //works fine
MyDuallist.BtnRightOne.Height:=33; //Doesn't work
MyDuallist.BtnRightOne.Width:=33; //Doesn't work
MyDuallist.BtnRightAll.Height:=33; //Doesn't work
MyDuallist.BtnRightAll.Width:=33; //Doesn't work
MyDuallist.BtnLeftOne.Height:=33; //Doesn't work
MyDuallist.BtnLeftOne.Width:=33; //Doesn't work
MyDuallist.BtnLeftAll.Height:=33; //Doesn't work
MyDuallist.BtnLeftAll.Width:=33; //Doesn't work
end;
Br.
Anders Balslev