Schnipp:
Delphi-Quellcode:
Events:=FCalendarAPI.EventsResource.list(FCurrentCalendar.id,'');
SaveRefreshToken;
I:=0;
if assigned(Events) then
for Entry in Events.items do
begin
Inc(i);
EN:=Entry.Summary+' '+Entry.colorId;
if EN='' then
EN:=Entry.id+' ('+Entry.description+')';
if Assigned(Entry.Start) then
if Entry.start.date<>0 then
EN:=DateToStr(Entry.start.date)+' : '+EN
else if Entry.start.dateTime<>0 then
EN:=DateTimeToStr(Entry.start.datetime)+' : '+EN
else
EN:='(unspecified time) '+EN;
LBEvents.Items.AddObject(IntToStr(i)+': '+EN,Entry);
end;
Der Code liest die Events eines Kalenders aus (funktioniert so weit auch).
Mit diesem Code, lese ich die Colorresource aus:
Delphi-Quellcode:
var
cols : TColors;
begin
cols := fCalendarAPI.ColorsResource.Get;
end;
Soweit so gut, wird auch ausgeführt und lt. dem Requestlog werden auch die Farben zurückgeliefert. Nur
finde ich keinen Weg, die Farbdefinitionen aus Cols raus zu bekommen. Es ist also weniger ein Problem der
Google-
API selbst, sonder mehr des Wrappers.