Hagamos entre todos un programa (No Novatos)

[[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...

[RolphyReyes]

Para validar Email.

Código Delphi [-]
function ValEmail(EMail: string): Boolean;
var
  s: string;
  ETpos: Integer;
begin
  if EMail<>'' then
  begin
      ETpos := pos('@', EMail);
      if ETpos > 1 then
      begin
        s := copy(EMail, ETpos + 1, Length(EMail));
        if (pos('.', s) > 1) and (pos('.', s) < length(s)) then
          Result := true
        else
          Result := false;
      end
      else
        Result := false;
    end else result:=true;
end;

[donald shimoda]

Empezado por coso

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

Yo veo que esto se esta transformando mas que en un programa en una librería. Podríamos llamarla CaralLib version 0.01?

[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!!

[donald shimoda]

Empezado por Neftali

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

Estando en Delphi, nada más.

[[Caral]]

Hola
Dale hombre, desvirtúa el hilo, que asi se han llegado a cosas muy interesantes, ademas no os olvidéis que estamos en la taberna.

Código Delphi [-]
If Caral.Hilo = Desvirtuado.donald shimoda  then
ShowMessage(' donald shimoda  paga la siguiente ronda ');

Saludos

[[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"