Arsip: bayangan form

more 18 years ago
unknown
setelah melihat bentuk form dari vista aku kok jadi tertarik sama bentuk formnya. gimana ya cara buat efek bayangan pada form yang kita bangun. apa masih ada hubungannya sama AlphaBlending ya? terus kalo kita ingin cuman 1 component saja(bukan seluruh form) yang transparant kira2 gimana solusinya. atau pada area tertentu saja yang transparant?
wasalam...

more 18 years ago
Maul_aku
ini kode form untuk yang shadownya :
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
protected
procedure CreateParams(var Params: TCreateParams); override; // Important !
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{------------------------------------------------------------}
// Here we check of the user is running Windows XP
function IsWinXP: Boolean;
begin
Result := (Win32Platform = VER_PLATFORM_WIN32_NT) and
(Win32MajorVersion >= 5) and (Win32MinorVersion >= 1);
end;
{------------------------------------------------------------}
{------------------------------------------------------------}
// Check if it is Windows XP if all is OK then create the drop shadow
procedure TForm1.CreateParams(var Params: TCreateParams);
const
CS_DROPSHADOW = $00020000;
begin
inherited;
if IsWinXP then
Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW
else
end;
{------------------------------------------------------------}
end.
yang 1 component belum bisa

more 18 years ago
unknown
kalo cuma satu component(area tertentu misal panel aja bisa gak) aja gimana dung.

more 18 years ago
zieborg
kalo cuma satu component(area tertentu misal panel aja bisa gak) aja gimana dung.install JVCL(gratis), di compoent pallete JVCL Globus1 ada component JvgShadow (container, bisa buat semua visual control, except form), klo ga mau komponen tambahan, koding aja sendiri.

more 18 years ago
unknown
ternyata dihardiskku dah da tuh JVCL cuman lum keinstal ja.
dah bisa and yang penting gratisss....
makasih buat semuanya
more ...
- Pages:
- 1
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 5 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 13 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 13 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 13 years ago
Random Topic
- Program Teks Berjalan di Desktop Windows
by hunter20040 in OpenSource dan Gratis more 17 years ago - Akses dll dengan banyak fungsi ?
by putu_niki in Tip n Trik Pemrograman more 18 years ago - remote desktop, komputer lain ???
by bastian in Network, Files, I/O & System more 18 years ago - tanya checkbox di delphi
by Rogeb_Shewrite in Hal umum tentang Pascal Indonesia more 18 years ago - Chart seperti Windows Task Manager
by luckynvic in Multimedia & Graphic Enhancement more 18 years ago - Buka IE atau browser lain dari delphi
by alfian in Enginering more 19 years ago - Query didalam query..???
by ZeAL in MySQL more 19 years ago - 2 query di satu report
by d4mnf1y32 in MySQL more 13 years ago - Tanya struktur aplikasi database yang baik dan benar
by _lmz in Enginering more 19 years ago - Kopi Darat Delphi Team
by DelphiExpert in OOT more 16 years ago