Mejor Escritorio (Themes)

¿Que programa prefieres para personalizar tu PC?

  • Aston Shell

    Votos: 65 8.6%
  • Talisman

    Votos: 33 4.4%
  • Style Xp

    Votos: 340 45.1%
  • UthemeXP (parche)

    Votos: 112 14.9%
  • Object Destokp

    Votos: 53 7.0%
  • windows Blinds

    Votos: 212 28.1%

  • Votantes totales
    754

kglacius

Lanero Reconocido
7 Jun 2004
1,493
UAC-omarpa dijo:
nojod... mas yo en el equipo mas lento que he estado es un pentiun de 750 MHz y 90 de de ram y estaba que la levantaba a patyadas y esoq ue tenia solo el win 98 y no tenia programas activos , ahora ese que tiene hasta el blind
:confused: :confused: :confused: :confused:
 

-PaRhAcK-«CCU»

Lanero Reconocido
26 May 2005
613
gracias por la version 5..:p:p:p

ahhhhhh..... y AQUI ESTA UN LINK de una guia ke encontre para usar estilos visuales en los desk sin tenes ke utilizar ningun programa.... es muy interesante, no les cuento mas, leanlo esta buena....

pd: ojala no sea noticia vieja para ustedes :p:p


saludos!!
 

GuMaN

Lanero Reconocido
28 Abr 2004
6,512
la maquina no se pone lenta para nada hasta ahora, pero no es de lo masrapida , y ya me habia acostumbrado a la otra!
 

aLeX-PhOeNiX

Lanero Reconocido
22 Jun 2004
1,042
ya etamos entrando a las transparencias eh? te quedaron de lujo las evntanas :D
karmazo..ahhhh hacia tanto tiempo que no escuchaba esa palabra jejeje:p
 
22 Abr 2004
4,969
asi es... :D:D:D ya estamos con las transparencias... ;);) no mas que esas no mas las encuentro con el theme de mozilla :S:S:S snif snif!! oye alejandro con el wb5 ?? la transparencia ya se activa en todos ??? por que en los demas themes no mas no me funciona!
 

aLeX-PhOeNiX

Lanero Reconocido
22 Jun 2004
1,042
aver dajame ver...
no parece que las barras transparente y las ventanas se activan segun el skin ..osea que algunas tienen soporte y otros no el que estoy usando ahora se llama aura y tiene :D
 

Desconocido

Lanero Reconocido
11 Sep 2004
325
Mi Escritorio (Con transparencias)

Hola a todos

Aqui les dejo mi ultimo escritorio (Gracias alejandro_o) :p

attachment.php


Y mi Logon

attachment.php


Saludos!!!
 
22 Abr 2004
4,969
uyyyyyyyyyyy valla valla que buenos desk.. se ve que esto cada vez es para mejorar eso es lo mejor... que puede pasar en este foro ;) mejorar


HRC-Shaka dijo:
hola, necesito ayuda, no encuentro la opcion para poner la transparencia en mis ventanas, ni en mi menú, ayudenme por fa, ya instale el wb5, esta en español.

y el ultimo link ke dejó alejandro_o de las transparencias, me sale esto : You don't have permission to access the page at http://ic1.deviantart.com/fs8/f/2005...XP_WB_v2_0.zip

Xia
por otro lado shaka.. solo dale boton derecho a ese link y dale en guardar enlace como.. si es fire fox o dale en guardar como si es iE ... sale.. solamente asi lo puedes bajar.. :D jejej salu2!
 

GuMaN

Lanero Reconocido
28 Abr 2004
6,512
para los k tiran visual basic
'
'------------------------------------------------------------------------------
' Prueba de WS_EX_LAYERED (24/Abr/00)
' Sólo para Windows 2000
'
' ©Guillermo 'guille' Som, 2000
'
' Parte del código está basado en un ejemplo de C++ publicado en:
' MSDN news January/February 2000 Volume 9, Number 1
' Autores: Vadim Gorokhovsky y Lou Amadio
'
' Agradecimientos a Bill McCarthy y Tomas Restrepo por facilitarme el valor
' de WS_EX_LAYERED
'------------------------------------------------------------------------------
Option Explicit

Private mAlpha As Long

' Declaraciones para Layered Windows (sólo Windows 2000 y superior)
Private Const WS_EX_LAYERED As Long = &H80000
Private Const LWA_ALPHA As Long = &H2
'
Private Declare Function SetLayeredWindowAttributes Lib "user32" _
(ByVal hWnd As Long, ByVal crKey As Long, _
ByVal bAlpha As Long, ByVal dwFlags As Long) As Long

'------------------------------------------------------------------------------
Private Const GWL_EXSTYLE = (-20)

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long


Private Const RDW_INVALIDATE = &H1
Private Const RDW_ERASE = &H4
Private Const RDW_ALLCHILDREN = &H80
Private Const RDW_FRAME = &H400

