[utf8vcl-cvs] utf8vcl UTF8VCLCommCtrl.pas,NONE,1.1
Status: Alpha
Brought to you by:
bluelive
From: Bart v. d. W. <blu...@us...> - 2007-03-13 21:30:52
|
Update of /cvsroot/utf8vcl/utf8vcl In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv22037 Added Files: UTF8VCLCommCtrl.pas Log Message: Add stub for CommCtrl intercept stuff Seems like a big one to convert. --- NEW FILE: UTF8VCLCommCtrl.pas --- function CreatePropertySheetPage; external cctrl name 'CreatePropertySheetPageA'; function CreatePropertySheetPageA; external cctrl name 'CreatePropertySheetPageA'; function CreatePropertySheetPageW; external cctrl name 'CreatePropertySheetPageW'; function DestroyPropertySheetPage; external cctrl name 'DestroyPropertySheetPage'; function PropertySheet; external cctrl name 'PropertySheetA'; function PropertySheetA; external cctrl name 'PropertySheetA'; function PropertySheetW; external cctrl name 'PropertySheetW'; function ImageList_LoadImage; external cctrl name 'ImageList_LoadImageA'; function ImageList_LoadImageA; external cctrl name 'ImageList_LoadImageA'; function ImageList_LoadImageW; external cctrl name 'ImageList_LoadImageW'; procedure DrawStatusText; external cctrl name 'DrawStatusTextA'; procedure DrawStatusTextA; external cctrl name 'DrawStatusTextA'; procedure DrawStatusTextW; external cctrl name 'DrawStatusTextW'; function CreateStatusWindow; external cctrl name 'CreateStatusWindowA'; function CreateStatusWindowA; external cctrl name 'CreateStatusWindowA'; function CreateStatusWindowW; external cctrl name 'CreateStatusWindowW'; delphi seems to use the callback method to provide windows with the text LVM_SETUNICODEFORMAT LVM_GETITEM LVM_SETITEM LVM_INSERTITEM LVM_FINDITEM LVM_GETSTRINGWIDTH LVM_HITTEST? LVM_GETCOLUMN LVM_SETCOLUMN LVM_INSERTCOLUMN LVM_GETITEMTEXT LVM_SETITEMTEXT LVM_SORTITEMS LVM_GETISEARCHSTRING and the callback of LVN_GETDISPINFO LVN_ODFINDITEM and alot more of the HDM_* and TVM_* |