Simple función para convertir un Icono a un mapa de bits.
procedimiento IconToBitmapEx(Icono: TIcon var mapa de bits: TBitmap
& nbsp & nbsp Tamaño: Integer = 16)
begin
& nbsp & nbsp (* Simple función para convertir un icono, en un
& nbsp & nbsp & nbsp & nbsp mapa de bits y especifica el tamaño *)
& nbsp & nbsp Assert(Asignado(Icono), 'no hay Ningún Icono especificado!')
& nbsp & nbsp si no Asignados(mapa de bits), a continuación,
& nbsp & nbsp & nbsp & nbsp mapa de bits := TBitmap.Crear
& nbsp & nbsp mapa de bits.ancho := Icono.Anchura
& nbsp & nbsp mapa de bits.altura := Icono.Altura
& nbsp & nbsp mapa de bits.El lienzo.Dibujar(0, 0, Icono)
& nbsp & nbsp si el Tamaño de la <> de mapa de bits.Ancho, a continuación,
& nbsp & nbsp & nbsp & nbsp mapa de bits.el lienzo.StretchDraw(Rect(0, 0, Tamaño, Tamaño), mapa de bits)
& nbsp & nbsp mapa de bits.ancho := Tamaño de la
& nbsp & nbsp mapa de bits.altura := Tamaño de la
fin
Icontobitmap
Icontobitmap : Multi-millones de consejos para hacer su vida mas facil.
Simple funcion para convertir un Icono a un mapa de bits.
procedimiento IconToBitmapEx(Icono: TIcon var mapa de bits: TBitmap
& nbsp & nbsp Tamaño: Integer = 16)
begin
& nbsp & nbsp (* Simple funcion para convertir un icono, en un
& nbsp & nbsp & nbsp & nbsp mapa de bits y especifica el tamaño *)
& nbsp & nbsp Assert(Asignado(Icono), 'no hay Ningun Icono especificado!')
& nbsp & nbsp si no Asignados(mapa de bits), a continuacion,
& nbsp & nbsp & nbsp & nbsp mapa de bits := TBitmap.Crear
& nbsp & nbsp mapa de bits.ancho := Icono.Anchura
& nbsp & nbsp mapa de bits.altura := Icono.Altura
& nbsp & nbsp mapa de bits.El lienzo.Dibujar(0, 0, Icono)
& nbsp & nbsp si el Tamaño de la <> de mapa de bits.Ancho, a continuacion,
& nbsp & nbsp & nbsp & nbsp mapa de bits.el lienzo.StretchDraw(Rect(0, 0, Tamaño, Tamaño), mapa de bits)
& nbsp & nbsp mapa de bits.ancho := Tamaño de la
& nbsp & nbsp mapa de bits.altura := Tamaño de la
fin
