Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "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.091 c
15-1184656512
VID
2007-07-17 11:15
2007.08.12
Кто из Питера? Вопрос о съеме квартиры


3-1177504661
Alek Arbuzov
2007-04-25 16:37
2007.08.12
Вопрос кеширования данных из базы на локальной машине


2-1184491327
>>DEATH<<
2007-07-15 13:22
2007.08.12
сслки из хтмл кода


2-1183456368
azamatufa
2007-07-03 13:52
2007.08.12
ADO, Ehlib. Коллеги, подскажите, пожалуйста!


2-1184297161
Riply
2007-07-13 07:26
2007.08.12
Объявление структур по-русски :)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский