Форум: "KOL";
Текущий архив: 2007.08.12;
Скачать: [xml.tar.bz2];
ВнизВерсия 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
← →
Galkov © (2007-01-04 15:17) [7]Вот вижу только обновленный 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;
Страницы: 1 вся ветка
Форум: "KOL";
Текущий архив: 2007.08.12;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.042 c