Версия 2.50

← →
Vladimir Kladov (2007-01-01 14:59) [0]

Новости от 1 января 2007 (KOL & MCK v2.50)

[*] Новая версия реализации свойства Align предложена Владимиром
Галковым. Для ее использования необходимо добавить символ NEW_ALIGN в
свойства проекта (Conditional defines).

С Новым Годом!

← →
MTsv DN © (2007-01-02 14:47) [1]

Остался косяк с FileSize!!!

Владимир, обсуждение здесь: http://delphimaster.net/view/11-1166730914/

← →
Vladimir Kladov (2007-01-02 17:19) [2]

Не смертельно. Таких файлов пока немного :)

← →
MTsv DN © (2007-01-02 17:29) [3]

> Не смертельно. Таких файлов пока немного :)
Не смертельно, конечно, но Вы чуть не вчитывались видимо ;) Про файлы >4Гига, это мы потом с Галковым обсуждать стали...а в моем тестовом примере,в [0]. Файл создается всего лишь 512 кБ, а на выходе получается,что его размер равен 72339446972273152!!!

← →
Vladimir Kladov (2007-01-02 22:03) [4]

Вот как. А я предполагал, что поля reserved в той структуре будут нули. Поправлю, конечно. Но пока есть API-функция.

← →
MTsv DN © (2007-01-03 22:56) [5]

> Новая версия
Доступно на http://www.kolnmck.ru

← →
_gandalf_ (2007-01-04 00:14) [6]

svn

Вот вижу только обновленный Kol.pas (???)
Но тогда получается, что использовать NEW_ALIGN возможно только совместно с PAS_VERSION

Может быть и здесь уместно будет (в связи с преамбулой)....
Вот такой fix нужен:

//[function TControl.TC_Insert] function TControl.TC_Insert(Idx: Integer; const TabText: KOLString; TabImgIdx: Integer): PControl; var TI: TTCItem; begin Result := NewPanel( @Self, esNone ); {$IFDEF OLD_ALIGN} Result.FAlign := caClient; Result.fNotUseAlign := True; Result.fVisibleWoParent := TRUE; {$ELSE NEW_ALIGN} Result.Align := caClient; {$ENDIF} Result.Visible := Count = 0; TI.mask := TCIF_TEXT or TCIF_IMAGE or TCIF_PARAM; TI.iImage := TabImgIdx; TI.pszText := PKOLChar( TabText ); TI.lParam := Integer( Result ); Perform( TCM_INSERTITEM, Idx, Integer( @TI ) ); {$IFDEF OLD_ALIGN} Result.BoundsRect := TC_DisplayRect; {$ENDIF} Perform(WM_SIZE,0,0); //May be changes of margins for TabControl end;

Версия 2.50 Найти похожие ветки