Ну вот опять я...Опять куча вопросов.Решил написать че то типа паинта : с зумом, с палитрами - ну короче со всем и решил добавить новое - тени гаусово размытие ...Вот и прошу помочь мне - с чего мне собственно начать ???Почему не открываються *.jpg или как сделать поддержку *.png .Почему при изменении размеров формы image так сильно мерцает...Короче я так понял это довольно тяжедая тема и прошу помочь кто чем может ...

1) Для использования *.jpg подключи модуль JPEG к проекту
2) Поддержку *.png можно сделать с помощью дополнительных компонентов, которые входят в состав JEDI VCL (http://delphi-jedi.org) или возьми с http://pngdelphi.sourceforge.net/. Есть еще некоторые. Юзай поиск и torry.net.
3) Из-за чего мерцает Image? Этот вопрос звучит скорее как риторический. Ведь это не оконный компонент, а графический. То есть он отрисовывается на родительском оконном компоненте. Так что при необходимости его перерисовки сначала перерисовывается компонент под ним, а потом уже сам Image. Вот это и вызывает мерцание.

Какие методы устранения?
Можно попробовать Image.ControlStyle := Image.ControlStyle + [csOpaque], но в ряде случаев мерцание все равно будет заметно. Я вот библиотеку целую сделал, чтобы обойтись без TImage. Мерцания никакого. Загляни сюда: http://forum.vingrad.ru/index.php?showtopic=39908.

Библиотеку видел.Стронних компонентов использоваться не хочу .Мерцания избежал даббл буфером.Вопросик - можно ли как то зоом делать ?!А модуль jpeg у меня всегда покключен- но не фига не пашет..

ShuVaS!
Прости я насчет *.png
ну зачем тебе париться
да возьми библиотеку с открытыми кодами
да выдери оттуда работу с png
поверь и по времени и по силам ты сэкономишь
всеравно ничего координально лучшего ты не создашь

напрягает эта библиотека
кинь ссылку на себя пришлю GraphicEx добавка к VirtualTree
вроде там объявили много
вот почитай

GraphicEx is an addendum to Delphi's Graphics.pas in order to enable your application to load many common image formats. This library is primarily designed to load images as background (buttons, forms, toolbars) and textures (DirectX, OpenGL) or for image browsing and editing purposes as long as you don't need to save images. Currently only TTargaGraphic also supports saving an image.
GraphicEx is open source under the Mozilla Public License (MPL). Please read the license agreement before you start using this library.

Portable network graphic images (*.png)byte order: big endian
sample sizes: 1, 2, 4, 8, 16 bits per sample
color spaces: indexed, grayscale (alpha), RGB(A)
compression format: LZ77
specials:
supported chunks: IHDR, IDAT, IEND, PLTE, gAMA, tRNS, bKGD
transparency support partially for RGB, which is stored as 32 bits format

Желаю успехов

Ладно но допустим я открываю разные форматы .Png там jpeg и на разные расширения - разные процедуры:привожу пример сосежнего топика :

Код

uses ..., JPEG; procedure TForm1.Button1Click(Sender: TObject); var  JPEG: TJPEGImage; begin  JPEG := TJPEGImage.Create;  try    JPEG.LoadFromFile('Work2.jpg');    IMage1.Picture.Bitmap.Assign(JPEG);  finally    FreeAndNil(JPEG);  end;  //Если нужен прозрачный фон, то раскоментируй эту строчку  //SetBkMode(Image1.Canvas.Handle, TRANSPARENT);  Image1.Canvas.TextOut(10, 10, 'bla bla bla'); end;

или свой обработчик открытия бмп:

Код

procedure TForm1.N2Click(Sender: TObject); var  b : tbitmap; begin If OpenDialog1.Execute then   begin    try     b:=tbitmap.Create;     b.LoadFromFile(OpenDialog1.FileName);     Caption:=ExtractFileName(OpenDialog1.Filename) + ' - Drawer';     image1.Picture.Graphic :=b;    except      b.Free;      end;    end; end;

Вопрос - одной процедурки то нету для открытия всех типов файлов - как при нажатии на кнопку при выборе изображения сама выбиралась нужная процедура ?

Код

uses ..., JPEG, {GIF, PNG, PSD...}; var Image:TBitmap; procedure TForm1.Button1Click(Sender: TObject); var pic: TPicture; begin pic:= TPicture.Create; try   pic.LoadFromFile('File.любое_поддерживаемое_расширение'); finally   FreeAndNil(pic);   exit; end; Image.assign(pic.graphic);//надеюсь, что Image у нас уже создано pic.free; end;

