Советы по Delphi

       

я реально использую 64 кисточки,


/p> Комментарии: На Pentium I я реально использую 64 кисточки, изменив приведенные выше строки на следующие:

for k:= 1 to 64 dobegin WaitAWhile(50);for j:=0 to 0 do
; При организации указанной задержки возможно получение плавного перехода.

Заполняя кисть в другом порядке, вы можете получить ряд других эффектов, но приведенная выше версия единственная, которую мне удалось получить максимально похожей на эффект перехода, но вы можете, скажем, написать:

begin row:=(row+1) mod 8;(*col:=(col+1) mod 8;*)if row=0 then col:=(col+1) mod 8;
и получить своего рода эффект перехода типа "venetian-blind wipe" (дословно - стерка венецианского хрусталя).

Вопрос: Я чуствую, что я делаю что-то неправильно, существует какая-то хитрость с кистью. Мне нужно все четыре строчки:

canvas.brush.bitmap.free;canvas.brush.style:=bsClear;canvas.brush.bitmap:=TBitmap.Create;canvas.brush.bitmap.Assign(BrushBmp);
чтобы все работало правильно; но я совсем не понимаю, почему первые три строки являются обязательными, но если я их выкидываю, Assign сработывает только один раз(!?!?!). Это реально работает? Есть способ другого быстрого назначения brush.bitmaps? (В документации в качестве примера указано на Brush.Bitmap.LoadFromFile, но должно быть лучшее решение. Хорошо, допустим приведенный способ лучший, но он кажется неправильным...)

- David C. Ullrich [000786]


Содержание  Назад  Вперед







Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий