翻转FORM(10分)

F

fanwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #1

请问怎么样把一个FORM翻转90度呢？比如说，一个FORM borderstyle:=bsnone
上面有个BUTTON，一按让FORM上的东西都向右翻转90度，而且打印的时候
FORM.PRINT也是打印当前的已经翻转过的FORM?

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #2

还没有遇到过这个～

up

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #3

翻转以后按钮还能动吗？我想你可以copyscreen然后将图形变化一下 paste it，如果翻转后就
打印是可以这样的

 

F

fanwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #4

就是说，我做的一个大表格，表格和很多东西在一个PANEL上，然后按打印按钮后
VAR printform:tprintform;
begin
printform:=tprintform.create(self);
panel1.parent:=printform; ........
这个panel是1024x600左右，所以应该把FORM竖过来再PRINT，我是这个想法

 

F

fanwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #5

天啊，有没有人救命啊？
我有个我自己不会实现的思路，抛砖引玉啦
能不能把PANEL来一个矩形区域的拷贝，然后再把这个矩形翻转90度呢？
还是有什么API能干这个事情？
大侠，出现吧！

 

W

wk_knife

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #6

把打印纸设成横放不就可以了

 

H

hysuser

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #7

你可以指定打印方式为横向啊，有api可以实现的，好象是操作一个固定的数据结构，以前
作过的，不过现在忘了，你再找找吧

 

F

fanwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #8

好象我的打印机就不支持横放，最大的宽度就是A4

 

D

D影子D

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #9

我想可以用抓图,抓下form1的图后，再对图形实现翻转（图形翻转90度不难）！
用区域抓图就可以实现

 

W

wr960204

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #10

这个能水平反转
procedure Createparams(var Params: TCreateParams); override;

procedure TForm1.Createparams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
begin
EXStyle := WS_DLGFRAME;
end;
end;

 

F

fanwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-17

• #11

接受答案了.