easy ProgBar

[Ferdy2003]

Zitat von STS301:

mit welchen Skins hast du das gemacht?

finde es jetzt um einiges Besser, in der Bearbeitenleiste würde ein OpenDialoge auch nicht schaden

die Schrift ist leider immer noch unverändert und passt zum jetzigen Disign nicht mehr dazu.

Wieso fragt er mich noch einmal wie ich die einzellnen Chekboxen benennen will?

Problem habe ich leider mit dem herunterfahren vom Rechner, wenn ich ihn normal herunterfahre (nicht mit "shutdown -s -t 1"), dann verhindert das Programm es irgendwie--> ich muss es beenden, dann kann ich erst herunterfahren.

Wenn du das Problem mit dem Herunterfahren gelöst hast, könntest du mir vielleicht sagen wie weil ich habe leider das selbe Problem mit meinem Schülerplaner

Die Skins sind einfach BMP Dateien:

1. Skin in Photoshop gemacht (26*26px und nen Verlauf rein) als .bmp gespeichert.
2. Form1.OnPaint folgendes rein:

Delphi-Quellcode:

var
Tskin: TBitmap;

Tskin := tbitmap.create;
try
 if FileExists(ort+'skin\'+Ini.ReadString('Allgemein','skin','blau.bmp')) then
  Tskin.LoadFromFile(ort+'skin\'+Ini.ReadString('Allgemein','skin','blau.bmp'));
 FillCanvas(Form1.Canvas, Tskin);
finally
 Tskin.Free;
end;

3. die Procedure FillCanvas

Delphi-Quellcode:

procedure TForm1.FillCanvas(Can: TCanvas; Bmp: TBitmap);
var
  x, y: Integer;
begin
  for x := 0 to Can.ClipRect.Right div Bmp.Width do
    for y := 0 to Can.ClipRect.Bottom div Bmp.Height do
      Can.Draw(x * Bmp.Width, y * Bmp.Height, Bmp);
end;

so das wars auch schon

Die Schrift finde ich auch noch .. Das liegt aber daran, dass ich beim Optionen Button irgendwie noch kein Passendes Bilde gefunden/gebastelt habe ^^

Das nochmal fragen kommt von der neuen FirstStart Funktion (Kommt auch nur 1 mal)

Die Shutdownfunction muss ich mal testen und sehen was sich machen lässt!