Главная страница
    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.042 c
2-1184158240
AZIZE
2007-07-11 16:50
2007.08.12
перегрузка операций


2-1184846669
iviom
2007-07-19 16:04
2007.08.12
Распределение памяти в приложение


15-1184656246
Тульский
2007-07-17 11:10
2007.08.12
Open Office Calc и первичные ключи


2-1184443004
opoloXAI
2007-07-14 23:56
2007.08.12
Рабочая папка приложения.


2-1184854326
kyro
2007-07-19 18:12
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский