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!