[Ooops]

Народ у меня почемуто не сохраняются картинки (можете помочь что они сохранялись (ico формат) вот скрипт

[Ooops]

Код:

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 144 145 146 147 148

unit main;   interface   uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Buttons, StdCtrls, Menus;   type TForm1 = class(TForm) Panel1: TPanel; ScrollBox1: TScrollBox; PaintBox1: TPaintBox; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; SpeedButton4: TSpeedButton; SpeedButton1: TSpeedButton; ColorBox1: TColorBox; ColorBox2: TColorBox; Label1: TLabel; Label2: TLabel; MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; SpeedButton5: TSpeedButton; PaintBox2: TPaintBox; procedure PaintBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure FormCreate(Sender: TObject); procedure PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure PaintBox1Paint(Sender: TObject); procedure PaintBox1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } end;   TShape=(sPen, sRect, sEllipse, sPoly, sFill);   var Form1: TForm1; nowdrawing:TShape; img, buffer:TBitmap; x0,y0:integer; dwn:boolean;   implementation   {$R *.dfm}   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 SpeedButton1.Down then begin nowdrawing:=sPen; img.canvas.MoveTo(x,y); end else if SpeedButton2.Down then nowdrawing:=sEllipse else if SpeedButton3.Down then nowdrawing:=sRect else if SpeedButton4.Down then nowdrawing:=sPoly else if SpeedButton5.Down then nowdrawing:=sFill; dwn:=true; img.Canvas.Pen.Color:=ColorBox1.Sel ected; img.Canvas.Brush.Color:=ColorBox2.S elected;   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)); 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 if not dwn then exit; img.assign(buffer); case nowdrawing of sPen:begin img.Canvas.LineTo(x,y); buffer.Assign(img); end; sRect:begin img.Canvas.Rectangle(x0,y0,x,y); end; sEllipse:begin img.Canvas.Ellipse(x0,y0,x,y); end; sPoly:begin 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;   end

Admin: Пользуемся тегами!