[Deiv]

Здравствуйте, это мой первый post в Форуме, привет, я из Боливии - Юг Америка.
У следующего кода есть эффект рисования текста в движении на любом объекте TForm; этот функционирует верно, но если я ввожу TImage фона (background) TForm, Delphi показывает мне ошибку на этой линии:
Border: = BorderWidth + 3;
ERROR
raised exception EAccess Violation

Код:

1 2 3

PaintTo (Bitmap. Canvas, Left, Top);//Draw the border => Border: = BorderWidth + 3;        BitBlt (Bitmap. Canvas. Handle, Left + Border, Top + Border, Width - Border * 2, Height - Border * 2, Canvas. Handle, Left + Border, Top + Border, SRCCOPY);//and the content

Как решать это ERROR?

.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90

unit MIMOuse;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ExtCtrls, StdCtrls;   type   TForm1 = class(TForm)     Timer1: TTimer;     Button1: TButton;     Memo1: TMemo;     procedure FormCreate(Sender: TObject);     procedure FormPaint(Sender: TObject);     procedure Timer1Timer(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   Step: Double=0;   Bitmap: TBitmap;   Circle: array [0..255] of TPoint;   implementation   {$R *.dfm}   procedure TForm1.FormCreate(Sender: TObject); begin  Timer1.Interval := 33;  Bitmap := TBitmap.Create;  Bitmap.Width := ClientWidth;  Bitmap.Height := ClientHeight;  Bitmap.Canvas.Brush.Color := Color;  Caption:= 'The New custom Cursor '; end;   procedure TForm1.FormPaint(Sender: TObject); var DestDC: Cardinal; begin  DestDC := GetWindowDC(Handle);  BitBlt(DestDC, ClientOrigin.X - Left, ClientOrigin.Y - Top, Bitmap.Width, Bitmap.Height, Bitmap.Canvas.Handle, 0, 0, SRCCOPY);  ReleaseDC(Handle, DestDC); end;   procedure TForm1.Timer1Timer(Sender: TObject); var  Size: Double;  Value: TPoint;  Index, Border: Integer; begin  Size := 360 / Length(Caption);  with Bitmap.Canvas do   begin    FillRect(Classes.Rect(0, 0, Bitmap.Width, Bitmap.Height));    for Index := 0 to ControlCount - 1 do     with TWinControl(Controls[Index]) do      if Visible then       begin        Repaint;        PaintTo(Bitmap.Canvas, Left, Top); // Draw the border        Border := BorderWidth + 3;        BitBlt(Bitmap.Canvas.Handle, Left + Border, Top + Border, Width - Border * 2, Height - Border * 2, Canvas.Handle, Left + Border, Top + Border, SRCCOPY); // and the content       end;    SetBkMode(Handle, TRANSPARENT);    for Index := 1 to Length(Caption) do    begin     with Circle[Index] do      begin       if Index < 1 then         Value := Circle[Index - 1]       else         Value := ScreenToClient(Mouse.CursorPos);       Inc(X, Round((Value.X - X) * 0.6));       Inc(Y, Round((Value.Y - Y) * 0.6));       TextOut(X + Round(66 * Cos(Step + Index * Size * (Pi / 180))),               Y + Round(66 * Sin(Step + Index * Size * (Pi / 180))),               Caption[Index]);      end;     end;   end;  FormPaint(nil);  Step := Step - 0.06; end; end.

Как Новичок я попытался решить таким образом:
Я разместил TPanel такую (собственность Align=AllClient) как фон TForm'a и этот в свою очередь содержит TImage (собственность Align=AllClient; stretch=true), эффект работает нормально но медленнo, и у него есть проблема с перекрашенным, а именно очевидно много МИГАНИЕ, и медленнo.
Mне нужно в том, чтобы разместить в этом коде TImage как фон в TForm и также мне нужно, чтобы оно функционировало без миганий, Как?
Как решать и предотвращать это Мигание после того, когда повторно рисовано?
Как решать это без миганий?
Мигание, Мигание.......

The following code has a effect to redraw a text in movement on any object of the TForm; this it works perfectly, but if I introduce a TImage in background TForm's, Delphi shows me an error in this line:
Border: = BorderWidth + 3
ERROR
raised exception EAccess Violation
As Beginner I have tried to solve this way:
I have placed a TPanel (property Align=AllClient) as background of the Form and east in turn contains the TImage (property Align=AllClient; stretch= true), the one effect works normal but slowly, and it has a problem with the one repainted, that is to say a lot of TWINKLING (BLINKKINGS) and slowly.
I need to place in this code a background TImage in the TForm and I need that it works without twinklings, How?
How to solve and without blinkings to the redraw, please?

[Амон]

Боюсь вас огорчить, но насколько мне известно при использовании для вывода графики TBitmap нельзя полностью избавиться от мигания. Есть способы сделать его менее заметным, но оно всё равно будет бросаться в глаза.
Для создания анимации/движения без миганий надо использовать DirectX или OpenGL, в любом виде (напрямую, или через наборы компонентов).

[Deiv]

Пример пожалуйста: нарисованный на компонентах с DirectX или OpenGL??

[Interface]

http://www.delphisources.ru/pages/fa...hix_part8.html
Игра написссаная на DelphiX. Не мерцает для работы надо скачивать соответствующие компопоненты...
И вобще надо лазить в FAQ там это и многое полезное написнно!

[:S.p.a.m.]

Кстати говоря DelphiX очень прост в изучении. Если нужно вот парочка статей - самый минимум (установка компонента, загрузка и вывод спрайтов). Очень толково и понятно. Там же его (компонент) можно скачать.

Ну и попробуйте при создании формы написать Form1.DoubleBuffered:=true. или если все происходит на панели напишите вместо Form1 - panel1. Это позволит уменьшить маргание, точнее его можно сказать даже не будет, но будет немного анимация дергаться. Вобщем попробуйте и поглядите.