type
TRGBArray = array[0 .. 0] of TRGBTriple;
PRGBArray = ^TRGBArray;<\/p>\n
\/\/ \u5de6\u56de\u8ee2\u30b5\u30f3\u30d7\u30eb
procedure TForm1.Button1Click(Sender: TObject);
var
Src, Dest: TBitmap;
Row, Col: Integer;
SrcRow, DestRow: PRGBArray;
Offset: Integer;
begin
Src := TBitmap.Create;
Dest := TBitmap.Create;<\/p>\n
try
\/\/ Image1\u304b\u3089Src\u306b\u30cf\u30f3\u30c9\u30eb\u3092\u79fb\u3059
Src.Handle := Image1.PIcture.Bitmap.ReleaseHandle;
\/\/ PixelFormat\u309224bit\u306b\u8a2d\u5b9a
Src.PixelFormat := pf24bit;
Dest.PixelFormat := pf24bit;
\/\/ Dest\u3078\u9818\u57df\u3092\u30b3\u30d4\u30fc(\u5e45\u3068\u9ad8\u3055\u3092\u30af\u30ed\u30b9)
Dest.Height := Src.Width;
Dest.Width := Src.Height;<\/p>\n
try
\/\/ Src\u6c34\u5e73\u65b9\u5411\u306e\u30eb\u30fc\u30d7
for Row := 0 to Src.Height -1 do
begin
SrcRow := Src.ScanLine[Row];
\/\/ Src\u5782\u76f4\u65b9\u5411\u306e\u30eb\u30fc\u30d7
for Col := 0 to Src.Width -1 do
begin
\/\/ Dest\u3092\u4e0b\u304b\u3089\u30bb\u30c3\u30c8\u3059\u308b\u305f\u3081\u306e\u30aa\u30d5\u30bb\u30c3\u30c8
Offset := (Dest.Height -1) – Col;
\/\/ Dest\u306e\u914d\u5217\u3092\u30af\u30ed\u30b9\u3055\u305b\u308b
DestRow := Dest.ScanLine[Offset];
\/\/ \u914d\u5217\u3092\u30bb\u30c3\u30c8\u3059\u308b
DestRow[Row].rgbtRed := SrcRow[Col].rgbtRed;
DestRow[Row].rgbtGreen := SrcRow[Col].rgbtGreen;
DestRow[Row].rgbtBlue := SrcRow[Col].rgbtBlue;
end;
end;
\/\/ \u6210\u529f\u3057\u305f\u5834\u5408\u3001Dest\u306e\u30cf\u30f3\u30c9\u30eb\u3092\u8fd4\u3059
Image1.Picture.Bitmap.Handle := Dest.ReleaseHandle;
except
\/\/ \u5931\u6557\u3057\u305f\u5834\u5408\u3001Src\u306e\u30cf\u30f3\u30c9\u30eb\u3092\u8fd4\u3059
Image1.Picture.Bitmap.Handle := Src.ReleaseHandle;
end;
finally
Src.Free;
Dest.Free;
end;
end;<\/p>\n
\/\/ \u53f3\u56de\u8ee2\u30b5\u30f3\u30d7\u30eb
procedure TForm1.Button2Click(Sender: TObject);
var
Src, Dest: TBitmap;
Row, Col: Integer;
SrcRow, DestRow: PRGBArray;
Offset: Integer;
begin
Src := TBitmap.Create;
Dest := TBitmap.Create;
try
\/\/ Image1\u304b\u3089Src\u306b\u30cf\u30f3\u30c9\u30eb\u3092\u79fb\u3059
Src.Handle := Image1.PIcture.Bitmap.ReleaseHandle;
\/\/ PixelFormat\u309224bit\u306b\u8a2d\u5b9a
Src.PixelFormat := pf24bit;
Dest.PixelFormat := pf24bit;
\/\/ Dest\u3078\u9818\u57df\u3092\u30b3\u30d4\u30fc(\u5e45\u3068\u9ad8\u3055\u3092\u30af\u30ed\u30b9)
Dest.Height := Src.Width;
Dest.Width := Src.Height;
try
\/\/ Src\u6c34\u5e73\u65b9\u5411\u306e\u30eb\u30fc\u30d7
for Row := 0 to Src.Height -1 do
begin
SrcRow := Src.ScanLine[Row];
\/\/ Dest\u3092\u53f3\u304b\u3089\u30bb\u30c3\u30c8\u3059\u308b\u305f\u3081\u306e\u30aa\u30d5\u30bb\u30c3\u30c8
Offset := (Dest.Width -1) – Row;
\/\/ Src\u5782\u76f4\u65b9\u5411\u306e\u30eb\u30fc\u30d7
for Col := 0 to Src.Width -1 do
begin
\/\/ Dest\u306e\u914d\u5217\u3092\u30af\u30ed\u30b9\u3055\u305b\u308b
DestRow := Dest.ScanLine[Col];
\/\/ \u914d\u5217\u3092\u30bb\u30c3\u30c8\u3059\u308b
DestRow[Offset].rgbtRed := SrcRow[Col].rgbtRed;
DestRow[Offset].rgbtGreen := SrcRow[Col].rgbtGreen;
DestRow[Offset].rgbtBlue := SrcRow[Col].rgbtBlue;
end;
end;
\/\/ \u6210\u529f\u3057\u305f\u5834\u5408\u3001Dest\u306e\u30cf\u30f3\u30c9\u30eb\u3092\u8fd4\u3059
Image1.Picture.Bitmap.Handle := Dest.ReleaseHandle;
except
\/\/ \u5931\u6557\u3057\u305f\u5834\u5408\u3001Src\u306e\u30cf\u30f3\u30c9\u30eb\u3092\u8fd4\u3059
Image1.Picture.Bitmap.Handle := Src.ReleaseHandle;
end;
finally
Src.Free;
Dest.Free;
end;
end;<\/p>\n\n\n
<\/p>\n","protected":false},"excerpt":{"rendered":"
typeTRGBArray = array[0 .. 0] of TRGBTriple;PRGBArray = ^TRGBArray; \/\/ \u5de6\u56de\u8ee2\u30b5\u30f3\u30d7\u30ebprocedure TForm1.Button1Click(Se … <\/p>\n