Blick on Image.Left := 10 + 10

3 отговора 0 прегледа
#1

Blick on Image.Left := 10 + 10

имам следното
horseLeft : Timage;
....

for i := 0 to 20 do
begin
horseLeft.Left := horseLeft.Left - 10;
horseRight.Left := horseRight.Left + 10;
Application.ProcessMessages;
fMain.Refresh;
Sleep( 100 );
end;

Но при преместването се получава едно гадно премигване на формата. Някой може ли да сподели някое по немигащо предложение. Ще съм много благодарен!

Отговор
в отговор на Student #2

DelphiX

Така като гледам как си си именувал променливите май ще е по-добре да хвърлиш едно око на DelphiX или на някоя друга подобна библиотека. Имаше и една друга добра - Graphics32 или нещо подобно, но не се сещам за сайта й.

ПП Сетих се [линк]

Редактирано от andrew_nikoloff на

Отговор
в отговор на andrew_nikoloff #3

Re: DelphiX

А нещо друго няма ли някой метод.
При чертане нещо без да използвам готови компоненти ?

Отговор
в отговор на Student #4

Re: DelphiX

Зависи какво правиш. Евентуално можеш да позлваш DoubleBuffering - чертаеш всичко в един offline bitmap и след това на един пас го прехвърляш него на екрана. Освен това може би ще ти е полезно да прочетеш тази тема. Но ще те посъветвам да си направиш труда и да смениш компонентите. Ще получиш далеч по-добри резултати.

Отговор