Deux animations pour patienter

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button2Click(Sender: TObject);
begin
  DrawToPaintBox;
end;

procedure TForm1.DrawToPaintBox;
begin
  cairo_set_source_rgb(fContext, 0.0, 0.0, 1.0);
  cairo_paint(fContext);
  PaintBox1.Canvas.Draw(0, 0, fBitmap);
end;

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
procedure TForm1.FormCreate(Sender: TObject);
var
  window: Int64;//TWindow;
  disp: PDisplay;
  scr: PScreen; // c'est un record plein de trucs et de machins
  scr2: LongInt;
begin
  fBitmap := TBitmap.Create;
  fWidth := PaintBox1.Width;
  fHeight := PaintBox1.Height;
  fBitmap.SetSize(fWidth, fHeight);
  fHour := 0;

  window := GDK_WINDOW_XWINDOW(Pointer(PGtkWidget(fBitmap.Canvas.Handle)^.window));
  disp := XOpenDisplay(NULL);
  scr := XDefaultScreenOfDisplay(disp);
  scr2 := DefaultScreen(disp);

// au choix, 1 ligne sur 3 :
//  fSurface := cairo_xlib_surface_create(disp, fBitmap.Canvas.Handle, DefaultVisual(disp, scr2), fWidth, fHeight);
//  fSurface := cairo_xlib_surface_create(disp, window, DefaultVisual(disp, scr2), fWidth, fHeight);
  fSurface := cairo_xlib_surface_create_for_bitmap(disp, fBitmap.Canvas.Handle, scr, fWidth, fHeight);

 //Roland4Win  fSurface := cairo_win32_surface_create(fBitmap.Canvas.Handle);

  fContext := cairo_create(fSurface);
  cairo_scale(fContext, fWidth, fHeight);
  cairo_translate(fContext, 1 / 2, 1 / 2);
end;

1
2
3
4
procedure TForm1.FormCreate(Sender: TObject);
begin
  ...
  fSurface := cairo_win32_surface_create(fBitmap.Canvas.Handle);

1
2
3
4
5
  TForm1 = class(TForm)
    ...
  private
    ...
    fColor, fBkColor: TCairoColor;

1
2
  with fBkColor do
    cairo_set_source_rgba(fContext, r, g, b, 1.00);

cairo_set_source_rgba(fContext, 0.0, 0.0, 0.0, 1.00);

1
2
    with fColor do
      cairo_set_source_rgba(fContext, r, g, b, 1 - i / 7);

cairo_set_source_rgba(fContext, 1.0, 1.0, 1.0, 1 - i / 7);