использование компонента TShellListView [D6, WinXP]
jura © (2005-05-31 15:37:00)
для выбора файлов использую компонент TShellListView. во время
их выбора неплохо видеть размер файла и поэтому свойство ViewStyle
ставлю = vsReport, не могу добиться фиксированого размера колонок,
при изменении каталогов ширина колонок меняется, почемуто
ShellListView1.Columns[0].AutoSize:=false; не помогает.
Спасибо
Ученик (2005-05-31 22:53:00) [1]
Delphi?\Demos\ShellControls\ShellCtrls.pas
procedure TCustomShellListView.EnumColumns;
...
procedure AddDefaultColumns(const ColCount: integer =
1);
begin
if ColCount > 0 then
AddDefaultColumn(SShellDefaultNameStr,
taLeftJustify, 25);
if ColCount > 1 then
AddDefaultColumn(SShellDefaultSizeStr,
taRightJustify, 10);
if ColCount > 2 then
AddDefaultColumn(SShellDefaultTypeStr,
taLeftJustify, 10);
if ColCount > 3 then
AddDefaultColumn(SShellDefaultModifiedStr, taLeftJustify,
14);
end;
Наверх 
ЧАТ |
Орешник |
|