комментарии по поводу данного кода: с jpeg никаких проблем не будет вообще... а с другими форматами (и бмп тоже!) БУДУТ! Вся проблема что GIF, BMP, PNG бывают "прозрачными". Нужно как бы проверять изображения на прозрачность (BMP, PNG - pixelformat = pf24bit, GIF - тут как я понял нужно смотреть все картинки и проверять на прозрачность каждую - выходит надёжнее) и в этом случае загружать нужно в соответствии с особенностями даных форматом и модулей, которые их поддерживают, но в конечном итоге получим Image.pixelformat:=pf32bit!. Теперь вся трудонсть в том, что винда хоть и повсюду юзает 32-битные битмапки, обычным GDI их не выведешь ... Нужно через scanline их дравить на буфер а потом выводить на экран.

Это сообщение отредактировал(а) Illusion Dolphin - 19.1.2005, 12:08

а анализировать название файла не хочешь
перед открытием

типа расширение JPG тогда процедура по открыдию JPG
а если PNG тгогда процедура по открыдию PNG

конечно это упрощенно

можно в дальнейшем создать и абстрактный клас

что то типа
посмотри код

if AnsiLastChar(FDirectory)^ <> '\' then FDirectory := FDirectory + '\';
Picture := TPicture.Create;
Extensions := TStringList.Create;
try
FileFormatList.GetExtensionList(Extensions);
for I := 0 to Extensions.Count - 1 do Extensions[I] := '.' + UpperCase(Extensions[I]);
Extensions.Sort;
if FindFirst(FDirectory + '*.*', faAnyFile, SR) = 0 then
begin
// iterate through the picked folder and collect all known image files
repeat
if SR.Attr <> faDirectory then
begin
// check whether this file is an image file we can show
Ext := ExtractFileExt(SR.Name);
if Extensions.Find(Ext, I) then
begin
// fine, we found an image file, so add it to our internal list
New(Entry);
Entry.Name := SR.Name;
Entry.Bitmap := TBitmap.Create;
try
Picture.LoadFromFile(FDirectory + SR.Name);
if not (Picture.Graphic is TBitmap) then
begin
// Some extra steps needed to keep non TBitmap descentant alive when scaling.
// This is needed because when accessing Picture.Bitmap all non-TBitmap content
// will simply be erased (definitly the wrong action, but we can't do anything
// to prevent this). Hence we must draw the graphic to a bitmap.
with Entry.Bitmap do
begin
PixelFormat := pf24Bit;
Width := Picture.Width;
Height := Picture.Height;
Canvas.Draw(0, 0, Picture.Graphic);
end;
Picture.Bitmap.Assign(Entry.Bitmap);
end;
RescaleImage(Picture.Bitmap, Entry.Bitmap, True);
FFileList.Add(Entry);
Caption := IntToStr(Count) + ' images loaded';
R.Top := YPos + (Count div XCount) * HeightPerLine;
if R.Top < R.Bottom then
begin
InvalidateRect(Handle, @R, False);
UpdateWindow(Handle);
end;
Inc(Count);
except
// no exceptions please, just ignore invalid images
Application.ProcessMessages;
end;

Че то не фига не понял я .... короче закидываю на время я создание паинта - теперь мне хотя бы сделать что бы форматы открывало развыне (*.bmp *.jpeg *.png и *.giv и *.ico ).Вот кинул на форму имадже , кнопку - и какой обработчик писать??Желательно без findfirst ...можно по подробнее...

p.s Дельфин ты где ???Я тя в асе уже дней пять выцепляю !

Хорошо давай поподробнее
кидаешь на форму
OpenDialog

на событии по нажатию кнопки
пишешь
if OpenDialog1.Execute then { если OpenDialog1.выпониося тогда... дословный перевод}
begin
...
...
end;
весь навар у тебя в том что ты имеешь

OpenDialog1.FileName полное имя открываемого файла

теперь можно написать

Ext := ExtractFileExt(SR.Name);

получить расширение выбранного файла

получаем

if OpenDialog1.Execute then { если OpenDialog1.выпониося тогда... дословный перевод}
begin
Ext := ExtractFileExt(SR.Name);

end;

а уж дальше сваливаешься куда тебе надо.... и как тебе надо


примеры

if Ext='JPG' then ......
если EXT определена как строка

или
case Ext of
'JPG':....
'PNG':...
end;
если EXT определена как типизированая переменная

я там заметил неточность

SR.Name:=OpenDialog1.FileName

это одно и тоже

