Загрузка изображения

[_-Re@l-_]

Как можно загрузить опеределённую часть мзображения из файла?(например, ту часть которая отмечена на картинке(выделена черным цветом))

[SERG1980]

Грузите всё это в битмап и используйте Canvas.CopyRect

[_-Re@l-_]

Ясно, а как это примерно будет выглядеть в коде?

[Terran]

Ясно, а как это примерно будет выглядеть в коде?

Для примера:

Procedure TForm1.Button1Click(Sender: TObject);
Var
B: TBitMap;
Begin
B:=TBitMap.Create;
B.LoadFromFile('E:\скрин.bmp');
Form1.Canvas.CopyRect(Rect(0,0,200,400),B.Canvas,Rect(50,175,260,460));
B.Free;
End;

[_-Re@l-_]

Только лучше будет если

Form1.Canvas.CopyRect(Rect(0,0,100,400),B.Canvas,Rect(0,0,100,B.Height));

Так просто кусок картинки нормальных размеров а не растянутый

[Terran]

Сообщение от _-Re@l-_

Только лучше будет если

Form1.Canvas.CopyRect(Rect(0,0,100,400),B.Canvas,Rect(0,0,100,B.Height));

Так просто кусок картинки нормальных размеров а не растянутый

Я немного подправил код в посте №4.

[_-Re@l-_]

Теперь проблема такая. Ширина изображения находящегося в файле больше чем Form1.ClientWidth. При нажатии стрелки вправо картинка должна двигаться влево(ну, как в Марио и т.п.) а при нажатии кнопки вправо картинка должна двигаться вправо.
Вот код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  n:integer;
  x1,x2:integer;
  x3,x4:integer;
  B: TBitMap;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Begin
B:=TBitMap.Create;
B.LoadFromFile('c:\bmp.bmp');
x1:=0;x2:=B.Width;
Form1.Canvas.CopyRect(Rect(0,0,1024,768),B.Canvas,Rect(0,0,Form1.ClientWidth ,Form1.ClientHeight));
n:=1;
End;





procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if (key = VK_LEFT) and (x1>0) then begin
     x1:=x1-1;x2:=x2-1;
     Form1.Canvas.CopyRect(Rect(0,0,1024,768),B.Canvas,Rect(x1,0,x2,Form1.ClientHeight));
     end;
     if (key = VK_RIGHT) and (x2<1280) then begin
     x1:=x1+10;x2:=x2+10;
     Form1.Canvas.CopyRect(Rect(0,0,1024,768),B.Canvas,Rect(x1,0,x2,Form1.ClientHeight));
     end;
end;

end.

Но почему-то картинка не движется совсем. Что там неправильно?

[Stilet]

_-Re@l-_

А ты не хочешь поставить точку прерывания на первую строчку обработчика и пройти по коду по шагам чтоб узнать где затык:
Кроме того я бы написал так:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if (key = VK_LEFT) and (x1>0) then begin
      x1:=x1-1;x2:=x2-1;
     end;
     if (key = VK_RIGHT) and (x2<1280) then begin
      x1:=x1+10;x2:=x2+10;
     end;
Canvas.CopyRect(Rect(0,0,1024,768),B.Canvas,Rect(x1,0,x2,Form1.ClientHeight));
end;

Кроме того. Я бы отрисовку прописал в событии OnPAint