![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#8
|
|||
|
|||
bueno no se si te servira mi idea y si es eso lo que quieres, pero trabajando con el canvas del objeto y aprovechando la propiedad color puedes hacer, creo, lo que quieres. he hecho una pequeña demostracion. pones un boton en un form y el codigo siguiente
pruebalo a ver si es lo que quieres o por lo menos te da una idea procedure TForm1.Button1Click(Sender: TObject); begin self.Canvas.Pen.Color:=$FF0080; self.Canvas.LineTo(50,50); end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if (IntToHex(self.Canvas.Pixels[x,y],1)) = 'FF0080' then begin self.Cursor:=crHandPoint; end else self.Cursor:=crDefault; end; |
|
|
![]() |
|