[Stalker2-42]

Код:

ItemA.fmt  := ItemA.fmt or HDF_SORTUP ;

срелочки рисуются и меняют направление. но стоит кликнуть по другой колонке- в предыдущей, стрелочка остается и цвет колонки header'а остается как будто над ней курсор.

[angvelem]

Гляну, но не прямо сейчас.

Пока навскидку: смешан старый (DrawColumnImage) код с новым (HDF_SORTUP, HDF_SORTDOWN).

[Stalker2-42]

Наврядли. В msdn по THDITEM не нашел толковой инфы. http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx
HDF_BITMAP забыл закоментить.

[angvelem]

Завтра, всё завтра.

[angvelem]

Архив обновлён.

Для уменьшения размера, WinAPI всё-таки, использован UxThemeISX.pas из InnoSetup-а ("родной" много за собой тянет) и Utils.pas. Если размер не критичен, замени UxThemeISX на UxTheme и Utils на SysUtils.

[Stalker2-42]

UxTheme было 567 кб, с UXThemeISX стало 558кб(похудели на немного, но оставил). В Utils нет FloatToStr, а сам делать не буду(доверюсь специалистам), из-за того что не огу знать сколько цифр будет после запятой, и нет FormateDataTeme(кажетс так называется).

[angvelem]

Сообщение от Stalker2-42

...похудели на немного, но оставил...

Различие не в размерах исходных файлов, а в получаемом бинарнике. На данный момент у меня 25 Кб.
Для информации:

Код:

function FloatToStr(Value: Extended; Width, Decimals: Integer) : String;
begin
  Str(Value : Width : Decimals, Result);
end;

Вторую функцию нет смысла переписывать полностью, достаточно только нужную для работы часть.

[Stalker2-42]

А где можно найти исходник SysUtils.pas или FileExists и FormateDateTime?

Код:

function FileAge(const FileName: string): Integer;   
 {$IFDEF MSWINDOWS}   
 var   
     Handle: THandle;   
     FindData: TWin32FindData;   
     LocalFileTime: TFileTime;   
 begin   
     Handle:=FindFirstFile(PChar(FileName), FindData);   
     if Handle<>INVALID_HANDLE_VALUE then   
     begin   
        Windows.FindClose(Handle);   
        if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY)=0 then   
        begin   
           FileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFileTime);   
           if FileTimeToDosDateTime(LocalFileTime, LongRec(Result).Hi,   
              LongRec(Result).Lo) then   
              Exit;   
        end;   
     end;   
     Result:=-1;   
 end;   
 {$ENDIF}   
 {$IFDEF LINUX}   
 var   
     st: TStatBuf;   
 begin   
     if stat(PChar(FileName), st)=0 then   
        Result:=st.st_mtime   
     else   
        Result:=-1;   
 end;   
 {$ENDIF}   
  
 function FileExists(const FileName: string): Boolean;   
 {$IFDEF MSWINDOWS}   
 begin   
     Result:=FileAge(FileName)<>-1;   
 end;   

[angvelem]

Это шутка? Загляни в папку Source.

[NumLock]

Сообщение от Stalker2-42

А где можно найти исходник SysUtils.pas или FileExists и FormateDateTime?

зажимай Ctrl и кликай на эти функции

[Stalker2-42]

Сообщение от angvelem

Это шутка? Загляни в папку Source.

Embarcadero\RAD Studio\7.0\source\dUnit нет там подобного.

[Stalker2-42]

Сообщение от NumLock

зажимай Ctrl и кликай на эти функции

Unable to locate file 'jfgjfghj.pas'.

[angvelem]

Всё там есть. И причём тут dunit? Далее в папку win32\rtl\sys.

[Stalker2-42]

Кроме папки dUnit, нет ниченго. Да и в ней то же нет подобного. Не первый раз искал. Нашел на китайском сайте, но для скачивание требует логин. пытался скопировать - Opera виснет.

[angvelem]

Значит у тебя огрызок Дельфи.