![]() |
Fensterschatten
Fensterschatten erstellen.. 1 Zeile code.
SetClassLong(Handle, GCL_STYLE, CS_DROPSHADOW) Das ist alles gruss Emil |
Re: Fensterschatten
Zitat:
|
Re: Fensterschatten
damit kann man aber nicht den mac-drop shadow nachbauen, oder?!
|
Re: Fensterschatten
Hi,
:thumb: aber nicht vergessen: unter Windows 2000 schlägt die Funktion mit EOSError 87 fehl. Also aufpassen ;) Ich überschreib CreateParams dafür in einem Basisform:
Delphi-Quellcode:
Die Funktionen für die OS sind denke ich selbst herstellbar. Der Schatten wird für XP und Vista ohne aktivierte Themes eingeschaltet.
procedure TfrmDefaultForm.CreateParams(var Params: TCreateParams);
begin inherited; if (Win32IsMinXP and not Win32IsMinVista) or (Win32IsMinVista and not ThemeServices.ThemesEnabled) then begin Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW; end; ... end; Gruß Assertor |
Re: Fensterschatten
Zitat:
|
Re: Fensterschatten
Hi,
Zitat:
Ich schreib den Text mal um: Zitat:
Zitat:
|
Re: Fensterschatten
Zitat:
Zitat:
|
Re: Fensterschatten
Hi,
Zitat:
Zitat:
Gruß Assertor |
Re: Fensterschatten
Zitat:
MfG, Sun |
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:56 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz