AGB  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte Dimmed Sample

Dimmed Sample

Ein Thema von EWeiss · begonnen am 27. Mär 2012 · letzter Beitrag vom 31. Mär 2012
Antwort Antwort
Seite 4 von 4   « Erste     234
Benutzerbild von EWeiss
EWeiss
Registriert seit: 16. Okt 2010
Dimmed.dll inc. Sample Quelltext enthalten.
Windows XP Shutdown Emulation

vers. 1.0.0.208
  • 1. WS_EX_NOACTIVATE addiert um zu verhindern dass das Window erstellt
    über CreateWindowEx in der Taskbar angezeigt wird.
  • 2. Sample für VB_NET addiert
  • 3. Sample für C# addiert
  • 4. Wrapper_DLL für NET addiert

vers. 1.1.0.0
  • 1. Refresh Desktop entfernt
  • 2. Desktop wird nun flickerfrei gefaded inc. SideBar und MiniAnwendungen
  • 3. SetParent entfernt
  • 4. Anwendung wird nun inc. Caption Farblich richtig angepasst
  • 5. Verschiedene andere Fehler beseitigt

Finale und Fertig!

Anhang gelöscht.

gruss

Geändert von EWeiss ( 7. Feb 2016 um 12:21 Uhr)
 
Benutzerbild von EWeiss
EWeiss
 
#31
  Alt 31. Mär 2012, 11:13
Managed Wrapper_DLL Dimmed_API Class für Dimmed C#
Code:
namespace Dimmed_Api
{
    using System;
    using System.Runtime.InteropServices;
    using System.Security;


    [SuppressUnmanagedCodeSecurity]
    public sealed class Fade
    {

        [DllImport("user32.dll", SetLastError = false)]
        public static extern IntPtr GetDesktopWindow();

        //Dimmed_GetVersion
        public static string Dimmed_GetVersion()
        {
            IntPtr ptr = Dimmed_GetVersionPtr();
            if (ptr != IntPtr.Zero)
            {
                return Marshal.PtrToStringAnsi(ptr);
            }
            return null;
        }       
        [DllImport("dimmed.dll", EntryPoint = "Dimmed_GetVersion", CharSet = CharSet.Auto)]
        private static extern IntPtr Dimmed_GetVersionPtr();      

        //FadeDestroy
        [DllImport("dimmed.dll", EntryPoint = "FadeDestroy", CharSet = CharSet.Auto)]
        public static extern void FadeDestroy();


        //FadeCreate
        [return: MarshalAs(UnmanagedType.Bool)]
        [DllImport("dimmed.dll", EntryPoint = "FadeCreate", CharSet = CharSet.Auto)]
        public static extern bool FadeCreate(IntPtr handle, int FadeTime, int clLight, int clDark);

    }
}
Dimmed Sample VB_NET
Code:
Option Explicit On

Imports Dimmed_Api

Public Class Form1

    Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

        Fade.FadeDestroy()
    End Sub

    Private Sub cmdDimmMe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDimmMe.Click

        Fade.FadeCreate(Me.Handle, 3500, RGB(255, 255, 255), RGB(0, 0, 0))
    End Sub

    Private Sub cmdDimmDesktop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDimmDesktop.Click

        Fade.FadeCreate(Fade.GetDesktopWindow, 3500, RGB(255, 255, 255), RGB(0, 0, 0))
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Me.Text = "Dimmed Sample " & "DLLVers. " & Fade.Dimmed_GetVersion
    End Sub

End Class
Dimmed Sample C#
Code:
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using Dimmed_Api;

namespace WindowsFormsApplication1
{

    public partial class Form1 : Form
    {
       
        public Form1()
        {
            InitializeComponent();
        }

        private void cmdDimmMe_Click(object sender, EventArgs e)
        {
            Fade.FadeCreate(Handle, 3500, ColorTranslator.ToWin32(Color.FromArgb(255, 255, 255)),
                ColorTranslator.ToWin32(Color.FromArgb(0, 0, 0)));
        }

        private void cmdDimmDesktop_Click(object sender, EventArgs e)
        {
            Fade.FadeCreate(Fade.GetDesktopWindow(), 1500, ColorTranslator.ToWin32(Color.FromArgb(255, 255, 255)),
                ColorTranslator.ToWin32(Color.FromArgb(0, 0, 0)));
        }

        private void Form1_FormClosed(object sender, FormClosedEventArgs e)
        {
            Fade.FadeDestroy();
        }

        private void Form1_Load(object sender, EventArgs e)
        {
            Text = "Dimmed Sample " + "DLLVers. " + Fade.Dimmed_GetVersion();
        }
    }
}

gruss

Geändert von EWeiss ( 4. Apr 2012 um 13:47 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von EWeiss
EWeiss
 
#32
  Alt 31. Mär 2012, 22:04
Neue Version.. Finale und fertig!
Siehe History

gruss
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

 
Delphi XE3 Professional
 
#33
  Alt 31. Mär 2012, 22:39
Wobei Windows auch schon sowas Ähnliches integriert hat.
Programm reagiert nicht - Windows-Test? (siehe Link)
  Mit Zitat antworten Zitat
Benutzerbild von EWeiss
EWeiss
 
#34
  Alt 31. Mär 2012, 22:54
Wobei Windows auch schon sowas Ähnliches integriert hat.
Programm reagiert nicht - Windows-Test? (siehe Link)
Ja aber hier geht es um den Ghost Effekt wenn eine Anwendung hängt.
Ähnliches .. jup.

Ich möchte hingegen so wie in Winamp meine Farbschemas in meinem MediaPlayer verändern können
und das geht über eine DLL(Delphi) um einiges Fixer als in VB.

PS:
Dafür wird diese (privat) noch etwas verändert.
Sollte es jemand brauchen OK.. ansonsten auch egal
Habe es für jemanden hier im Forum gemacht der danach gefragt hat.

Gruss

Geändert von EWeiss (31. Mär 2012 um 23:06 Uhr)
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:33 Uhr.
Powered by vBulletin® Copyright ©2000 - 2016, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2016 by Daniel R. Wolf