[Fun-Tool] EKG-PC-Monitor

[turboPASCAL]

Übrigens:

Delphi-Quellcode:

function IsWindowsXP: Boolean;
begin
  Result := (Win32MajorVersion = 5) and (Win32MinorVersion = 1);
end;

// ---------------------------------------------------------------------------

procedure TfrmPcEkg.CreateParams(var Params: TCreateParams);
begin
  inherited;
  if IsWindowsXP then
    Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW;
end;

procedure TfrmPcEkg.FormCreate(Sender: TObject);
var i: Integer;
begin
  Caption := Application.Title;
  DoubleBuffered := True;

reicht, da muss nicht noch:

Delphi-Quellcode:

procedure TfrmPcEkg.FormCreate(Sender: TObject);
var i: Integer;
begin
  SetClassLong(Handle, GCL_STYLE, GetClassLong(Handle, GCL_STYLE) or CS_DROPSHADOW);

so ein Doppelmoppel. ;)

Zitat:

[edit] Was bringt schatten? [/edit]

Schatten!
Damit ist die Form nicht so platt auf dem Desktop. ;)

[3_of_8]

Also da wir uns bei den Versionen gar ned mehr auskennen, machen wirs wie bei Linux, fangen wir mit Version 4.2 an. ;)

[xZise]

Zitat:

Zitat von turboPASCAL

Zitat:

[edit] Was bringt schatten? [/edit]

Schatten!
Damit ist die Form nicht so platt auf dem Desktop. ;)

Ja klar, nur bei mir ist kein unterschied ;)

@ 3 of 8: Einfach ganz weglassen ^^ Und die anderen Atts löschen :D

[turboPASCAL]

Guckst du:

[xZise]

Jo ich weiß ^^ Und der ist bei mir immer!

[JWeis]

Zitat:

Zitat von inherited

Kompiliert mit BDS 2006 unter WinXP SP2
€dit muss an win2k liegen vermut ich mal

jo es liegt an 2k zuhause kann ichs öffnen und ausführen. habs noch nicht fertiggestellt probiert mein bild einzufügen kommt aber bald