FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#4
|
|||
|
|||
Ahí lo hice, es una cosa de niños al final...
Código:
procedure TForm1.Button1Click(Sender: TObject); var e,I: Integer; begin igual := 0; distinto := 0; for I := 0 to Image1.Width-1 do begin for E := 0 to Image1.Height - 1 do begin if Image1.Picture.Bitmap.Canvas.Pixels[e,i] = Image2.Picture.Bitmap.Canvas.Pixels[e,i] then igual := igual +1 else distinto := distinto+1; end; end; labelededit1.Text := IntToStr(igual); labelededit2.Text := IntToStr(distinto); end; |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Contener algúna imagen desde otra PC | mrnovice | Gráficos | 2 | 28-08-2008 00:09:08 |
Mover una imagen encima de otra | maravert | Gráficos | 2 | 24-02-2005 01:04:45 |
¿Como colocar una imagen dentro de otra? | astur_racing | Gráficos | 3 | 12-08-2004 20:26:56 |
Imagen a pantalla completa. | gynch | Gráficos | 2 | 16-04-2004 16:46:36 |
Insertar una imagen encima de otra e imprimirlas | CORBATIN | Gráficos | 0 | 04-06-2003 00:16:19 |
|