请教:把VB代码改DELPHI代码?(100分)

Y

YongSoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-04

• #1

Dim objReportTitle1 As New FlexCell.ReportTitle
With objReportTitle1
.Text = "分部分项工程量清单计价表"
.Align = cellCenter
.PrintOnAllPages = True
.Font.Name = "楷体_GB2312"
.Font.Size = 18
.Font.Bold =

 

D

dey-999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-04

• #2

var fFlexCell:TFlexCell;
fFlexCell:=TFlexCell.Create;
With FlexCell.ReportTitle do begin
Text := '分部分项工程量清单计价表';
Align := cellCenter;
PrintOnAllPages := True;
Font.Name := '楷体_GB2312';
Font.Size := 18l;
Font.Bold := true

end;

 

Y

YongSoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-04

• #3

==>dey-999 不对

 

中

中鼎

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-05

• #4

Printer.Refresh;
try
Printer.BeginDoc;
Printer.Canvas.Font.Name :='宋体';
Printer.Canvas.Font.Size :=18;
Printer.Canvas.Font.Size :=14;
Printer.Canvas.TextOut(1900,300,'报表');
Printer.Canvas.Font.Size :=12;
Printer.Canvas.TextOut(300,500,'名称：');

 

D

dey-999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-05

• #5

嘿嘿,因为这东西我没有用过,楼上的似乎说得不错