Форум: "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.038 c