Funciones de delphi utiles

StringToColor() : Manejo de la impresora (Margenes) Izquierdo: GetDeviceCaps(Printer.Handle, PHYSICALOFFSETX) Superior: GetDeviceCaps(Printer.Handle, PHYSICALOFFSETY) Derecho: GetDeviceCaps(Printer.Handle, PHYSICALWIDTH) - GetDeviceCaps(Printer.Handle, PHYSICALOFFSETX) - GetDeviceCaps(Printer.Handle, HORZRES) Inferior: GetDeviceCaps(Printer.Handle, PHYSICALHEIGHT) - GetDeviceCaps(Printer.Handle, PHYSICALOFFSETY) - GetDeviceCaps(Printer.Handle, VERTRES) Pixels X Pulgada X: GetDeviceCaps(Printer.Handle, LOGPIXELSX) Pixels X Pulgada Y: GetDeviceCaps(Printer.Handle, LOGPIXELSY) Crear una forma (Shape) en tiempo de ejecucion http://www.swissdelphicenter.ch/en/showcode.php?id=1790