Codigo sin utilidad

[[ArdiIIa]]

Oyes, no te voy a dejar con las ganas...
Espero que ahora no se me echen encima los de RENFE

Código Delphi [-]
unit loquequieras;

interface

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 FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  const
  ShapeSize = 40;


var
  Form1: TForm1;
  rShape : TRect;
  Step,XCli, Ycli,XCent, YCent : Integer;
  Ps : PaintStruct;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
rShape := GetClientRect;
rShape.Right   := XCent + ShapeSize;
rShape.Bottom  := YCent + ShapeSize;
rShape.Top     := yCent;
rShape.Left    := xCent;
xCent := xCent +Step;
If (xCent + ShapeSize >= xCli) or (xCent <=0) then
Step := -Step;
InvalidateRect(Handle,@rShape,True);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
Ellipse(Canvas.Handle,5+xCent,29+yCent,15+xCent,39+yCent);
Ellipse(Canvas.Handle,25+xCent,29+yCent,35+xCent,39+yCent);
Rectangle(Canvas.Handle,2+xCent,19+yCent,37+xCent,29+yCent);
Rectangle(Canvas.Handle,17+xCent,0+yCent,23+xCent,19+yCent);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
Step := 2 ;
xCli := ClientRect.Right ;//div 2;
yCLi := ClientRect.Bottom div 2;
Invalidate;
end;

end.

object Form1: TForm1
  Left = 119
  Top = 268
  Width = 256
  Height = 85
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnPaint = FormPaint
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object Timer1: TTimer
    Interval = 5
    OnTimer = Timer1Timer
    Left = 32
    Top = 16
  end
end

[[seoane]]

Excelente Ardilla, esto ya parecía un monologo.

[[ArdiIIa]]

Este lo tenía de hace años, cuando empecé en Windows 3.1 y C

[[seoane]]

Y siguiendo con los trucos para "aficionados" a la fotografía Aquí dejo los pasos para ocultar un montón de fotografías a la vez.

Primero compactamos todas las fotografías en un solo archivo:

copy /b *.jpg fotos.pak

Y para terminar le ponemos un sombrero :

copy /b foto.jpg+fotos.pak oculto.jpg

Y os preguntareis, o quizá no , como desempaquetar la imágenes. Pues es sencillo, vais a mi pagina web , bajáis el código de JpegRecover, o el programa ya compilado, y tecleais algo como esto:

jpegrecover oculto.jpg %d.jpg

[[Caral]]

Hola
Seoane, hay algunos de nosotros que hemos pensado en la posibilidad de hacer unos tutoriales y se nos presento una duda, ( Cuales son las preguntas mas expuestas en el club y de que temas).
Crees poder sacarte de la manga uno de tus programas algo asi como el Ejemplo44 ?
Nos seria de mucha utilidad y al club.
Te animas?.
Saludos