Hoffentlich die richtige Kategorie???
Hi,
ich brauch mal Hife zu 3 Problemen, aber erst einmal die Beschreibung was ich vor habe und was ich bereits wie gemacht habe und vor allem warum
Naja ich hab mir gedacht eine Art: "Informations Fenster" zu bauen, welches man z.b. bei Winamp findet oder diversen anderen Programmen...
Fenster sollte komplett grafisch sein und über einen Schlagschatten verfügen, wobei die Erstellung des Fensters(rund oder rechtwinkelig) kein Hinderniss sein sollte, soll heissen Fenster passt sich der Grafik an in jedem Fall...
Die Fenstereigenschaften:
1. Show
Show sollte über ein FadeIn Effekt verfügen inkl. Intervall. ( Intervall stellt die Zeit da, wie lange das Fenster sichtbar ist...)
2. Hide
Hide bewirkt den gegenteiligen Effekt von Show, also brauche ich hier ein FadeOut...
3. Textlänge
Fenster soll sich der Textlänge anpassen, heißt im Klartext: default Höhe + Breite, wenn Text länger als Fensterbreite, Fensterbreite anpassen...
Die 3 Fenstereigenschaften von oben sind zugleich auch meine 3 Probleme, daß hängt damit zusammen wie ich mein Fenster baue bzw. das Fenster an die Grafiken anpasse dazu jetzt mehr!
Winamp benutzt für sein: "Informations Fenster" 2 PNG Grafiken (zumindest beim Modern-Skin im Unter-Ordner 'Notifier') erstes PNG stellt ein abgerundetes Rechteck da, welches in der mitte einen komplexen Farbverlauf hat (also nicht wie üblich oft benutztes FromColor - ToColor
wobei der Farbverlauf selber nochmals einen 1px schwarzen Rand beinhaltet...
Das 2. PNG ist die Kopie des ersten PNG's aber inkl. Schlagschatten...
Jetzt sind wir bei nächsten Problem, da ich keine Ahnung habe wie ich ein PNG stretchen / shrinken soll, ohne diese zu einem Bitmap zu konvertieren und dabei sämtliche Transparenz zu verlieren, konnte ich logischer Weise nicht direkt die Winamp PNG's benutzen.
Also habe ich in Photoshop 2 Bitmaps erstellt, ähnlich der Winamp PNG's, der Hintergrund ist bei beiden schwarz.
Mein 2. Bitmap enthält den Schlagschatten und der Farbverlauf ist hier mit weiß übermalt, da weiß im 2. Bitmap die transparente Farbe darstellt...
Erstellt habe ich das 2. Bitmap einfach, in dem ich bei Photoshop in die Kanäle gewechselt bin dort den blauen Farbkanal dupliziert habe über Kopie erstellen als Neu. Danach nur noch Bild - Konvertieren 8Bit Graustufen und als Bitmap speichern auswählen (nein das ist kein neues Photoshop Tutorial hier
)
Jetzt, da ich nicht wußte was nun die beste Methode ist um eine TForm an ein Bitmap anzugleichen ( CreateRegion usw. ) habe ich mich dafür entschieden, folgende Funktionen zu benutzen, da ich grad einen netten QuellCode zur Hand hatte der genau das macht was ich eigentlich suchte folgendes wurde bentutzt:
1. LayeredWindows
2. TBlendFunktion Funktion
3. GR32 sowie GR32_Funktions Units (sind im Netz erhältlich...
4. AnimateWindows Funktion
Das Problem von den bentuzen Funktionen ist folgendes (vielleicht auch anhand des unten stehenden Quelltextes ersichtlich) das ich weder über ein AnimateWindow ein Fading hinbekomme, noch einen Text auf das Fenster über DrawText, DrawTextEx usw zeichnen kann,,,
Das Fading sollte übrigens im eigenen Thread laufen da glaub ich beim Fading die Anwengung einfriert....
Vielleicht kann sich jemand mal den Quelltext ansehen, Verbesserungen vorschlagen oder mir sagen wie man das ganze wesentlich vereinfachen könnte?
Ich wäre super dankbar dafür aber bitte keine postings zu Komponenten oder so, da ich das selber lernen muss / will ...
Bei Interesse oder zum testen kann ich gerne das ganze Projekt inkl. der beiden Bitmaps zusenden, mir ist jedes Mittel recht um das endlich abschliessen zu können, da ich noch diverse andere Sachen bauen muss und mich nicht Monate lang damit beschäftigen kann leider
Der Code: ( Vorsicht Chaos am Werk! )
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, GR32, GR32_Filters, ExtCtrls, StdCtrls;
type
TFadeThread =
Class(TThread)
private
FLayeredWindow : TForm;
protected
procedure Execute;
override;
public
constructor Create(aLayeredWindow: TForm);
procedure AnimateSafe(hWnd: HWND; dwTime: DWord; dwFlags: DWord);
published
end;
type
TForm1 =
class(TForm)
Label1: TLabel;
Label2: TLabel;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
FFadeThread: TFadeThread;
FTop : Integer;
FOffsetX,
FOffsetY : Integer;
procedure DoShow;
procedure CreateParams(
var Params: TCreateParams);
override;
procedure ThreadDone(Sender: TObject);
end;
var
Form1: TForm1;
AlphaBmp, SkinBmp: TBitmap32;
TopLeft, BmpTopLeft: TPoint;
WorkBmp: TBitmap;
BmpSize: TSize;
DC: HDC;
C : Integer;
Blend: TBlendFunction;
implementation
{$R *.dfm}
type
TFadeThreadDone =
procedure(Sender: TObject)
of object;
const
WS_EX_LAYERED = $80000;
AC_SRC_OVER = $0;
AC_SRC_ALPHA = $1;
AC_SRC_NO_PREMULT_ALPHA = $1;
AC_SRC_NO_ALPHA = $2;
AC_DST_NO_PREMULT_ALPHA = $10;
AC_DST_NO_ALPHA = $20;
LWA_COLORKEY = $1;
LWA_ALPHA = $2;
ULW_COLORKEY = $1;
ULW_ALPHA =$2;
ULW_OPAQUE = $4;
function SetLayeredWindowAttributes(hwnd: HWND; crKey: TColor; bAlpha: byte;
dwFlags: DWORD): BOOL;
stdcall;
external '
user32.dll';
function UpdateLayeredWindow(hwnd: HWND; hdcDst: HDC; pptDst: PPoint;
psize: PSize; hdcSrc: HDC; pptSrc: PPoint; crKey: TColor;
pblend: PBlendFunction; dwFlags: DWORD): BOOL;
stdcall;
external '
user32.dll';
procedure TFadeThread.AnimateSafe(hWnd: HWND; dwTime: DWord; dwFlags: DWord);
type
d =
function(a: THandle; b, c: DWord): Boolean;
stdcall;
var
e : integer;
g: d;
begin
try
e := LoadLibrary('
user32.dll');
if e = 0
then
exit
else
begin
g := GetProcAddress(e, '
AnimateWindow');
if @g =
nil then
exit
else
begin
g(hWnd, dwTime, dwFlags);
end;
end;
finally
FreeLibrary(e);
end;
end;
procedure TForm1.CreateParams(
var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle := Params.ExStyle
or WS_EX_APPWINDOW
and not WS_EX_TOOLWINDOW;
end;
constructor TFadeThread.Create(aLayeredWindow: TForm);
begin
inherited Create(False);
FLayeredWindow := aLayeredWindow;
FreeOnTerminate := True;
end;
procedure TFadeThread.Execute;
begin
// AnimateSafe(Form1.Handle, 3000, AW_BLEND);
{ above does not work cauze can't fade out!, also
I can make it FadeIn but I lose all Graphics, fadin will fade my Window but without any Graphics...
with FFadeThread := TFadeThread.Create(TForm) do
begin
FFadeThread.terminate := ThreadDone }
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(
Handle, GWL_EXSTYLE, WS_EX_LAYERED);
SetWindowLong(Application.Handle, GWL_EXSTYLE,
GetWindowLong(Application.Handle, GWL_EXSTYLE)
or
WS_EX_TOOLWINDOW
and not WS_EX_APPWINDOW);
WorkBmp :=
nil;
AlphaBmp :=
nil;
SkinBmp :=
nil;
try
WorkBmp := TBitmap.Create;
with WorkBmp, Canvas, BmpSize
do
begin
cx := ClientWidth;
cy := ClientHeight;
PixelFormat := pf32Bit;
Width := cx;
Height := cy;
end;
AlphaBmp := TBitmap32.Create;
AlphaBmp.LoadFromFile('
Mask2.bmp');
SkinBmp := TBitmap32.Create;
with SkinBmp
do
begin
LoadFromFile('
hint2.bmp');
IntensityToAlpha(SkinBmp, AlphaBmp);
DrawTo(WorkBmp.Canvas.Handle, 0, 0);
end;
TopLeft := BoundsRect.TopLeft;
BmpTopLeft := Point(0, 0);
DC := GetDC(0);
if not Win32Check(LongBool(
DC))
then
RaiseLastWin32Error;
with Blend
do
begin
BlendOp := AC_SRC_OVER;
BlendFlags := 0;
SourceConstantAlpha := 255;
AlphaFormat := AC_SRC_ALPHA;
end;
if not Win32Check(UpdateLayeredWindow(
Handle,
DC, @TopLeft, @BmpSize,
WorkBmp.Canvas.Handle, @BmpTopLeft, clNone, @Blend, ULW_ALPHA))
then
RaiseLastWin32Error;
finally
WorkBmp.Free;
AlphaBmp.Free;
SkinBmp.Free;
end;
end;
procedure TForm1.DoShow;
var
R: TRect;
TP: integer;
WND: THandle;
begin
WND := GetFocus;
FOffsetX := 0;
FOffsetY := 0;
SystemParametersInfo( SPI_GETWORKAREA, 0, @R, 0);
TP := FTop;
TP := R.Bottom - Form1.Height + FOffsetX;
Form1.Left := R.Right - Form1.Width - 2 + FOffsetY;
Form1.Top := R.Bottom;
SetWindowPos(Form1.Handle, HWND_TOPMOST, 0, 0, 0, 0,
SWP_SHOWWINDOW
or SWP_NOACTIVATE
or SWP_NOSIZE
or SWP_NOMOVE);
Form1.Top :=
TP;
Windows.SetFocus( WND );
end;
procedure TForm1.ThreadDone(Sender: TObject);
begin
FFadeThread :=
nil;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
DoShow;
end;
end.