Эффекты к имиджу

[mutabor]

Больше никто эффектов не знает? Я разочарован...

1. Практически в любом мобильном телефоне с камерой есть около шести эффектов.
2. Далее открываем программу MSPaint и находим еще с десяток.
3. Ну и на закуску Фотошоп, особенно вкладка Фильтры.

[Marsik]

(Японский городовой, как же достали тормоза на форуме!!!)- вы это о чем? Мутабор имеется ввиду реализация на делфи!

[Карась]

Сообщение от Marsik

(Японский городовой, как же достали тормоза на форуме!!!)- вы это о чем? Мутабор имеется ввиду реализация на делфи!

Это наверное относится к глюкам форума..... Но получилось двояко

Несовсем понятно что вы хотите от нас?
Любой эффект можно сбацать на делфи.

[Marsik]

Михалыч спасибо!!! Карась да можно...если знать как! А кстати пытаюсь реализовать одну идею. В демках от Михалыча есть эффект под назвнием антиалиаз, вот еГо код:

procedure AntiAliasRect(clip: tbitmap; XOrigin, YOrigin,
  XFinal, YFinal: Integer);
var Memo,x,y: Integer; (* Composantes primaires des points environnants *)
    p0,p1,p2:pbytearray;

begin
   if XFinal<XOrigin then begin Memo:=XOrigin; XOrigin:=XFinal; XFinal:=Memo; end;  (* Inversion des valeurs   *)
   if YFinal<YOrigin then begin Memo:=YOrigin; YOrigin:=YFinal; YFinal:=Memo; end;  (* si diff‚rence n‚gative*)
   XOrigin:=max(1,XOrigin);
   YOrigin:=max(1,YOrigin);
   XFinal:=min(clip.width-2,XFinal);
   YFinal:=min(clip.height-2,YFinal);
   clip.PixelFormat :=pf24bit;
   for y:=YOrigin to YFinal do begin
    p0:=clip.ScanLine [y-1];
    p1:=clip.scanline [y];
    p2:=clip.ScanLine [y+1];
    for x:=XOrigin to XFinal do begin
      p1[x*3]:=(p0[x*3]+p2[x*3]+p1[(x-1)*3]+p1[(x+1)*3])div 4;
      p1[x*3+1]:=(p0[x*3+1]+p2[x*3+1]+p1[(x-1)*3+1]+p1[(x+1)*3+1])div 4;
      p1[x*3+2]:=(p0[x*3+2]+p2[x*3+2]+p1[(x-1)*3+2]+p1[(x+1)*3+2])div 4;
      end;
   end;
end;

procedure AntiAlias(clip: tbitmap);
begin
 AntiAliasRect(clip,0,0,clip.width,clip.height);
end;

При применении этоГо эффекта весь рисунок становится "мяГким". А вот как можно сделать чтобы этот эффект действовал не на весь рисунок, а на область на которую нажимает пользователь. Типа инструмента короче. Как например ластик, он же не стирает всю область, а только то место где на него нажимают.

[mihali4]

Про тормоза - это к тому, что семь минут отправить ответ не мог...
Извиняюсь, действительно, можно было понять в другом смысле. Но это - дело вкуса и степени испорченности

А вот как можно сделать чтобы этот эффект действовал не на весь рисунок, а на область

Ну так при вызове процедуры указывается обрабатываемая область:
AntiAliasRect(clip,0,0,clip.width,clip.height);
Если указать некую область рисунка (ее левый верхний угол, ширину и высоту), то именно к ней и будет применен выбранный эффект.
Например:
AntiAliasRect(clip,50,50,120,120);
обработает квадрат 70Х70 с отступом по 50 слева и сверху...

[Marsik]

А почему Я теперь начал компилировать, а он(компилятор) Мне пишет типа undeclareted identificator : min, max ,inttobyte? Раньше нормально компилировал. Пока никаких кроме неГо компонентов не ставил.В связи с чем это может быть связано?

[mihali4]

Ну, это вы просто неправильно организовали вызов процедуры.

[Marsik]

А как правильно? Я пробовал процедуру засовывать после

implementation

{$R *.dfm}

и нажимал на компиляцию...и все равно! Даже не вызываю функцию, все равно ошибки!

[mutabor]

а он(компилятор) Мне пишет типа undeclareted identificator : min, max ,inttobyte

не подключена библиотека Math, добавь её в Uses

[mihali4]

На всякий случай. Картинка имеет размер 180Х120. Вызываю:

procedure TForm1.Button1Click(Sender: TObject);
begin
AntiAliasRect(Image1.Picture.Bitmap,20,20,160,100);
Image1.Repaint;
end;

Ровно в центре картинки происходит обработка области 140Х80, не затрагивая полосу шириной 20 по периметру картинки.