Hallo!
Ich habe einen kleinen Bildbetrachter für jpgs und bmps programmiert. Mit dem kann man dann unten auch noch kommentare zu jedem bil hinzufügen welche dann in einer datei z.b. x.jpg.txt im gleichen ordner gespeichert werden. nun möchte ich diese kommentare und natürlich das bild drucken..
Delphi-Quelltext
1:
2:
3:
4:
| procedure TForm1.Drucken1Click(Sender: TObject);
begin
print;
end; |
so kann man leider nur das ganze formular drucken.
ich glaube so etwas sollte mit print cfanvas gehen hab auch schon gegoogelt und hie rim forum gesucht finde aber leide keinen script den ich verstehe...
thx für eure antworten
ps: der ganze quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, XPMan, ExtCtrls, Menus, StdCtrls, Jpeg, ExtDlgs;
type
TForm1 = class(TForm)
Timer1: TTimer;
XPManifest1: TXPManifest;
StatusBar1: TStatusBar;
MainMenu1: TMainMenu;
Datei1: TMenuItem;
ffnen1: TMenuItem;
Beenden1: TMenuItem;
Hilfe1: TMenuItem;
Men1: TMenuItem;
Image1: TImage;
Edit1: TEdit;
open: TOpenPictureDialog;
BMPfnnen1: TMenuItem;
OpenPictureDialog1: TOpenPictureDialog;
AlsBMPspeichern1: TMenuItem;
SavePictureDialog1: TSavePictureDialog;
itelspeichern1: TMenuItem;
Memo1: TMemo;
Drucken1: TMenuItem;
PrintDialog1: TPrintDialog;
procedure ffnen1Click(Sender: TObject);
procedure Beenden1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure BMPfnnen1Click(Sender: TObject);
procedure Men1Click(Sender: TObject);
procedure itelspeichern1Click(Sender: TObject);
procedure Drucken1Click(Sender: TObject);
private
FBitmap: TBitmap;
jpg: string;
public
end;
var
Form1: TForm1;
implementation
uses Unit4;
{$R *.dfm}
procedure TForm1.ffnen1Click(Sender: TObject);
var
Jpeg: TJpegImage;
begin
open.Execute;
jpg := open.FileName;
Jpeg := TJpegImage.Create;
try
Jpeg.LoadFromFile(jpg);
FBitmap := TBitmap.Create;
FBitmap.Assign(Jpeg);
Image1.Picture.Bitmap := FBitmap;
finally
Jpeg.Free;
image1.AutoSize := true;
end;
try
Memo1.Lines.LoadFromFile(jpg + '.txt');
except
Memo1.Lines.LoadFromFile('C:\4 MY PiX\standart.txt');
end;
end;
procedure TForm1.Beenden1Click(Sender: TObject);
begin
Application.terminate;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if image1.Height >768
then
begin
Image1.AutoSize := False;
Image1.width := 800;
image1.height := 600
end;
Edit1.Text:= jpg;
end;
procedure TForm1.BMPfnnen1Click(Sender: TObject);
begin
openpicturedialog1.execute;
Edit1.Text := openpicturedialog1.FileName ;
Image1.Picture.LoadFromFile(edit1.text);
try
Memo1.Lines.LoadFromFile(Edit1.Text +'.txt');
except
Memo1.Lines.LoadFromFile('C:\4 MY PiX\standart.txt');
end;
end;
procedure TForm1.Men1Click(Sender: TObject);
begin
about.show;
end;
procedure TForm1.itelspeichern1Click(Sender: TObject);
begin
Memo1.lines.SaveToFile(Edit1.Text + '.txt');
end;
procedure TForm1.Drucken1Click(Sender: TObject);
begin
print;
end;
end. |
[list][*]
