Форум: "Начинающим";
Текущий архив: 2018.09.02;
Скачать: [xml.tar.bz2];
Вниз
Как получить выравнивание текста колонки Найти похожие ветки
← →
p © (2016-08-03 10:52) [0]подскажите пожалуйста, так возвращает всегда HDF_LEFT
var
AItem: THDItem;
///
if Header_GetItem(HeaderHandle, Header_OrderToIndex(HeaderHandle, Index), AItem) then
begin
if (AItem.fmt and HDF_LEFT) = HDF_LEFT then
Form1.Caption := "HDF_LEFT"
else if (AItem.fmt and HDF_RIGHT) = HDF_RIGHT then
Form1.Caption := "HDF_RIGHT"
else if (AItem.fmt and HDF_CENTER) = HDF_CENTER then
Form1.Caption := "HDF_CENTER";
end;
← →
p © (2016-08-03 10:54) [1]Хотя тот же код корректно возвращает ширину, текст, тип сортировки
← →
Rouse_ © (2016-08-03 11:58) [2]
var
HeaderHandle: THandle;
AItem: THDItem;
I: Integer;
S: string;
begin
HeaderHandle := ListView_GetHeader(ListView1.Handle);
ZeroMemory(@AItem, SizeOf(THDItem));
AItem.Mask := HDI_FORMAT;
for I := 0 to 2 do
begin
Header_GetItem(HeaderHandle, Header_OrderToIndex(HeaderHandle, I), AItem);
if (AItem.fmt and HDF_RIGHT) = HDF_RIGHT then
S := S + IntToStr(I) + " = HDF_RIGHT"
else
if (AItem.fmt and HDF_CENTER) = HDF_CENTER then
S := S + IntToStr(I) + " = HDF_CENTER"
else
S := S + IntToStr(I) + " = HDF_LEFT";
S := S + sLineBreak;
end;
ShowMessage(S);
end;
← →
p © (2016-08-03 13:13) [3]Спасибо Александр, два дня мучался весь нет перерыл
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2018.09.02;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.001 c
