¿Qué le añaden a sus programas?

[[José Luis Garcí]]

Hola compañeros tengo una inquietud por saber que digamos extras le añaden a sus programas y con que combinación de colores suelen jugar, como el tema de los colores de mis programas los pueden ver en este hilo http://www.clubdelphi.com/foros/show...t=83457&page=5 pongo a continuación algo suelo añadir normalmente en el módulo del menú del programa, se trata de lo siguiente:

Pongo normal mente un botón, con el siguiente código

Código Delphi [-]
//------------------------------------------------------------------------------
//**************************************************[ Corrector Ortográfico ]****
//------------------------------------------------------------------------------
begin
   ShellExecute(FMenuPrincipal.Handle, nil, PChar('http://www.correctorortografico.com'),'','',SW_SHOWNORMAL);
end;

permitiendo corregir la ortografía de un texto por el método claro copiar y pegar a través de Internet

Pongo normal mente otro botón, con el siguiente código
[DELPHI[/delphi]

Llamando al traductor de google, por el método claro copiar y pegar a través de Internet

Suelo añadir el siguiente código que ha ido evolucionando con los años que me permite crear anotaciones en fechas y marcarlas en el calendario

Código Delphi [-]

//haycambios:Boolean;   //Variable pública

//------------------------------------------------------------------------------
//*************************************[ MonthCalendar Click (ANOTACIONES) ]****
//------------------------------------------------------------------------------
var a,m,d:word;
begin      //Falta descodificar y comprobar el nivel de usuario
        if haycambios then
        begin
           if (MessageBox(0, 'Hay una anotación nueva o modificada, '+#13+#10+ '¿Desea grabarla?',   // Aqui no se porque me manda la última comilla simple y la coma a la linea de abajo,
                                                                                       //  por favor subir al final de la linea anterior
                              'Atención', MB_ICONSTOP or MB_YESNO or MB_DEFBUTTON2) = ID_No) then abort
           else memo3.Lines.SaveToFile(fechaactual);
           haycambios:=False;
        end;
        DecodeDate(MonthCalendar3.Date, a, m,d);
        fechaactual:=IntToStr(d)+'_'+IntToStr(m)+'_'+IntToStr(a);
        memo3.Lines.Clear;
        if FileExists(fechaactual) then memo3.Lines.LoadFromFile(fechaactual);
        haycambios:=false;
        PAnel13.caption:='Anotaciones para el '+ DateTostr(MonthCalendar3.Date);
        mesx:=m;
        Diax:=D
end;


procedure TFMenuPrincipal.MonthCalendar3GetMonthInfo(Sender: TObject;
  Month: Cardinal; var MonthBoldInfo: Cardinal);
//------------------------------------------------------------------------------
//*******************************[ MonthCalendar (anotaciones)  preparamos ]****
// MArcamos lod ías para los que hay notas y coloreamos
//------------------------------------------------------------------------------
var a,m,d:Word;
    i,cont, Mes:integer;
    dia:array[1..365] of cardinal;
    varNDiasouble;
    varFinicio,varfFin,varFactual:TDate;
begin
   uxtheme.SetWindowTheme(MonthCalendar3.Handle, '', '');  //Desactiva los temas usar uses UxTheme
   DecodeDate(Now, a, m ,d);
   fechaactual:=IntToStr(d)+'_'+IntToStr(m)+'_'+IntToStr(a);
   cont:=0;
   varFinicio:=strtodate('01/01/'+IntToStr(a));
   varffin:=strtodate('01/01/'+inttostr(a+1));
   varndias:=varffin-varfinicio;
   varfactual:=varfinicio;
   Mes:=1;
   for I := 1 to strtoint(FloatToStr(varndias)) do
   begin
      DecodeDate(varFactual, a, m ,d);
      fechaactual:=IntToStr(d)+'_'+IntToStr(m)+'_'+IntToStr(a);
      if (Mes<>M) then
      begin
         if Month=mes then MonthCalendar3.BoldDays(dia,MonthBoldInfo);
         ZeroMemory(@Dia,SizeOf(Dia));    //PAra vaciar el array
         Mes:=M;
         cont:=0;
      end;
      if FileExists(fechaactual) then
      begin
        cont:=cont+1;
        dia[Cont]:=strtoint(FloatToStr(d));
      end;
      if ((M=12) and (D=31)) then
      begin
        if Month=12 then MonthCalendar3.BoldDays(dia,MonthBoldInfo);
         ZeroMemory(@Dia,SizeOf(Dia));    //PAra vaciar el array
         Mes:=M;
         cont:=0;
      end;
      varFactual:=varFactual+1;
   end;
end;


procedure TFMenuPrincipal.SpeedButton30Click(Sender: TObject);
//------------------------------------------------------------------------------
//*****************************************************[ Crea la anotación ]****
//------------------------------------------------------------------------------
begin
    if haycambios then memo3.Lines.SaveToFile(fechaactual);
    MonthCalendar3.Date:= MonthCalendar3.Date+365;
    MonthCalendar3.Date:= MonthCalendar3.Date-365;
    Memo3.Lines.Clear;
    haycambios:=False;
end;

procedure TFMenuPrincipal.SpeedButton31Click(Sender: TObject);
//------------------------------------------------------------------------------
//****************************************************[ Borra la anotación ]****
//------------------------------------------------------------------------------
function BorrarArchivo(Ruta:string):boolean;
begin   //bajado de http://www.creatusoftware.com/index....d=85&Itemid=41
    //Borrar archivo
    if (DeleteFile(PChar(Ruta))) then
    begin
        //Archivo borrado
        Result:=true;
    end
    else
    begin
        //Archivo no borrado
       Result:=false;
    end;
end;
begin
   Memo3.Lines.Clear;
   haycambios:=False;
   BorrarArchivo(fechaactual);
   MonthCalendar3.Date:= MonthCalendar3.Date+365;
   MonthCalendar3.Date:= MonthCalendar3.Date-365;
end;

procedure TFMenuPrincipal.Memo3Change(Sender: TObject);
//------------------------------------------------------------------------------
//************************************************[ Cambios en anotaciones ]****
//------------------------------------------------------------------------------
begin
        haycambios:=true;
end;

Además suelo poner una agenda para los contactos, que se pueda abrir la calculadora y que recuerde poco más.

Espero participeis y con vuestras aportaciones, generar cada vez ejecutables más completos y atractivos.

[Casimiro Notevi]

Una utilidad para enviar mensajes a otros usuarios, es una tabla en la BD con los usuarios origen y destino, la fecha, leido s/n, el texto y poco más.
Cuando se conecta un usuario se verifica si hay algún mensaje para él. También se comprueban cada x minutos, es una especie de "email" interno en el programa:

Paco, avísame cuando llegues.
Federico, si vienes para el almacén, no olvides traer el pedido de ayer.
etc.

[[fjcg02]]

Iba a comentar lo mismo que Casimiro, pero añadiendo sí se necesita un enlace a un registro de una entidad. Por ejemplo a un albaran o a una factura...

paco, revisa esta factura que tengo alguna duda, y referenciarla. Que la creación del mensaje se pueda hacer desde las propias facturas, albaran es, pedidos,...

Saludos

[[José Luis Garcí]]

Os refieres a mensajes internos o emails?

[Casimiro Notevi]

Mensajes internos y sólo entre los usuarios del programa.
Aunque si existen varias sucursales conectadas al mismo servidor central, obviamente, serán mensajes "externos"

[[newtron]]

Aunque igual no es exactamente lo que preguntas yo en mi programa de gestión tengo 4 teclas de acceso en cualquier sitio de la aplicación para acceder con un F.. a una Calculadora, Clientes, Proveedores y a poder ver el precio de un artículo para un cliente. Es muy habitual en la mayoría de las empresas que alguien llegue y te pregunte...."¿oye, qué cuesta esto? ¿tienes existencias?", de esta manera estés donde estés pulsas el F.. y se abre una ventana en la que te pregunta el artículo y el cliente y te da el PVP del artículo y las existencias en cada uno de los almacenes y si ese cliente tiene condiciones especiales de descuentos, precio especial, etc. te lo pone también, de esta forma puedes dar un precio exacto a un cliente sin tener que irte a la opción de Ventas o presupuestos. El acceso a clientes o proveedores lo tengo por si en cualquier momento necesitan consultar algún dato tenerlo más a mano.



Saludos

[MAXIUM]

Existio un momento que se me ocurrio inscrustar el código fuente comprimido dentro del ejecutable y una vez dentro del menú ayuda > acerca de... realizar una serie de combinaciones de teclas para recuperarlo.

La idea era tener el código fuente siempre disponible en caso de perdida.

[Casimiro Notevi]

Yo simplemente lo añado en un directorio dentro del programa, en un zip

[[newtron]]

Empezado por Casimiro Notevi

Yo simplemente lo añado en un directorio dentro del programa, en un zip

¿el fuente del programa?

[Casimiro Notevi]

Empezado por newtron

¿el fuente del programa?

jeje... pues sí, si alguna empresa me encarga un programa, siempre adjunto el fuente aunque no lo haya pedido.
Claro, en las empresas donde he trabajado no hacía eso, no era "mi" programa, ni me lo habían encargado a mi.

[Julián]

Yo hago lo mismo que Casimiro.

Es una ventaja para el cliente, y tambien para mí.

Un saludo!

[MAXIUM]

¿Y que hacen cuando utilizan componentes de terceros?

[Casimiro Notevi]

Empezado por MAXIUM

¿Y que hacen cuando utilizan componentes de terceros?

Salvo delphi, todo lo que uso es libre.

[juanelo]

Empezado por MAXIUM

¿Y que hacen cuando utilizan componentes de terceros?

Pues se le advierte al cliente, que asi como tiene que comprar su respectiva licencia de Delphi/C++Builder, tiene que adquirir la licencia del(los) componente(s) de terceros.

[Casimiro Notevi]

Empezado por juanelo

Pues se le advierte al cliente, que asi como tiene que comprar su respectiva licencia de Delphi/C++Builder, tiene que adquirir la licencia del(los) componente(s) de terceros.

Bueno, eso será si quiere compilarlo.

[juanelo]

Empezado por Casimiro Notevi

Bueno, eso será si quiere compilarlo.

Si claro, se le entrega el codigo y ya, pero se le debe de hacer de su conocimiento.

[MAXIUM]

Empezado por Casimiro Notevi

Bueno, eso será si quiere compilarlo.

¿Para que otro motivo querría el cliente el código fuente?. A menos que caiga el código en un desarrollo de otra aplicación que reemplace la tuya y/u otro lenguaje.

¿Alguno le ha tocado coger un proyecto (código fuente) en VB por ejemplo y traducirlo por completo o a lo menos entender la estructura y traducirlo a Delphi o parten desde cero?

Tengo dudas

[mamcx]

Empezado por MAXIUM

¿Para que otro motivo querría el cliente el código fuente?. A menos que caiga el código en un desarrollo de otra aplicación que reemplace la tuya y/u otro lenguaje.

¿Alguno le ha tocado coger un proyecto (código fuente) en VB por ejemplo y traducirlo por completo o a lo menos entender la estructura y traducirlo a Delphi o parten desde cero?

Tengo dudas

Si, o aun mas comun: Leer varias secciones de codigo hasta ver como se hace algo.

Supongamos, por ejemplo, que quieres hacer un servidor web. Puedes programar a lo loco o miras como esta hecho apache, nginx o cualquier otro. Y luego tomas parte y asi por el estilo. Incluso se porta a otro lenguaje/framework.

Existe todo un "mercado" de "software X, pero en Y". Basicamente, el open source anima a hacer clon del clon del clon ad infinitum

[Kipow]

Empezado por egostar

Mi esquema es

• Venta licencia de uso
• Venta de código fuente
• Venta de licencia de uso y código fuente
• Renta Diaria, Mensual, Semestral ó Anual
• Licencia de uso gratis con contrato de mantenimiento
• Licencia de uso gratis con cargo por servicio

Y me quito de problemas

Saludos

Este es muy similar a mi esquema de trabajo