Текущий архив: 2018.09.02;
Скачать: CL | DM;

Вниз

Как получить выравнивание текста колонки   Найти похожие ветки 

← →
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;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.003 c