GDIClock v1.57

[EWeiss]

Einfache Transparente Uhr in GDI+ Programmiert
Silhwan, Stefan Isser und meine Wenigkeit

Source ist voll Kommentiert so das ich auf
weitere Erklärungen hier verzichte.

Nur das noch!
Es können weitere Sprach Dateien erstellt werden
Koreanisch und Deutsch enthalten.

• V 1.54: 17 Mar 2011 (isilive - Stefan Isser)
• Fixed bugs:
• - Program now finds its data subfolder when being autostarted.
• - Error Messages at startup now also work on WinXP without raising exceptions. (they trigger WndProc
  and that called Timer1Timer and that raised an Exception)
• - Removed the GlobalAtom procedure (that was buggy and redundand) - CreateMutex is enough and it works fine.

• V 1.55: 5 Apr 2011 (isilive - Stefan Isser)
• - Settings Dialog a bit nicer
• - .ini gets saved to USER directory. So different users can have different settings on same pc.
  this is also important for Vista or "7" users.
• - Ini routines rewritten
• - Leftclick on Taskicon brings Clock to front

• V 1.56: 3 Feb 2012
• - removed unused checking for bGhostClock in menuGhostClockClick

• V 1.57: 7 Feb 2012
• - Added Check status of last used Clock

gruss

[EWeiss]

Zitat von Popov:

Ha, ich hab es

function InStr(Start: integer; Source: string; SourceToFind: string): integer; overload;
function InStr(Source: string; SourceToFind: string): integer; overload;

Es sind die zwei rot markierten Semikolons die im Originalcode fehlen. Wieso dein Delphi 7 da nicht meckert, bzw, großzügig ist, ist mir unklar, aber so funktioniert es auch bei mir.

grmmm...

Original!

Delphi-Quellcode:

function InStr(Start: integer; Source: string; SourceToFind: string): integer; overload;
begin
  Result := pos(SourceToFind,copy(Source, Start, Length(Source) - (Start - 1)));
end;

function InStr(Source: string; SourceToFind: string): integer; overload;
begin
  Result := pos(SourceToFind, Source);
end;

Sind beide Semikolons enthalten..
Keine ahnung was da bei dir schief gelaufen ist.
Gerade aus sicherheit das Archiv nochmal geladen da ist es genauso mit Semikolons.

gruss

[Popov]

Stimmt, in der 1.57 (die ich bereits gestern geladen habe, sie mir aber noch nicht angeguckt habe) sind sie auch da, in der 1.55 (die ich vorgestern geladen habe und mit der ich arbeitete) fehlen sie. Komisch.

[EWeiss]

Zitat von Popov:

Stimmt, in der 1.57 (die ich bereits gestern geladen habe, sie mir aber noch nicht angeguckt habe) sind sie auch da, in der 1.55 (die ich vorgestern geladen habe und mit der ich arbeitete) fehlen sie. Komisch.

Denke die 1.55 war (ist) Fehlerhaft.
Das wurde gefixt bzw. habe ich bemerkt als ich von D2010 die Version mit D7 kompilieren wollte.
Zu dem Zeitpunkt hatte ich den selben fehler.

Ist aber schon seltsam das dieses hier auch mit D2010 funktioniert!

Delphi-Quellcode:

function InStr(Start: integer; Source: string; SourceToFind: string): integer; overload;
begin
  Result := pos(SourceToFind,copy(Source, Start, Length(Source) - (Start - 1)));
end;

function InStr(Source: string; SourceToFind: string): integer overload;
begin
  Result := pos(SourceToFind, Source);
end;

Semikolon unten fehlt.. Und kompiliert trotzdem. (boahh Delphi)

PS:
Mit D2006 braucht man überhaupt kein Semikolon und es funktioniert. (Vers. 1.54)
Funktioniert aber auch mit.

gruss

[Popov]

Das ist mir schon von Delphi 2 auf Delphi 3 aufgefallen. Delphi 2 tolerierte einige Fehler (auch so was in der Art, genau weiß ich es aber nicht mehr), also machte ich sie. Als ich dann mit Delphi 3 anfing, hatte ich jede Menge Meldungen. Ich schätze Delphi 2010 guckt auch nicht so genau drauf.

[EWeiss]

Zitat von Popov:

Das ist mir schon von Delphi 2 auf Delphi 3 aufgefallen. Delphi 2 tolerierte einige Fehler (auch so was in der Art, genau weiß ich es aber nicht mehr), also machte ich sie. Als ich dann mit Delphi 3 anfing, hatte ich jede Menge Meldungen. Ich schätze Delphi 2010 guckt auch nicht so genau drauf.

Ist gut für dich das du den fehler gefunden hast.
Wenn du es auch einfacher hättest haben können unter verwendung der neuen Version.
Aber woher wolltest du das wissen

Ist manchmal schon ein Kreuz mit Delphi verstehen tut das wer will.

gruss