FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Editar imagen en Delphi
Hola, deseo conocer como editar una imagen(fotograria), que yo pudiera agragarle rayas tipo paint, abrir una aplicacion similar y poder guardarla en oracle, y como la guardaria , ojala alguien tenga algo de informacion que me pudieran proporcionar, gracias.
|
#2
|
|||
|
|||
Revisa estos tres eventos ejecutados sobre una imagen y luego me cuentas.
procedure TFrepfurgones.Image2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin PenDown := True; StartPoint := Point(X,Y); end; procedure TFrepfurgones.Image2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin If penDown Then Begin IF Frepfurgones.CheckBox4.Checked = True Then Begin Image2.Canvas.Pen.Color := ClWhite; Image2.Canvas.Pen.Width := 6; End Else Begin Image2.Canvas.Pen.Color := ClRed; Image2.Canvas.Pen.Width := 2; End; Image2.Canvas.MoveTo(StartPoint.X, StartPoint.Y); Image2.Canvas.LineTo(X,Y); StartPoint := Point(X,Y); End; procedure TFrepfurgones.Image2MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin PenDown := False; end; |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Cómo almacenar, editar y recuperar una archivo de imagen guardado en la base de datos | JKM | MS SQL Server | 0 | 03-05-2006 22:29:41 |
Editar Imagen con Streach | soloriv | Gráficos | 2 | 24-04-2006 17:40:17 |
Dibujar en Delphi una imagen OLE de access | Esti | Conexión con bases de datos | 2 | 24-11-2005 14:02:00 |
Como editar imagen | erasmorc | Gráficos | 6 | 24-10-2005 18:46:17 |
Imagen del icono de delphi | IVAND | Varios | 8 | 26-10-2004 18:17:16 |
|