Codigo sin utilidad

[[ArdiIIa]]

Pues yo también me quito el sombrero ante esta "inutilidad"..

¿Que ocurre si no hay ningún archivo jpg en ese ordenador ?
Y... si la hubiera...
¿Que pasaría si la foto fuera mas comprometida que el propio documento a ocultar.?

[[seoane]]

Empezado por ArdiIIa

¿Que ocurre si no hay ningún archivo jpg en ese ordenador ?

Entonces el proceso a seguir seria el siguiente, vamos a "Inicio > Programas > Accesorios > Paint", abrimos un documento nuevo, dibujamos un bonito paisaje con un arbolito y un sol bien grande, y para terminar lo guardamos como jpg

Pues yo también me quito el sombrero ante esta "inutilidad"..

Pues colabora y pon tu algo, no me creo que no tengas alguna idea de bombero por ahí guardada

[[ArdiIIa]]

Empezado por seoane

Pues colabora y pon tu algo, no me creo que no tengas alguna idea de bombero por ahí guardada

Lo son casi todas, pero no están patentadas.
Además, imagina que se me echa encima el cuerpo de bomberos por exponer aquí sus ideas.

[[seoane]]

Empezado por ArdiIIa

Además, imagina que se me echa encima el cuerpo de bomberos ...

Mientras no se te eche encima el cuerpo de un bombero ...

Por dios, cuanto reparo hay en mostrar código, os veo muy tímidos

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