Hagamos entre todos un programa (No Novatos)

[[egostar]]

Aqui mi gran aportación al programa

Código Delphi [-]
procedure TAboutBox.ContactClick(Sender: TObject);
begin
  ShellExecute(GetDesktopWindow(),nil,
               pChar('mailto:[email protected]'),
               nil,nil,SW_SHOWNORMAL);
end;

Salud OS

[[Caral]]

Hola
Grande amigo, grande.
A ver si alguien mas aporta, que este programa lo voy a vender muy bien.
Saludos

[[Caral]]

Hola
Este es muy útil, así que no puede faltar en el programa.

Código Delphi [-]
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, TrayIcon, ShellApi;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    TrayIcon1: TTrayIcon;
    procedure Timer1Timer(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
   IconData : TNotifyIconData;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses MMSystem;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   waveOutSetVolume(0, 0);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
   with IconData do
    begin
      cbSize := sizeof(IconData);
      Wnd := Handle;
      uID := 100;
      uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
      uCallbackMessage := WM_USER + 1;
      hIcon := Application.Icon.Handle;
      StrPCopy(szTip, Application.Title);
    end;
    Shell_NotifyIcon(NIM_ADD, @IconData);
   Hide;
   TrayIcon1.Visible:=True;
end;

Saludos

[[coso]]

hay algun programa que, dandole los ficheros fuente de un proyecto, te dibuje el organigrama? es una idea...

[[enecumene]]

Empezado por coso

hay algun programa que, dandole los ficheros fuente de un proyecto, te dibuje el organigrama? es una idea...

¡Claro que sí!, haciendolo a mano

[[egostar]]

Empezado por coso

hay algun programa que, dandole los ficheros fuente de un proyecto, te dibuje el organigrama? es una idea...

Que te parece el Model View que ya viene con Delphi

Salud OS

[Neftali [Germán.Estévez]]

Empezado por coso

hay algun programa que, dandole los ficheros fuente de un proyecto, te dibuje el organigrama?

O EssModel, que puedes bajar con código fuente incluído y que además está hecho en Delphi.

[[coso]]

mmm, si pero no. Me referia a el recorrido del programa, vamos, algo asi:

Código Delphi [-]
     
                         _main: Activate
                                |
                      _main: Poner_labels;
                                |                                           
(rombo )      _main:label = 'muestra' ------F-----------------------|
                                |                                   |
                                T                                   |
                                |                                   |
                      _main: ask.ShowModal      _main:label3.Visible := false
                                                                    |
                                                 (elipse): consulta_SQL.Active := true

claro esta, que si pulsas a una linea te abriera el codigo fuente en delphi en esa linea, y te fuese alla, con la opcion del + y del - como el tree view, y si fuese integrado con el debugger ya seria la repera .

[[coso]]

creo que le estoy desvirtuando el hilo a Caral a ver si encuentro algo que pueda aportar...

[donald shimoda]

Empezado por Neftali

O EssModel, que puedes bajar con código fuente incluído y que además está hecho en Delphi.

Muy bueno, pero la verdad que creo que algo asi sería solo útil si discriminará los objetos de Delphi de los propios... Para que quiero otra vez ver tooodas las propiedades del tform en el diagrama?

Perdoón, otra vez le estamos desvirtuando el hilo a Caral.

[Neftali [Germán.Estévez]]

Empezado por donald shimoda

Muy bueno, pero la verdad que creo que algo asi sería solo útil si discriminará los objetos de Delphi de los propios... Para que quiero otra vez ver tooodas las propiedades del tform en el diagrama?

Bueno, eso es porque yo le he pasado como Unit para la prueba Forms.pas. Si le pasas una Unit tuya explora sólo las clases de esa unit.
También permite pasarle un directorio y explorar las clases de un directorio.

Aun así, cuando le pasas una unit y te genera el diagrama, este es modificable; De forma que en ese diagrama puedes mover y ocultar las clases. Puedes seleccionar clases por separado y copiarlas al portapapeles,...

Imagen1
Imagen2
Imagen3

Incluso te genera una espacie de documentación HTML con los gráficos, métodos, clases,... (bastante rudimentaria, eso sí). Aquí un ejemplo.

Además, como ya he dicho, el código fuente está disponible, así que puedes ampliarlo segun tus necesidades. ¡¡Qué mas se puede pedir!!

[[Al González]]

Mi aportación:
http://www.clubdelphi.com/foros/showthread.php?t=53146
(por si llegásemos a necesitar objetos superglobales).

Saludos.

Al.

[[coso]]

mmm no lo sabia lo del modal view (voy a actualizar ya mi delphi 5, ya me da hasta verguenza ), igualmente mi idea era con sus rombitos, rectangulitos, comentarios, sus flechas de yes or no esas cosas, que a veces uno se pierde con el "codigo spaguetti"