ShuVaS: если хочешь я могу сюда развестить примерчик который открывает BMP JPEG GIF (всё остальное - качай GraphicsEx), но уже завтра...

оки ... заранее спасиба ..

Хе-хе
Paint-demo. Поддержка: BMP (32-битные тоже!) , JPEG, GIF (эксперементально) + скролинг.
Исходники прилагаются. Понятия написанного мною достаточно чтобы довести до ума идею.

Код

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ExtCtrls, Menus, ExtDlgs, PanelCanvas, jpeg, math, GIFImage,  StdCtrls;  type  TRGB32=record  b,g,r,l : byte;  end;  Type    ARGB32=array [0..1] of TRGB32;    PARGB32=^ARGB32; Type  TRGB=record  b,g,r : byte;  end;    ARGB=array [0..1] of TRGB;    PARGB=^ARGB;    PRGB = ^TRGB; Type TTool=(ToolNone,ToolPen); type  TEditor = class(TForm)    MainMenu1: TMainMenu;    File1: TMenuItem;    Open1: TMenuItem;    ToolsPanel: TPanel;    OpenPictureDialog1: TOpenPictureDialog;    Shape1: TShape;    ColorDialog1: TColorDialog;    ScrollBar1: TScrollBar;    ScrollBar2: TScrollBar;    procedure Open1Click(Sender: TObject);    procedure FormCreate(Sender: TObject);    procedure Panel2Resize(Sender: TObject);    procedure MakeImage;    procedure FormPaint(Sender: TObject);    procedure LoadProgramImageFormat(Pic : TPicture);    procedure LoadJPEGImage(JPEG : TJPEGImage);    procedure LoadBMPImage(Bitmap : TBitmap);    procedure LoadGIFImage(GIF : TGIFImage);    procedure Shape1MouseDown(Sender: TObject; Button: TMouseButton;      Shift: TShiftState; X, Y: Integer);    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;      Shift: TShiftState; X, Y: Integer);    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;      Shift: TShiftState; X, Y: Integer);    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,      Y: Integer);    procedure ScrollBar2Change(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Editor: TEditor;  CurrentImage, Buffer : TBitmap;  Tool : TTool;  BeginPoint : TPoint; implementation {$R *.dfm} procedure Line(image : TBitmap; x_begin,y_begin,x_end,y_end : integer; Color: Tcolor); var  fx,fy,i : integer;  x,y,tg : real;  p : Pargb32;  r,g,b : byte; Procedure Replace(var x1,x2 : integer); var   temp : integer; begin  temp:=x1;  x1:=x2;  x2:=temp; end; begin image.PixelFormat:=pf32bit; r:=GetRValue(Color); g:=GetGValue(Color); b:=GetBValue(Color); if ((y_end - y_begin)=0)  and ((x_end - x_begin)=0) then begin  if (y_begin<image.Height-1) and (y_begin>=0) then  begin  p:=image.ScanLine[y_begin];   if (x_begin<image.Width-1) and (x_begin>=0) then   begin    p[x_begin].r:=r;    p[x_begin].g:=g;    p[x_begin].b:=b;    p[x_begin].l:=255;   end;  end;  exit; end; if (abs(x_end-x_begin) < abs(y_end-y_begin)) and ((y_end - y_begin)<>0)  then begin  if y_begin>y_end then  begin   replace(x_begin,x_end);   replace(y_begin,y_end);  end;  tg:=((x_begin-x_end)/(y_begin-y_end));  for i:=y_begin to y_end do  begin   x:=x_begin+(i-y_begin)*tg;   fx:=round(x);   fy:=round(i);   if (fy<image.Height-1) and (fy>=0) then   begin    p:=image.ScanLine[fy];    if (fx<image.Width-1) and (fx>=0) then    begin     p[fx].r:=r;     p[fx].g:=g;     p[fx].b:=b;     p[fx].l:=255;    end;   end;  end; end; if  (abs(x_end-x_begin) >= abs(y_end-y_begin)) and ((x_end - x_begin)<>0) then begin  if x_begin>x_end then  begin   replace(x_begin,x_end);   replace(y_begin,y_end);  end;  tg:=((y_end-y_begin)/(x_end-x_begin));  for i:=x_begin to x_end do  begin   y:=y_begin+(i-x_begin)*tg;   fx:=round(i);   fy:=round(y);   if (fy<image.Height-1) and (fy>=0) then   begin    p:=image.ScanLine[fy];    if (fx<image.Width-1) and (fx>=0) then    begin     p[fx].r:=r;     p[fx].g:=g;     p[fx].b:=b;     p[fx].l:=255;    end;   end;  end; end; end; procedure TEditor.Open1Click(Sender: TObject); var  pic : TPicture; begin if OpenPictureDialog1.Execute then begin  pic := TPicture.Create;  try   pic.LoadFromFile(OpenPictureDialog1.FileName);  except   pic.free;   exit;  end;  LoadProgramImageFormat(pic);  pic.free;  MakeImage;  FormPaint(self);  Panel2Resize(self) end; end; procedure TEditor.FormCreate(Sender: TObject); begin CurrentImage:=TBitmap.Create; CurrentImage.PixelFormat:=pf32bit; //!!!! CurrentImage.Width:=0; CurrentImage.Height:=0; Buffer:=TBitmap.Create; Buffer.PixelFormat:=pf24bit; Tool:=ToolNone; end; procedure TEditor.Panel2Resize(Sender: TObject); begin Buffer.Width:=Max(1,ClientWidth-ToolsPanel.Width-ScrollBar2.Width); Buffer.Height:=Max(1,ToolsPanel.Height-ScrollBar1.Height); ScrollBar1.Width:=ClientWidth-ToolsPanel.Width-ScrollBar2.Width; ScrollBar1.Top:=ClientHeight-ScrollBar1.Height; ScrollBar2.left:=ClientWidth-ScrollBar2.Width; ScrollBar2.Height:=ToolsPanel.Height-ScrollBar1.Height; ScrollBar1.Max:=Max(0,CurrentImage.Width-Buffer.Width); ScrollBar2.Max:=Max(0,CurrentImage.Height-Buffer.Height); MakeImage; FormPaint(nil); end; procedure TEditor.MakeImage; var  i, j : integer;  p : PARGB;  p32 : PARGB32;  Color1, Color2 : TColor;  r1,r2,g1,g2,b1,b2 : byte; begin Color1:=$FFFFFF; Color2:=$A1A1A1; r1:=GetRValue(Color1); g1:=GetGValue(Color1); b1:=GetBValue(Color1); r2:=GetRValue(Color2); g2:=GetGValue(Color2); b2:=GetBValue(Color2); for i:=0 to Buffer.Height-1 do begin  p:=Buffer.ScanLine[i];  for j:=0 to Buffer.Width-1 do  begin   if odd((i*j) div 5) then //фоновый рисунок :)   begin    p[j].r:=r1;    p[j].g:=g1;    p[j].b:=b1;   end else   begin    p[j].r:=r2;    p[j].g:=g2;    p[j].b:=b2;   end;  end; end; for i:=0 to Math.Min(Buffer.Height-2,CurrentImage.Height-1) do begin  p:=Buffer.ScanLine[i+1];  if i+ScrollBar2.Position>CurrentImage.Height-1 then Break;  p32:=CurrentImage.ScanLine[i+ScrollBar2.Position];  for j:=0 to Math.Min(Buffer.Width-2,CurrentImage.Width-1) do  begin   if j>CurrentImage.Width-1 then Break;   p[j+1].r:=Round((p32[j+ScrollBar1.Position].r)*(p32[j+ScrollBar1.Position].l/255)+p[j+1].r*(1-p32[j+ScrollBar1.Position].l/255));   p[j+1].g:=Round((p32[j+ScrollBar1.Position].g)*(p32[j+ScrollBar1.Position].l/255)+p[j+1].g*(1-p32[j+ScrollBar1.Position].l/255));   p[j+1].b:=Round((p32[j+ScrollBar1.Position].b)*(p32[j+ScrollBar1.Position].l/255)+p[j+1].b*(1-p32[j+ScrollBar1.Position].l/255));  end; end; for i:=0 to Math.Min(Buffer.Height-1,CurrentImage.Height-1) do begin  p:=Buffer.ScanLine[i];  p[0].r:=0;  p[0].g:=0;  p[0].b:=0; end; p:=Buffer.ScanLine[0]; for j:=0 to Math.Min(Buffer.Width-2,CurrentImage.Width-1) do begin  p[j].r:=0;  p[j].g:=0;  p[j].b:=0; end; if Buffer.Width-1>CurrentImage.Width-1 then for i:=0 to Math.Min(Buffer.Height-1,CurrentImage.Height-1) do begin  p:=Buffer.ScanLine[i];  p[CurrentImage.Width].r:=0;  p[CurrentImage.Width].g:=0;  p[CurrentImage.Width].b:=0; end; if Buffer.Height-1>CurrentImage.Height-1 then begin  p:=Buffer.ScanLine[CurrentImage.Height];  for j:=0 to Math.Min(Buffer.Width-2,CurrentImage.Width-1) do  begin   p[j].r:=0;   p[j].g:=0;   p[j].b:=0;  end; end; end; procedure TEditor.FormPaint(Sender: TObject); begin Canvas.Draw(ToolsPanel.Width,0,Buffer); end; procedure TEditor.LoadProgramImageFormat(Pic: TPicture); var  Bitmap : TBitmap; begin if Pic.Graphic is TJPEGImage then begin  LoadJPEGImage(Pic.Graphic as TJPEGImage); end; if Pic.Graphic is TBitmap then begin  LoadBMPImage(Pic.Graphic as TBitmap); end; if Pic.Graphic is TGIFImage then begin  LoadGIFImage(Pic.Graphic as TGIFImage); end; end; procedure TEditor.LoadJPEGImage(JPEG : TJPEGImage); var  Temp : TBitmap;  i, j : integer;  p : PARGB;  p32 : PARGB32; begin Temp := TBitmap.Create; Temp.Assign(JPEG); Temp.PixelFormat:=pf24bit; CurrentImage.Width:=Temp.Width; CurrentImage.Height:=Temp.Height; CurrentImage.PixelFormat:=pf32bit; for i:=0 to Temp.Height-1 do begin  p:=Temp.ScanLine[i];  p32:=CurrentImage.ScanLine[i];  for j:=0 to Temp.Width-1 do  begin   p32[j].r:=p[j].r;   p32[j].g:=p[j].g;   p32[j].b:=p[j].b;   p32[j].l:=255;  end; end; Temp.Free; end; procedure TEditor.LoadBMPImage(Bitmap: TBitmap); var  i, j : integer;  p : PARGB;  p32 : PARGB32; begin CurrentImage.Width:=Bitmap.Width; CurrentImage.Height:=Bitmap.Height; CurrentImage.PixelFormat:=pf32bit; if Bitmap.PixelFormat<>pf32bit then begin  Bitmap.PixelFormat:=pf24bit;  for i:=0 to Bitmap.Height-1 do  begin   p:=Bitmap.ScanLine[i];   p32:=CurrentImage.ScanLine[i];   for j:=0 to Bitmap.Width-1 do   begin    p32[j].r:=p[j].r;    p32[j].g:=p[j].g;    p32[j].b:=p[j].b;    p32[j].l:=255;   end; end; end else begin  CurrentImage.Assign(Bitmap); end; end; procedure TEditor.LoadGIFImage(GIF: TGIFImage); var  i, j : integer;  p32 : PARGB32; begin CurrentImage.Width:=GIF.Width; CurrentImage.Height:=GIF.Height; CurrentImage.Assign(GIF); CurrentImage.PixelFormat:=pf32bit; for i:=0 to GIF.Height-1 do begin  p32:=CurrentImage.ScanLine[i];  for j:=0 to GIF.Width-1 do  begin   if GIF.Images[0].Pixels[j,i]=GIF.Images[0].GraphicControlExtension.TransparentColorIndex then   p32[j].l:=0 else p32[j].l:=255;  end; end; end; procedure TEditor.Shape1MouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); begin ColorDialog1.Color:=Shape1.Brush.Color; if ColorDialog1.Execute then Shape1.Brush.Color:=ColorDialog1.Color; end; procedure TEditor.FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); begin Tool:=ToolPen; BeginPoint:=Point(x-ToolsPanel.Width,y); Line(CurrentImage,BeginPoint.X+ScrollBar1.Position,BeginPoint.Y+ScrollBar2.Position,x-ToolsPanel.Width+ScrollBar1.Position,y+ScrollBar2.Position,Shape1.Brush.Color); end; procedure TEditor.FormMouseUp(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); begin Tool:=ToolNone; end; procedure TEditor.FormMouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer); begin if Tool=ToolPen then begin  Line(CurrentImage,BeginPoint.X+ScrollBar1.Position,BeginPoint.Y+ScrollBar2.Position,x-ToolsPanel.Width+ScrollBar1.Position,y+ScrollBar2.Position,Shape1.Brush.Color);  BeginPoint:=Point(x-ToolsPanel.Width,y); end; MakeImage; FormPaint(nil); end; procedure TEditor.ScrollBar2Change(Sender: TObject); begin MakeImage; FormPaint(nil); end; end.

Это сообщение отредактировал(а) Illusion Dolphin - 20.1.2005, 22:01

Присоединённый файл ( Кол-во скачиваний: 24 )
 Paint.zip