Illusion Dolphin Что то у меня никак не получается вот исходный текст посмотри пожалуйста, что не так!!!
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtDlgs, Menus, ExtCtrls, Buttons, ComCtrls, StdCtrls, Gauges, math;
type
TRGB=record
r:byte;
g:byte;
b:byte;
end;
ARGB=array [0..1] of TRGB;
PARGB=^ARGB;
PRGB = ^TRGB;
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
OpenPictureDialog1: TOpenPictureDialog;
SavePictureDialog1: TSavePictureDialog;
N7: TMenuItem;
N8: TMenuItem;
ScrollBox1: TScrollBox;
Image1: TImage;
GroupBox1: TGroupBox;
Gauge1: TGauge;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
StaticText1: TStaticText;
StaticText2: TStaticText;
StaticText3: TStaticText;
StaticText4: TStaticText;
procedure N2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
i,j,k,n: Longint;
ColCount: integer;
Filename,s: string;
BM, BM1: TBitmap;
dx,dy: real;
implementation
{$R *.dfm}
procedure Interpolate(x, y, Width, Height : Integer; Rect : TRect; var S, D : TBitmap);
var
z1, z2: single;
k: single;
i, j: integer;
dw,dh, xo, yo: integer;
x1r,y1r : extended;
Xs, Xd : array of PARGB;
dx, dy : Extended;
begin
Form1.Image1.AutoSize:=False;
S.PixelFormat:=Pf24bit;
D.PixelFormat:=Pf24bit;
D.Width:=Math.Max(D.Width,x+Width);
D.height:=Math.Max(D.height,y+Height);
dw:=Math.Min(D.Width-x,x+Width);
dh:=Math.Min(D.height-y,y+Height);
dx:=(Width)/(Rect.Right-Rect.Left-1);
dy:=(Height)/(Rect.Bottom-Rect.Top-1);
if (dx<1) or (dy<1) then exit;
SetLength(Xs,S.Height);
for i:=0 to S.Height - 1 do
Xs[i]:=S.scanline[i];
SetLength(Xd,D.Height);
for i:=0 to D.Height - 1 do
Xd[i]:=D.scanline[i];
for i := 0 to min(trunc((Rect.Bottom-Rect.Top-1)*dy)-1,dh-1) do begin
yo := trunc(i / dy)+Rect.Top;
y1r:= trunc(i / dy) * dy;
if yo+1>=S.height then Break;
for j := 0 to min(trunc((Rect.Right-Rect.Left-1)*dx)-1,dw-1) do begin
xo := trunc(j / dx)+Rect.Left;
x1r:= trunc(j / dx) * dx;
if xo+1>=S.Width then Continue;
begin
z1 := ((Xs[yo ,xo+ 1].r - Xs[yo,xo].r)/ dx)*(j - x1r) + Xs[yo,xo].r;
z2 := ((Xs[yo+1,xo+1].r - Xs[yo+1,xo].r) / dx)*(j - x1r) + Xs[yo+1,xo].r;
k := (z2 - z1) / dy;
Xd[i+y,j+x].r := trunc(i * k + z1 - y1r * k);
z1 := ((Xs[yo ,xo+ 1].g - Xs[yo,xo].g)/ dx)*(j - x1r) + Xs[yo,xo].g;
z2 := ((Xs[yo+1,xo+1].g - Xs[yo+1,xo].g) / dx)*(j - x1r) + Xs[yo+1,xo].g;
k := (z2 - z1) / dy;
Xd[i+y,j+x].g := trunc(i * k + z1 - y1r * k);
z1 := ((Xs[yo ,xo+ 1].b - Xs[yo,xo].b)/ dx)*(j - x1r) + Xs[yo,xo].b;
z2 := ((Xs[yo+1,xo+1].b - Xs[yo+1,xo].b) / dx)*(j - x1r) + Xs[yo+1,xo].b;
k := (z2 - z1) / dy;
Xd[i+y,j+x].b := trunc(i * k + z1 - y1r * k);
end;
end;
end;
{ Form1.Gauge1.Progress :=0;
Form1.Image1.Width:=d.Width;
Form1.Image1.Height:=d.Height;
Form1.Image1.Picture.Graphic:=d; }
end;
procedure TForm1.N2Click(Sender: TObject);
begin
Bm:=Tbitmap.Create;
Image1.AutoSize:=True;
If OpenPictureDialog1.Execute then begin
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
BM.LoadFromFile(OpenPictureDialog1.FileName);
end;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
SavePictureDialog1.FileName := FileName;
If not SavePictureDialog1.Execute then exit;
FileName := SavePictureDialog1.FileName;
ColCount := Pos ('.', FileName);
if ColCount <= 0 then s := '.bmp';
FileName := FileName + s;
Image1.Picture.SaveToFile(FileName);
end;
procedure TForm1.N5Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
BM.free;
bm1.Free;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
try
bm1:=Tbitmap.create;
// dx:=strtofloat(Combobox1.Text) / 100;
// dy:=strtofloat(Combobox2.Text) / 100;
Interpolate(0,0,100,100,rect(0,0,200,200),bm,bm1);
Image1.Picture.Graphic:=bm1;
except
Showmessage('Îøèáêà: Çàãðóçèòå èçîáðàæåíèå, èëè ââåäèòå êîððåêòíîå çíà÷åíèå ìàñøòàáà');
exit;
end;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
Form1.Image1.Width:=BM.Width;
Form1.Image1.Height:=Bm.Height;
Form1.Image1.Picture.Graphic:=BM;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
// dx:= 1.0;
// dy:= 1.0;
end;
end.
|
|
), представляют его в виде дроби m/n
!