Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Версия 2.50 [Delphi, KOL/MCK, Windows]

Vladimir Kladov © (2007-01-01 14:59:00)
Новости от 1 января 2007 (KOL & MCK v2.50)

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

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

Galkov (2007-01-04 15:17:00) [1]
Вот вижу только обновленный 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;

_gandalf_ (2007-01-04 00:14:00) [2]
svn

MTsv DN (2007-01-03 22:56:00) [3]
> Новая версия
Доступно на http://www.kolnmck.ru

Vladimir Kladov (2007-01-02 22:03:00) [4]
Вот как. А я предполагал, что поля reserved в той структуре будут нули. Поправлю, конечно. Но пока есть API-функция.

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

Vladimir Kladov (2007-01-02 17:19:00) [6]
Не смертельно. Таких файлов пока немного :)

MTsv DN (2007-01-02 14:47:00) [7]
Остался косяк с FileSize!!!

Владимир, обсуждение здесь: http://delphimaster.ru/cgi-bin/forum.pl?id=1166730914&n=10

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »