***如何处理“层”，怎么实现***(50分)

G

gbyahoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #1

如何处理“层”，怎么实现,如图象编辑有A层与B层，如何使后加进去的B层半复盖A层，
透明还以，有点象photoshop那样

 

C

chshanghai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #2

我抛块砖...

我以前做过一软件曾有过层的概念。
我是用timage来实现层
设置image.transparent:=true
这样也实现了后加进去的B层半复盖A层

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #3

问卷兄吧～ ：p

 

G

gbyahoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #4

具体一点好吗？

 

C

chshanghai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #5

还要怎样具体??????????

 

G

gbyahoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #6

给点代码出来

 

G

gbyahoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #7

timage怎么搞，help me

 

L

luzhihu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #8

有一种控件有这样的功能,上网查查(是图像方面的VCL)

 

C

chshanghai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #9

你的分真难拿:
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Image1: TImage;
Image2: TImage;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
image1.Transparent:=true;
image1.canvas.Rectangle(10,10,200,100);
image2.Canvas.Rectangle(5,5,100,130)
end;

end.

 

G

gbyahoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #10

天那，还是不能移动image1或image2,其它如果image2盖在image1上面就看不见image1

能否做到image2是半透明的方式显示在image1上面呢？？？？[][][8D]

 

C

chshanghai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #11

你真..........
>>天那，还是不能移动image1或image2,其它如果image2盖在image1上面就看不见image1

>>能否做到image2是半透明的方式显示在image1上面呢？？？？[][][8D]

如果你要image2 是半透明的只要设设置image2.Transparent:=true;
如果你要拖动哪是另外的问题

 

G

gbyahoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #12

如何解决拖动的问题，即点image1就拖动image1