Zitat von
DeddyH:
Zeig mal etwas Code.
ja hier das hab ich vor, um das mal kurz zu erklären
1. ich hab eine combobox, in der will ich ein bitmap vom wochentag anzeigen, und alle 6 tage nach dem heutigen tag!!
2. soll hinter jedem bitmap dann der jeweilige tag mit datum und jahr angegeben sein
3. wird das ganze in einer itemlist gespeichert, die ich dann mit einer for schleife durchgehe und den items der combobox zuweise!!
nun ist mein problem, ich wollte sowenig units wie möglich nutzen...
Delphi-Quellcode:
procedure SetItemInfos;
var
TempSystemTime, NewSystemTime: TSystemTime;
i, TempInt: integer;
begin;
GetLocalTime(TempSystemTime);
for i := low(ItemInfo) to high(ItemInfo) do
begin;
if i = 0 then TempInt := 1 else TempInt := 0;
GetLocalTime(NewSystemTime);
TempSystemTime.wDay := NewSystemTime.wDay + i;
ItemInfo[i].DayImage := TempSystemTime.wDayOfWeek + i - 1;
ItemInfo[i].DayPos := TempInt;
ItemInfo[i].DateText := PChar(Format('%.2d:%.2d:%.3d', [TempSystemTime.wDay, TempSystemTime.wMonth, TempSystemTime.wYear]));
end;
end;
das hab ich bisher nur leider haut es mit einfach die tage raufaddieren nicht hinn ;-( hatte gehofft er aktualisiert das automatisch, aber das macht er leider nicht... sonnst geht es schon, bis auf einen kleinen fehler halt noch in der datums angabe, die item weist er der combobox zu und packt die ganzen daten rein, nur convertiert er hier nur komischer weise einen eintrag von 7 richtig, bei den anderen hat er fehler mit der 08!!
ps und ich weiß das ich es mit dem tag addieren so noch nciht lassen kann, werde mir nochwas einfallen lassen!!
edit:
achja diese zeile hier:
if i = 0 then TempInt := 1 else TempInt := 0;
ist dafür gedacht, das der erste tag nen kleinen abstand z uden anderen in der combobox hat..