|
Вопрос # 495/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
Как можно сделать так чтобы выбрав папку на форме появлялись все небольшого размера растровые изображения, а так же при нажатии на определенною она отурывалась в отдельном окне?
С уважением, Насыров И.Т.
 |
Вопрос задал: Насыров И.Т. (статус: Посетитель)
Вопрос отправлен: 17 апреля 2007, 21:48
Состояние вопроса: открыт, ответов: 2.
|
Ответ #1. Отвечает эксперт: Вадим К
алгоритм работы.
с помощью FindFirst/FindNext находим список файлов.
Дальше надо решить, как отображать превью. Например можно в DrawGrid. С помощью bitbtl или Canvas.Draw можно уменьшить картинку.
Ну а отобразить - это вообще просто. Картинку знаем, делаем форму, которая будет иметь Image а двойной клик обрабатывается просто
 |
Ответ отправил: Вадим К (статус: Академик)
Время отправки: 17 апреля 2007, 23:19
|
Ответ #2. Отвечает эксперт: Матвеев Игорь Владимирович
Здравствуйте, Насыров И.Т.!
Кладете на форму ListView, устанавливаете большие значки. При выборе папки сканируете директорию, отбираете файлы, для которых возможно создать эскиз и заполняете эскизами ImageList. (Создать эскизы можно либо с помощью StretchBlt - быстро но некрасиво, либо с помощью метода в приложении - тоже быстро и качественно). Потом добавляете записи в ListView, устанавливая ImageIndex'ы по-порядку указывая имена файлов в Caption.
При выборе изображения - открывете отдельную форму, на которой лежит Image и загружаете в него изображение (выбранная директория + имя файла).
Приложение: Переключить в обычный режим- //*************************************************************
- // Method to create Thumbnail of the desctop image. *
- //*************************************************************
-
- unit ThumbNail;
-
- interface
-
- uses Graphics;
-
- type
- PRGB24 = ^TRGB24;
- TRGB24 = packed record
- B: Byte;
- G: Byte;
- R: Byte;
- end;
-
- const
- FThumbSize = 150;
-
- procedure MakeThumbNail(Source, Dest: TBitmap);
-
- implementation
-
- procedure MakeThumbNail(Source, Dest: TBitmap);
- var
- x, y, ix, iy : Integer;
- x1, x2, x3 : Integer;
-
- xscale, yscale : Single;
- iRed, iGrn,
- iBlu, iRatio : LongWord;
- p, c1, c2, c3,
- c4, c5 : TRGB24;
- pt, pt1 : PRGB24;
- iSrc, iDst, s1 : Integer;
- i, j, r, g, b,
- tmpY : Integer;
-
- RowDest, RowSource,
- RowSourceStart,
- w, h,
- dxmin, dymin,
- ny1, ny2, ny3,
- dx, dy : Integer;
- lutX, lutY : array of Integer;
- begin
-
- if Source.PixelFormat <> pf24bit then Source.PixelFormat := pf24bit;
- if Dest.PixelFormat <> pf24bit then Dest.PixelFormat := pf24bit;
- w := Dest.Width;
- h := Dest.Height;
-
- iDst := (w * 24 + 31) and not 31;
- iDst := iDst div 8; //BytesPerScanline
- iSrc := (Source.Width * 24 + 31) and not 31;
- iSrc := iSrc div 8;
-
- xscale := 1 / (w / Source.Width);
- yscale := 1 / (h / Source.Height);
-
- // X lookup table
- SetLength(lutX, w);
- x1 := 0;
- x2 := Trunc(xscale);
- for x := 0 to w - 1 do
- begin
- lutX[x] := x2 - x1;
- x1 := x2;
- x2 := Trunc((x + 2) * xscale);
- end;
-
- // Y lookup table
- SetLength(lutY, h);
- x1 := 0;
- x2 := trunc(yscale);
- for x := 0 to h - 1 do
- begin
- lutY[x] := x2 - x1;
- x1 := x2;
- x2 := Trunc((x + 2) * yscale);
- end;
-
- Dec(w);
- Dec(h);
- RowDest := Integer(Dest.Scanline[0]);
- RowSourceStart := Integer(Source.Scanline[0]);
- RowSource := RowSourceStart;
- for y := 0 to h do
- begin
- dy := lutY[y];
- x1 := 0;
- x3 := 0;
- for x := 0 to w do
- begin
- dx:= lutX[x];
- iRed:= 0;
- iGrn:= 0;
- iBlu:= 0;
- RowSource := RowSourceStart;
- for iy := 1 to dy do
- begin
- pt := PRGB24(RowSource + x1);
- for ix := 1 to dx do
- begin
- iRed := iRed + pt.R;
- iGrn := iGrn + pt.G;
- iBlu := iBlu + pt.B;
- inc(pt);
- end;
- RowSource := RowSource - iSrc;
- end;
- iRatio := 65535 div (dx * dy);
- pt1 := PRGB24(RowDest + x3);
- pt1.R := (iRed * iRatio) shr 16;
- pt1.G := (iGrn * iRatio) shr 16;
- pt1.B := (iBlu * iRatio) shr 16;
- x1 := x1 + 3 * dx;
- inc(x3,3);
- end;
- RowDest := RowDest - iDst;
- RowSourceStart := RowSource;
- end;
-
- if Dest.Height < 3 then Exit;
-
- // Sharpening...
- s1 := integer(dest.ScanLine[0]);
- iDst := integer(dest.ScanLine[1]) - s1;
- ny1 := Integer(s1);
- ny2 := ny1 + iDst;
- ny3 := ny2 + iDst;
- for y := 1 to dest.Height - 2 do
- begin
- for x := 0 to dest.Width - 3 do
- begin
- x1 := x * 3;
- x2 := x1 + 3;
- x3 := x1 + 6;
-
- c1 := pRGB24(ny1 + x1)^;
- c2 := pRGB24(ny1 + x3)^;
- c3 := pRGB24(ny2 + x2)^;
- c4 := pRGB24(ny3 + x1)^;
- c5 := pRGB24(ny3 + x3)^;
-
- r := (c1.R + c2.R + (c3.R * -12) + c4.R + c5.R) div -8;
- g := (c1.G + c2.G + (c3.G * -12) + c4.G + c5.G) div -8;
- b := (c1.B + c2.B + (c3.B * -12) + c4.B + c5.B) div -8;
-
- if r < 0 then r := 0 else if r > 255 then r := 255;
- if g < 0 then g := 0 else if g > 255 then g := 255;
- if b < 0 then b := 0 else if b > 255 then b := 255;
-
- pt1 := pRGB24(ny2 + x2);
- pt1.R := r;
- pt1.G := g;
- pt1.B := b;
- end;
- Inc(ny1, iDst);
- Inc(ny2, iDst);
- Inc(ny3, iDst);
- end;
- end;
-
- end.
-
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