Private Declare Function RedrawWindow2 Lib "user32" Alias "RedrawWindow" _
(ByVal hWnd As Long, ByVal lprcUpdate As Long, ByVal hrgnUpdate As Long, _
ByVal fuRedraw As Long) As Long


Private Sub cmdFade_Click()
' Hacer efecto Fade
'
If cmdFade.Caption = "Hacer &Fade" Then
cmdFade.Caption = "Quitar &Fade"

' Guardar el valor actual del TextBox
With txtAlpha
.Tag = .Text
End With

' Para que no se ponga negra antes de empezar el fade,
' seguramente es una chapuza, pero ¡funciona!
Hide
txtAlpha = "1"
cmdLayered_Click 0
Show

'// Set WS_EX_LAYERED on this window
Call SetWindowLong(hWnd, GWL_EXSTYLE, GetWindowLong(hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED)

' Empezar el efecto desde 20% de transparencia
Const cAlpha As Long = 20

mAlpha = cAlpha

Timer1.Interval = txtInterval
Timer1.Enabled = True
Else
cmdFade.Caption = "Hacer &Fade"
Timer1.Enabled = False
' Quitar el efecto Layered
cmdLayered_Click 1
' Volver a dejar el valor que había
With txtAlpha
.Text = .Tag
End With
End If

End Sub


Private Sub cmdLayered_Click(Index As Integer)

If Index = 0 Then ' Aplicar el efecto
Dim tAlpha As Long

tAlpha = Val(txtAlpha)
If tAlpha < 1 Or tAlpha > 100 Then
tAlpha = 70
End If

'// Set WS_EX_LAYERED on this window
Call SetWindowLong(hWnd, GWL_EXSTYLE, GetWindowLong(hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED)

'// Make this window tAlpha% alpha
Call SetLayeredWindowAttributes(hWnd, 0, (255 * tAlpha) / 100, LWA_ALPHA)

Else ' Quitar el efecto
'// Remove WS_EX_LAYERED from this window styles
Call SetWindowLong(hWnd, GWL_EXSTYLE, GetWindowLong(hWnd, GWL_EXSTYLE) And Not WS_EX_LAYERED)

'// Ask the window and its children to repaint
Call RedrawWindow2(hWnd, 0&, 0&, RDW_ERASE Or RDW_INVALIDATE Or RDW_FRAME Or RDW_ALLCHILDREN)
End If
End Sub


Private Sub cmdSalir_Click()
Unload Me
End Sub


Private Sub Form_Load()
' Deshabilitar el temporizador
Timer1.Enabled = False

' Aplicar el efecto
cmdLayered_Click 0
End Sub


Private Sub Timer1_Timer()
' Mostrar el valor...
txtAlpha = mAlpha

'// Make this window tAlpha% alpha
Call SetLayeredWindowAttributes(hWnd, 0, (255 * mAlpha) / 100, LWA_ALPHA)

mAlpha = mAlpha + 10
If mAlpha > 100 Then
Timer1.Enabled = False
cmdLayered_Click 1
cmdFade.Caption = "Hacer &Fade"
' Volver a dejar el valor que había
With txtAlpha
.Text = .Tag
End With
End If
End Sub
 

aLeX-PhOeNiX

Lanero Reconocido
22 Jun 2004
1,042
oiga alfin pudo dominar al programita bien por ese nuevo desk lanero Desconocido
paseme ese skin del wb o digame de onde bajarlo que ya le puse el ojo :p
 

-PaRhAcK-«CCU»

Lanero Reconocido
26 May 2005
613
ehhhhhhhhh, y revisaron la guia ke les deje en mi post anterior, donde se enseña a utilizar los estilos visuales sin necesidad de tener algun programa instalado????? :nervios:
 

aLeX-PhOeNiX

Lanero Reconocido
22 Jun 2004
1,042
*PaRhAcK*«CCU» dijo:
ehhhhhhhhh, y revisaron la guia ke les deje en mi post anterior, donde se enseña a utilizar los estilos visuales sin necesidad de tener algun programa instalado????? :nervios:
claro hermano..muchos laneros optan por esa opcion ,,preguntele a guman sino :p
parchear y todo eso ya se toco al principio del foro pero no esta demas recordar un poco
:-p ,,por cierto muy buena explicacion del link que pusiste

ahh y aca otro desk con alpha :jaguar: :gato: :jaguar: >D :jaguar: por mi wall
 

-PaRhAcK-«CCU»

Lanero Reconocido
26 May 2005
613
el objectdock ke tengo no me da la opcion de hacer tabs con el, alguien me puede facilitar la version en la ke si se puede hacer ???????

de antemano, muchas gracias :p:p

ahhh, alejandro_o, muy buenos esos iconos del avedesk, donde los conseguiste???