Hagamos entre todos un programa (No Novatos)

[[Caral]]

Hola

Empezado por JXJ

eso no sirve caral

hagamos un peer to peer (p2p)
o un download manger, como el flashget.

ambos soporten el protocolo de bittorrent, el de emule. edonkey.
y el de limewire.

Como que no sirve, si estamos empezando, eso del pier tu pier me parece bien, te encargo el codigo
Saludos

[[Caral]]

Hola
Bueno os estoy esperando.

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Paint;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
  buffer: tbitmap;
  h, m, s, ms: word;
begin
 decodetime(now,h,m,s,ms);
 buffer:=tbitmap.create;
 with buffer do
  begin
   Width:=200;
   height:=200;
   Canvas.Pen.Color:=color;
   canvas.Brush.Color:=color;
   canvas.Rectangle(0,0,200,200);
   Canvas.Pen.Width:=1;
   Canvas.Pen.Color:=cllime;
   canvas.Brush.Color:=rgb(150,200,255);
   Canvas.Ellipse(0,0,200,200);
   Canvas.Pen.Width:=1;
   Canvas.Pen.Color:=clred;
   Canvas.MoveTo(100+Trunc( sin(s/9.65)*100),100+Trunc(-cos(s/9.65)*100));
   Canvas.LineTo(100,100);
   Canvas.Pen.Width:=2;
   Canvas.Pen.Color:=0;
   Canvas.MoveTo(100+Trunc( sin(m/9.65)*100),100+Trunc(-cos(m/9.65)*100));
   Canvas.LineTo(100,100);
   Canvas.Pen.Width:=3;
   Canvas.Pen.Color:=0;
   Canvas.MoveTo(100+Trunc( sin(h/1.95)*50),100+Trunc(-cos(h/1.95)*50));
   Canvas.LineTo(100,100);
  end;
 canvas.Draw(0,0,buffer);
 buffer.Free;
 caption:=timetostr(now);
end;

Saludos

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

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