HiAsm

Форумы Помощь по пакету Прозрачный текст сверху перемещающейся картинки с альфа каналом ← Ctrl12Ctrl →

Ответов: 9906

Рейтинг: 351

#1: 2013-02-16 11:58:34 ЛС | профиль | цитата

ты же каким-то супер-батником хвастался
------------ Дoбавленo в 11.58:
кстати, для коллекционеров.... И для тех, кто имеет права обновить сей контрафакт
((я, если честно, даже не знаю, где он лежит))
есть еще один (совсем недавний) фикс:

#pas
//[procedure CalcMinMaxChildren]
procedure CalcMinMaxChildren( Self_: PControl; var SzR: TRect );
var I: Integer;
    C: PControl;
    R: TRect;
begin
  Szr := MakeRect( 0, 0, 0, 0 );
  for I := 0 to Self_.fChildren.fCount - 1 do
  begin
    C := Self_.fChildren.fItems[ I ];
    if C.Visible then // было if C.ToBeVisible then
...........

карма: 9

Форумы Помощь по пакету Прозрачный текст сверху перемещающейся картинки с альфа каналом ← Ctrl12Ctrl →