que en lblmarquee se pueda copiar un renglon

[ecfisa]

Hola Gastón.

No hay problema, como dijiste 'programa externo' pensé en dos ejecutables.

Mirá yo haría así :
Agregaría una variable privada más (FLinea) que me sirva para indizar la línea actual del memo y
aprovecharía la evaluación de condición anterior para incrementar la misma.

Código Delphi [-]
unit Unit1;

interface

uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Label1: TLabel;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    FCaption: string;
    FLinea: Integer;
  public
  end;

var
  Form1: TForm1;

implementation{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile('C:\PRUEBA.TXT'); // cargar cualquier archivo .txt
  FLinea:= 0;
  FCaption:= Memo1.Lines[FLinea];
  Caption:= FCaption;
  Timer1.Interval := 1000 div 5;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  txt: string;
begin
  txt:= Caption;
  Caption:= Copy(txt, Length(txt), 1) + Copy(txt, 1, Length(txt) -1);
  if FCaption = Caption then
  begin
    Inc(FLinea);
    Caption:= Memo1.Lines[FLinea];
    FCaption:= Caption;
  end;
end;

En cuanto la decteccíon de Ctrl+C para copiar y otra convinación para pegar lo podés capturar en el evento OnKeyDown del Memo o el Form. ( lamento andar con poco tiempo ahora para implementartelo, pero si luego hago un rato intento..)

Espero haberte entendido.

Saludos.

[gaston260]

Genio !! lo voy a probar !!

[ecfisa]

Hola de nuevo Gaston.

Primero disculpas, mirá como escribí la palabra combinación !!! (convinacion)... debo tener calambre cerebral...

Ahora a lo que hablamos. Para copiar y pegar el texto podés poner KeyPreview := True , en FormCreate y el siguiente código en el evento OnKeyDown del Form.

Código Delphi [-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if ssCtrl in Shift then
     case Chr(Key) of
       'C','c': // Copias el texto
       'V','v': // Pegas el texto
     end;
end;

Saludos.

[gaston260]

hola ecfisa soy muy malo para esto ! te dejo mi pequeño proyecto yo creo que no estoy al nivel como para hacer eso que me dijiste , si podes ver mi codigo y darme algun ejemplo te lo agradezco !
http://rapidshare.com/files/416142919/project1.zip

[gaston260]

jaja esto es para hacer propaganda con alguna pentium que consiga y algun monitor viejito ya que hacer esto con led's y pic's no es muy rentable y no se pueden escribir muchas letras ! (salvo algunos comerciales) !

creo que ami tambien me esta agarrando calambre cerebral !

[[Caral]]

Hola
Por algun lado tengo un componente que simula un led.
Es como lo que quieres hacer solo que se ve como si fueran leds.
Si lo encuentro lo pondre aqui.
Saludos

[[Caral]]

Hola
Como siempre, todo lo tengo bien ordenado.
Aqui esta el Componente.
Saludos

[gaston260]

hola caral ! que buena onda !! fijate tambien creo que hay un componente que viene incluido en delphi 7 por lo menos que es shape creo que se llama ! y tiene una propiedad shape (se llama igual) y la pones en circulo ! yo hacia eso antes ! jeje pero ustedes son los que saben , ahora voy a descargar tu componente caral !

en rad tambien esta !

PD : lo bueno de este componente lblmarquee es que se puede cambiar el tipo de letra ! se puede mover las palabras hacia adelante y hacia atrar , cambiar el color de las letras y del fondo y Dios sabra que mas !.

saludos !

[[Caral]]

Hola
Interesante concepto amigo.
Pregunto: Para que sirve

Código Delphi [-]
var
  Form1: TForm1;
  FCaption: string;
  FLinea: Integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   Memo1.Lines.LoadFromFile('C:\Prueba.TXT'); // cargar cualquier archivo .txt
   FCaption:= Memo1.Lines[FLinea];
   Caption:= FCaption;
   Timer1.Interval := 1000;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Caption:= Copy(Caption, Length(Caption), 1) + Copy(Caption, 1, Length(Caption) -1);
  if FCaption = Caption then
  begin
  Inc(FLinea);
  Caption:= Memo1.Lines[FLinea];
  FCaption:= Caption;
  end;
end;

Por cierto me sobran variables.....
Saludos

[ecfisa]

Empezado por Caral

Hola
Interesante concepto amigo.
Pregunto: Para que sirve
[Por cierto me sobran variables.....
Saludos

A la primera pregunta te tengo que dar una respuesta cargada de matices filosóficos: No lo sé...

Y en cuanto a la observación: Tenés razón. Con el apuro trabajé sobre el código anterior, txt es innecesaria...

Un abrazo.

[[Caral]]

Hola
Es interesante y curioso el efecto de lectura que hace y la representación en el caption.
Estos códigos son buenos para aprender a hacer cosas nuevas, nunca se deja de aprender de los maestros como tu, a mi ni se me pasa por la cabeza hacer estas cosas.
Modificar lo hecho es sencillo, pensarlo y hacerlo es diferente.
Saludos

[ecfisa]

Empezado por Caral

Hola
Es interesante y curioso el efecto de lectura que hace y la representación en el caption.
Estos códigos son buenos para aprender a hacer cosas nuevas, nunca se deja de aprender de los maestros como tu, a mi ni se me pasa por la cabeza hacer estas cosas.
Modificar lo hecho es sencillo, pensarlo y hacerlo es diferente.
Saludos

Mi estimado amigo, lo de 'No lo sé' fué sólo una broma. Por supuesto que sé lo que hace, jamás pongo código a un compañero sin probarlo primero... Te aseguro que lo revisé a conciencia, hasta señalé aquí , un error que de orígen traía el mismo.

Y como ya te he comentado en anteriores oportunidades, el que no deja de aprender leyendote soy yo...

Saludos.