Добрые люди срочно нужна помощь! Проблема с печатью и курсорами!!!!!

[Romich]

Люди помогите скоро курсач сдавать, а я никак не могу сделать Печать изображения и Настроить курсоры!!! Кто сможет помочь в ближайшее время пишите в АСЮ 438199884 или личку я вам прогу скину, ну и вы умные люди всё посмотрите=)

[Ntlegend]

ты по конкретнее вопрос задай.. тебе на форуме тут и помогут..

[Romich]

Вот смотрите код там коменты=)

var
Form1: TForm1;
nowdrawing,Origin, MovePt:TShape;
img, buffer:TBitmap;
x0,y0:integer;
dwn:boolean;
implementation
uses Unit2, Unit3;
{$R *.dfm}
{$R 1.res}вот тут подключаю курсоры

procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button=mbLeft then begin
img.assign(buffer);
x0:=x; y0:=y;
if RzBmpButton2.Down then
begin
nowdrawing:=sPen;
img.canvas.MoveTo(x,y);
img.Canvas.Pen.Color:=ColorPickComb o1.ActiveColor;
end else
if RzBmpButton6.Down then
begin
nowdrawing:=sSpray;
img.canvas.MoveTo(X+random(10),Y+ra ndom(10));
img.Canvas.Pixels[X+random(2),Y+random(2)]:=ColorPickCombo1.ActiveColor;
img.canvas.LineTo(X+random(10),Y+ra ndom(10));
end else
if RzBmpButton3.Down then
nowdrawing:=sPoly else
if RzBmpButton1.Down then
begin
nowdrawing:=sLastik;
img.Canvas.Pen.Color:=clWhite;
img.canvas.MoveTo(x,y);
end else
if RzBmpButton8.Down then
begin
nowdrawing:=sText;
img.Canvas.TextOut(x,y,edit2.Text);
end else
if RzBmpButton7.Down then
nowdrawing:=sFill;
dwn:=true;
img.Canvas.Pen.Color:=ColorPickComb o1.ActiveColor;
img.Canvas.Brush.Color:=ColorPickCo mbo2.ActiveColor;
if nowdrawing=sFill then
begin
img.Canvas.FloodFill(x0,y0,img.Canv as.Pixels[x,y],fsSurface);
buffer.Assign(img);
dwn:=false;
end
end else
begin
if (dwn)and(nowdrawing=sPoly) then begin
x0:=x;
y0:=y;
buffer.Assign(img);
end; end;
paintbox1.Canvas.CopyRect(bounds(0, 0,img.Width,img.Height),img.Canvas, bounds(0,0,img.Width,img.Height));
StatusBar1.Panels[0].Text := Format('Координаты: (%d, %d)', [x, y]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Img:=TBitmap.Create;
buffer:=TBitmap.Create;
img.Width:=PaintBox1.ClientWidth;
buffer.Width:=PaintBox1.ClientWidth ;
img.Height:=PaintBox1.ClientHeight;
buffer.Height:=PaintBox1.ClientHeig ht;
nowdrawing:=sPen;
dwn:=false;
end;
procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
StatusBar1.Panels[1].Text := Format('Координаты: (%d, %d)', [x, y]);

if not dwn then exit;
img.assign(buffer);
case nowdrawing of
sPen:begin
img.Canvas.LineTo(x,y);
buffer.Assign(img);
end;

sSpray:begin
Img.Canvas.Pen.Style:=psDot;
img.canvas.MoveTo(X+random(5),Y+ran dom(5));
img.Canvas.Pixels[X+random(2),Y+random(2)];
img.canvas.LineTo(X+random(20),Y+ra ndom(20));
buffer.Assign(img);

end;
sLastik:begin
Img.Canvas.Pen.Style:=psSolid;
img.Canvas.Pen.Color:=clWhite;
img.Canvas.LineTo(x,y);
buffer.Assign(img);
end;
sText:begin
img.Canvas.TextOut(x,y,edit2.Text);
end;
sPoly:begin
if RzBmpButton14.Down then
begin
Img.Canvas.Pen.Style:=psDot;
end else
if RzBmpButton10.Down then
begin
Img.Canvas.Pen.Style:=psSolid;
end else
if RzBmpButton11.Down then
begin
Img.Canvas.Pen.Style:=psDash;
end else
if RzBmpButton12.Down then
begin
Img.Canvas.Pen.Style:=psDashDot;
end else
if RzBmpButton13.Down then
begin
Img.Canvas.Pen.Style:=psDashDotDot;
end;
img.Canvas.MoveTo(x0,y0);
img.Canvas.LineTo(x,y);
end;
sFill:begin //nothing.
end;
end;
paintbox1.Canvas.CopyRect(bounds(0, 0,img.Width,img.Height),img.Canvas, bounds(0,0,img.Width,img.Height));
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
paintbox1.Canvas.CopyRect(bounds(0, 0,img.Width,img.Height),buffer.Canv as,bounds(0,0,img.Width,img.Height) );
end;

procedure TForm1.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button=mbLeft then dwn:=false;
buffer.Assign(img);
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
Img.Canvas.Pen.Width := PenWidth.Position;
img.Canvas.Font.Size:= PenWidth.Position;
end;
вот незнаю куда надо прописать чтобы курсоры переключались=( уже везде пробывал пихать =((
procedure TForm1.FormActivate(Sender: TObject);
begin
screen.Cursors[1]:=loadcursor(hinstance,'LASTIK');
screen.Cursors[2]:=loadcursor(hinstance,'KARANDASH') ;
if RzBmpButton1.Down then
screen.Cursor:=1 else
if RzBmpButton2.Down then
screen.Cursor:=2;
end;


и не знаю как вывести изображение на печать!!!!=((

end.