[Fun-Tool] EKG-PC-Monitor

[Zacherl]

Zitat:

Zitat von inherited

Zitat:

Zitat von Florian Bernd

Das Programm wird ja immer besser! :thumb:
Was mir aufgefallen ist, das der Defibrilator den Zustand des Patienten (zumindest auf diesem alten Rechner) temporär verschlechtert.

Edit: Bei einer Auslastung > 80 wird die Linie sofort grade. Wäre es nicht schöner noch zu sehen, wie die letzten Ausschläge auch nach links wandern?

Ist doch eingebaut... Wenn ihr andern typen vllt mal immer die NEUSESTE version updaten würdet...

Scheint so als hätte 3_of_8 nicht deine Version verbessert. Und somit habe ich auch nicht deine Verbesserungen in meiner Version, weil ich dachte die von 3_of_8 wäre die neueste.
Ich guck mal, dass ich deine Verbesserungen in meine einbaue und somit alle zusammenbringe.

[inherited]

So alles neu in einem v5 (geschätzer wert :D )
und ab jetzt bitte immer die neuste version zum bearbeiten nehmen!
@ florian^^ hat sich damit erledigt, vllt kann turboPASCAL in seinem ersten beitrag den download RAUSNEHMEN und auf hier inten verweisen(oder irgendn mod)

[turboPASCAL]

@FB ;)

Delphi-Quellcode:

procedure TfrmPcEkg.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  // if Key in ['0'..'9', Chr(VK_BACK)] then Key := #0;
  // oder :
  if Ord(Key) in [0..9, VK_BACK] then Key := #0;
  

//  if (Key <> '0') and (Key <> '1') and (Key <> '2') and (Key <> '3') and
//     (Key <> '4') and (Key <> '5') and (Key <> '6') and (Key <> '7') and
//     (Key <> '8') and (Key <> '9') and (Ord(Key) <> VK_BACK) then
//  Key := #0;
end;

Besser ?

[DGL-luke]

also ich würd da ja noch n dezentes "not" irgendwo einfügen ;)=

[inherited]

lol

geupdatet damit:(denkt dran ab jetzt DIESE VERSION nehmen(oder meine aus dem letzten beitrag von mir aus

[turboPASCAL]

Zitat:

Zitat von DGL-luke

also ich würd da ja noch n dezentes "not" irgendwo einfügen ;)=

Könnte man. ;)

Was mir gerade einfällt, schade das es hier in der DP keinen "Sammelordner" gibt ala CVS wo dann jeder darauf zugreifen kann (Anmelde / Feigabetechnisch). Für die Zusammenarbeit oder so....

Muss man wohl erst vorschlagen. :gruebel:

Ach, worum ich euch bitten möchte, wenn ihr eine neue Version hochladet, macht das immer in dem selben Beitrag und verlinkt dann darauf.

[3_of_8]

Problem: Wir brauchen Transparenz. Also verlustfreie Bilder. GIF wird nur von JEDI unterstützt.

Also BMP, und das ist eindeutig zu groß.

[Zacherl]

Zitat:

Zitat von turboPASCAL

@FB ;)

Delphi-Quellcode:

procedure TfrmPcEkg.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  // if Key in ['0'..'9', Chr(VK_BACK)] then Key := #0;
  // oder :
  if Ord(Key) in [0..9, VK_BACK] then Key := #0;
  

//  if (Key <> '0') and (Key <> '1') and (Key <> '2') and (Key <> '3') and
//     (Key <> '4') and (Key <> '5') and (Key <> '6') and (Key <> '7') and
//     (Key <> '8') and (Key <> '9') and (Ord(Key) <> VK_BACK) then
//  Key := #0;
end;

Besser ?

Mist. Ich hatte
if Key in [0..9, Chr(VK_BACK)] then Key := #0;
und da hat der Compiler gemeckert. Deswegen hab ich es so umständlich gemacht. Einfach nur die ' vergessen.

Zitat:

Ach, worum ich euch bitten möchte, wenn ihr eine neue Version hochladet, macht das immer in dem selben Beitrag und verlinkt dann darauf.

Ist glaube ich besser, man nimmt immer einen neuen Beitrag, da man als User, der selbst etwas modifizieren will zuerst ganz hinten nach der neusten Version sucht.

[JWeis]

Zitat:

Zitat von inherited

denkt dran ab jetzt DIESE VERSION nehmen(oder meine aus dem letzten beitrag von mir aus

ich würde nicht diese version nehmen denn da kommp der fehler (siehe anhang!)

[edit]ich glaub dass ich den fehler gefunden habe.

ich benutze d7 pro und kein d 2006 [/edit]

[inherited]

omfg
ok ich kram ma mein altes d7 raus^^

[turboPASCAL]

Die Version von inherited im Post #85 bringt bei mir keine Fehler.
Welche Windows Version wird verwendet ? Liegt vill. am Schatten erstellen ?!

Ich nehm übrigens immer noch D6 ;)

[JWeis]

ich hab win 2k mit allen sp's
d7
und es geht immer noch nicht

[inherited]

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

[JWeis]

ich teste es später mal daheim
hab dort xp

[turboPASCAL]

Ich glaub das liegt an W2k, das OS kann keinen Schatten bzw kennt den Parameter CS_DROPSHADOW nicht.
Deshalb kommt die Fehlermeldung in Bezug auf "falscher Parameter".

Werde das bei Gelegenheit mal fixen mit Versionsabfrage auf XP.

Delphi-Quellcode:

If a XP Then Schatten Else Nix;

[xZise]

Ähm eine Frage ... Was sind diese Grauen Zahlen an der Seite ^^ Die geben irgendwie keinen Sinn :P

Ansonsten:

Geniales Programm

Und jetzt macht mal eine Schöne Umgebung :D

[edit] Aso: Die Manuelle Eingabe der Geschwindigkeit über die Tastatur ist irgendwie ... Müll ^^ Oder habe ich was überlesen [/edit]

[turboPASCAL]

Zitat:

Zitat von xZise

Ähm eine Frage ... Was sind diese Grauen Zahlen an der Seite ^^ Die geben irgendwie keinen Sinn :P

So wie das Programm selbst. Halt irgend eine Scala. :mrgreen:

[inherited]

Die könnte man noch in pulsierendem neon-metallic-pink machen und übern bildschirm tanzen lassen^^

[inherited]

Hab grad noch ein bisschen was verbessert:
-Alpha-Blending(auf wunsch)
-Schatten nur nach Wunsch
-Sinnvollere(nicht sinnvolle^^) anzeige der Scala

[xZise]

Zitat:

Zitat von turboPASCAL

Zitat:

Zitat von xZise

Ähm eine Frage ... Was sind diese Grauen Zahlen an der Seite ^^ Die geben irgendwie keinen Sinn :P

So wie das Programm selbst. Halt irgend eine Scala. :mrgreen:

Achso ^^
@ inherited: Ihr habt ja wieder einen Rückschitt gemacht ;)

Verbesserungsvorschläge:
- Die Kurve wird langgezogen, wenn man es vergrößert... , sieht dann aber nicht mehr so hübsch aus ^^
- Und die Scala kann weit über 100 erreichen :P
- ggf. Snap?

[edit] Was bringt schatten? [/edit]

[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