codigo-base.el-foro.net
Would you like to react to this message? Create an account in a few clicks or log in to continue.
CHAT
Search
 
 

Display results as :
 


Rechercher Advanced Search

Latest topics
» Saludos Andres Reyes - MURIO ESTE FORO.?
Con OutLook2003 EmptyThu Oct 26, 2017 8:01 pm by joseluisysturiz

» Eliminar TaskGroup y Crear Uno nuevo en su misma ubicación
Con OutLook2003 EmptyWed Jun 27, 2012 3:09 pm by hjvargas

» ERROR AL EJECUTAR DEMO DE TTPANEL
Con OutLook2003 EmptyWed Oct 26, 2011 4:46 pm by Fidel Echavarrria

» ERROR AL COMPILAR MI SISTEMA TTASKPANEL.LIB|c_dibbmp
Con OutLook2003 EmptyWed Oct 26, 2011 3:42 pm by Andres Reyes

» Hola a todos
Con OutLook2003 EmptyWed Apr 27, 2011 12:44 am by Pedro

» Los saludos de un profesor de Ingles en Costa Rica soleada.
Con OutLook2003 EmptyWed Jan 26, 2011 4:03 pm by RichardBlank

» Con OutLook2003
Con OutLook2003 EmptyTue Jan 11, 2011 7:38 pm by Francis Barrimbhal

» Una sugerencia en cuanto a la distribución de la Lib
Con OutLook2003 EmptyTue Jan 11, 2011 7:25 pm by Francis Barrimbhal

» problema con la animación
Con OutLook2003 EmptyMon Aug 30, 2010 4:35 pm by armando.lagunas


Con OutLook2003

2 posters

Go down

Con OutLook2003 Empty Con OutLook2003

Post  AIDA Tue Jul 06, 2010 2:48 pm

Hola

Aqui esta lo que me pediste farao


Con OutLook2003 Programita


Code:


 DEFINE OUTLOOK2003 oOutLook2003 OF oApp:oWnd ;
      PROMPTS "Autos", "Daños", "Vida", "Gastos Medicos", "Accidentes" ;
      BITMAPS  "ima\auto.bmp", "ima\btn3.bmp","ima\vidal.bmp","ima\medical_bag.bmp", "ima\gmm.bmp"

  oApp:oWnd:oLeft = nil

  oExBar := TExplorerBar():New(oOutLook2003:aDialogs[ 1 ])

      bClick := {|| msgbeep() }

      DEFINE TASKPANEL oExBar
          TASKGROUP  "ALTAS AUTOS" BITMAP "ima\auto.bmp" SPECIAL WATERMARK "ima\Image28.bmp"  COLLAPSABLE
            TASKITEM "Alta solicitud"          BITMAP "ima\16x16\new2.bmp"    TOOLTIP "Registre la solicitud del cliente"                        action ALTA_A()
            TASKITEM "Alta de Folio Solicitud" BITMAP "ima\16x16\mget.bmp"    TOOLTIP "Registre el folio de recepcion de la compañia de seguros" action  BUSCASOL1()
            TASKITEM "Alta poliza"            BITMAP "ima\16x16\inspect.bmp"  TOOLTIP "Registre los datos de la poliza"                          action  BUSCAPOL1()
       TASKITEM "Modificaciones"          BITMAP "ima\16x16\source.bmp"  TOOLTIP "Modulo de modificaciones de datos de solicitud"          action  MODIFICAPOLIZA()
       TASKITEM "Pagos"                  BITMAP "ima\16x16\Image1.bmp"  TOOLTIP "Modulo de ingresos a la compañia"                        action  pagos()
        ENDTASKGROUP
            TASKGROUP "BAJAS AUTOS"  BITMAP "ima\auto.bmp" SPECIAL WATERMARK "ima\cancelar.bmp"  COLLAPSABLE
            TASKITEM "Cancelaciones"          BITMAP "ima\16x16\stop.bmp"      action  CACELA()
            TASKITEM "Rehabilitaciónes"        BITMAP "ima\16x16\favorite.bmp"  action  EXCACELA()
            TASKITEM "Baja Total Poliza"      BITMAP "ima\16x16\delete.bmp"    action  BUSCABORRAS()
       TASKITEM "Baja Total Solicitud"    BITMAP "ima\16x16\delete.bmp"    action  BUSCABORRASF()
   ENDTASKGROUP
        TASKGROUP  "CONSULTAS"  BITMAP "ima\16x16\find2.bmp"  SPECIAL WATERMARK "ima\Image15.bmp"  COLLAPSED
            TASKITEM "No. de poliza"          BITMAP "ima\16x16\find3.bmp"    action  BUSCAPOLIZA1()
            TASKITEM "Nombre"                  BITMAP "ima\16x16\find3.bmp"    action    Lista_clientes() //ShowPopup()
        ENDTASKGROUP
                   oExBar:lAnimate := !oExBar:lAnimate
      
      ENDTASKPANEL

      
       oExBar:AnchorLeft()
       oExBar:AnchorRight()

Saluditos lol!
AIDA
AIDA

Posts : 1
Reputation : 0
Join date : 2010-07-06

Back to top Go down

Con OutLook2003 Empty Re: Con OutLook2003

Post  Francis Barrimbhal Tue Jan 11, 2011 7:38 pm

Aida, saludos!
¡Qué hermosa es su software. Hay manera de compartir el código completo o una copia con este compañero que es nuevo en Brazil Fivewin? Me encantaría.
Felicito a usted, es espléndido.

dr.microso@hotmail.com

Francis Barrimbhal

Posts : 2
Reputation : 0
Join date : 2011-01-11
Age : 53
Location : Belo Horizonte/MG/Brazil

Back to top Go down

Back to top


 
Permissions in this forum:
You cannot reply to topics in this forum