Делфи и Флеш

[faustpatron13]

обоже, ну зачем язвить?
если знаете как это сделать, помогите тому, кто не знает, не знаете - так и скажите.

[Пепел Феникса]

вам максимум будет нужен массив кадров, так это массив битмапов(ибо канва лишь кисточка(образно говоря) сама по себе она не хранит данные)

[crazy horse]

2mss
Господи Исусе, сколько пустого, никому не нужного текста. Не знаете чем помочь? Нечем заняться на рабочем месте? Ради бога, почитайте лучше книгу, не надо набивать сюда посты.

Или "чукча не читатель - чукча писатель" ?

обоже, ну зачем язвить?
если знаете как это сделать, помогите тому, кто не знает, не знаете - так и скажите.

Не обращай внимания, похоже на пмс
http://delphiexpert.ru/view_lesson.php?id=21
если этого не хватит - лезем в гугл и пишем: "delphi программная анимация."

[raxp]

DrawObjects

[faustpatron13]

Подскажите пожалуйста, где ошибка?

Вот код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    Frames: TStringGrid;
    Page: TImage;
    procedure PageMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure PageMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure PageMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure FramesClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  f:boolean = false;
  Can : array of TCanvas;
  n:integer = 0;

implementation

{$R *.dfm}

procedure TForm1.PageMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
f:=true;
page.canvas.MoveTo(x,y);
end;

procedure TForm1.PageMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if f then page.canvas.LineTo(x,y);
end;

procedure TForm1.PageMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Var t:integer;
begin
f:=false;
for t := n to 9 do
    can[t] := page.Canvas;
end;

procedure TForm1.FormCreate(Sender: TObject);
var i : Integer;
begin
  SetLength(Can, 10);
  for i := 0 to 9 do
    Can[i] := TCanvas.Create;
    page.canvas.Pen.Color:=clWhite;
    page.Canvas.Rectangle(0,0,page.Width,page.Height);
    page.canvas.Pen.Color:=clBlack;
  for i := 0 to 9 do
    can[i] := page.Canvas;
  for i := 0 to 9 do
    frames.Cells[i,0]:= inttostr(i+1);
  BitBlt(page.canvas.Handle, 0, 0, width, height, Can[0].Handle, 0, 0, SRCCOPY);
end;

procedure TForm1.FramesClick(Sender: TObject);
begin
n:=frames.Col;
BitBlt(page.canvas.Handle, 0, 0, width, height, Can[frames.col].Handle, 0, 0, SRCCOPY);
end;

end.

ну и сам исходник прилагается

[mss]

где ошибка?

В ДНК ошибка.

По-русски же сказано - бессмысленно создавать массив холстов, ибо TCanvas не более чем оболочка над GDI.
Но русский ты не понимаешь из-за ошибки см. выше. И настырно лепишь абсолютно бестолковую дюжину холстов

 for i := 0 to 9 do
    Can[i] := TCanvas.Create;

[Stilet]

mss

Еще раз услышу от тебя флуд - пойдешь в баню

где ошибка?

У тебя канвасы ни к чему не привязаны. Они хендла не имеют.

Вот я слегка набросал эскизик:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    Frames: TStringGrid;
    Page: TImage;
    procedure FormCreate(Sender: TObject);
    procedure FramesSelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  f:boolean = false;
  Can : array[1..10] of TBitmap;
  n:integer = 0;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
 for i:=1 to 10 do begin
  can[i]:=TBitmap.Create;
  with can[i] do begin
   Width:=Page.Width;
   Height:=Page.Height;
   Canvas.Rectangle(1,1,random(Width),random(Height));
  end;
 end;
end;

procedure TForm1.FramesSelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
 with Page.Canvas do  begin FillRect(ClientRect);
  BitBlt(Handle,1,1,Width,Height,can[ACol].Canvas.Handle,0,0,SRCCOPY);
 end;
end;

end.

[kettanaito]

Немного не в то русло, как ты хочешь сделать, но: почему бы не сделать анимацию во флэш (что гораздо проще, чем в Delphi) и загрузить как объект Flash в Delphi? (есть компонент отображения swf)

[crazy horse]

Для этого, как минимум, надо еще и в as3 въезжать. Что не так просто, как кажется - это полноценный язык с жуткими фреймворками и невменяемым garbage collector'ом. Ps. Я уже писал на тему блитинга векторной анимации - она жрет ресурсы ппц.. Там свои заморочки.

[Lesha]

как вы относитесь к запуску в delphi flash плеера через WebBrowser для воспроизведения музыки и видео роликов формата mp4 ?