Alxeng;
******************************
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
Image2: TImage;
Button1: TButton;
edtDeslocar: TEdit;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Image1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
vBitmap1 : TBitmap;
vBitmap2 : TBitmap;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
vBitmap1 := TBitmap.Create;
vBitmap2 := TBitmap.Create;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
vBitmap1.Free;
vBitmap2.Free;
end;
procedure TForm1.Image1Click(Sender: TObject);
begin
vBitmap1.PixelFormat := pf24bit;
vBitmap1.LoadFromFile('C:\WINDOWS\imagem.bmp');
Image1.Picture.Assign(vBitmap1);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
vBitmap2.Width := vBitmap1.Width;
vBitmap2.Height := vBitmap1.Height;
vBitmap2.PixelFormat := pf24bit;
vBitmap2.Canvas.Draw( StrToInt(edtDeslocar.Text),
StrToInt(edtDeslocar.Text), vBitmap1);
Image2.Picture.Assign(vBitmap2);
end;
end.
**************************************
dfm
*************************************
object Form1: TForm1
Left = 435
Top = 365
Width = 275
Height = 226
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Image1: TImage
Left = 24
Top = 24
Width = 105
Height = 105
Stretch = True
OnClick = Image1Click
end
object Image2: TImage
Left = 136
Top = 24
Width = 105
Height = 105
Stretch = True
end
object Button1: TButton
Left = 168
Top = 144
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 0
OnClick = Button1Click
end
object edtDeslocar: TEdit
Left = 24
Top = 136
Width = 121
Height = 21
TabOrder = 1
Text = '10'
end
end
*******************************************
Atenciosamente
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de alxeng2002
Enviada em: segunda-feira, 27 de março de 2006 08:20
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] deslocar bitmap
Caro Elazar,
Gostaria, se possível, que mostrasse como fazer isso, pois já utilizei
estes metodos mas sem sucesso.
Grato,
Alex...
--- Em delphi-br@yahoogrupos.com.br, "elazar" <[EMAIL PROTECTED]> escreveu
>
> Alxeng
>
> voce pode utilizar os objetos Bitmap
> com a propriedade Canvas???
>
> Atenciosamente;
> -----Mensagem original-----
> De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
> Em nome de alxeng2002
> Enviada em: quinta-feira, 23 de março de 2006 08:42
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] deslocar bitmap
>
>
>
> Olá a todos.
>
> Tenho uma imagem no bitmap1 e gostaria de saber como posso deslocar a
> imagem 1 unidade para esquerda e salvar no bitmap2 ??
>
> Grato,
>
> Alex
>
>
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
>
>
>
> _____
>
> Links do Yahoo! Grupos
>
>
> * Para visitar o site do seu grupo na web, acesse:
> http://br.groups.yahoo.com/group/delphi-br/
>
>
> * Para sair deste grupo, envie um e-mail para:
> [EMAIL PROTECTED]
> <mailto:[EMAIL PROTECTED]>
>
>
> * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
> Serviço do Yahoo! <http://br.yahoo.com/info/utos.html> .
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
_______________________________________________________
Novo Yahoo! Messenger com voz: Instale agora e faça ligações de graça.
http://br.messenger.yahoo.com/
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
