so...
ich habe noch bis gestern abend / heute früh um 2 uhr probiert
und nun geht es
vielleicht nicht sauber programmiert, aber für meine zwecke reicht es
Delphi-Quellcode:
//------------DrawGridDesktopIcon DrawCell--------------------------------------
procedure TForm1.DrawGridDIDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var i: integer;
begin
for i:=0 to 36 do
if ACol=i then ImageList1.Draw(DrawGriddi.Canvas,Rect.Left,Rect.Top,i);
end;
//-------------StringGridDesktopHintergrund DrawCell----------------------------
procedure TForm1.StringGridDHDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var Bild: TImage;
FileProject: string;
begin
FileProject:=ExtractFilePath(Application.ExeName);
case ACol of
0: begin
Bild := Timage.Create(self);
Bild.Picture.LoadFromFile(FileProject+'bilder\hintergrundbilder\hintergrund1.jpg');
StringGridDH.Canvas.StretchDraw(rect, bild.Picture.Graphic);
end;
1: begin
Bild := Timage.Create(self);
Bild.Picture.LoadFromFile(FileProject+'bilder\hintergrundbilder\hintergrund2.jpg');
StringGridDH.Canvas.StretchDraw(rect, bild.Picture.Graphic);
end;
2: begin
Bild := Timage.Create(self);
Bild.Picture.LoadFromFile(FileProject+'bilder\hintergrundbilder\hintergrund3.bmp');
StringGridDH.Canvas.StretchDraw(rect, bild.Picture.Graphic);
end;
end;
end;
und nun kann ich während das programm läuft noch die felder ermitteln und dei bilder / icons in ein image laden vergrößerte ansicht)
Delphi-Quellcode:
//--------------Desktopicon auswählen-------------------------------------------
procedure TForm1.DesktopiconauswaehlenClick(Sender: TObject);
var i: integer;
FileProject: string;
begin
FileProject:=ExtractFilePath(Application.ExeName);
for i:=0 to 36 do
begin
if DrawGridDI.Col=i
then pfaddesicons.text:=FileProject+'bilder\icons\Icon'+inttostr(i)+'.ico';
end;
iconvorschau.Picture.loadfromfile(pfaddesicons.text)
end;
//--------------Desktopicon auswählen-------------------------------------------
procedure TForm1.DesktophintergrundauswaehlenClick(Sender: TObject);
var FileProject: string;
begin
FileProject:=ExtractFilePath(Application.ExeName);
case StringGridDH.Col of
0: pfaddesbildes.Text:=FileProject+'bilder\hintergrundbilder\hintergrund1.jpg';
1: pfaddesbildes.Text:=FileProject+'bilder\hintergrundbilder\hintergrund2.jpg';
2: pfaddesbildes.Text:=FileProject+'bilder\hintergrundbilder\hintergrund3.bmp';
end;
vorschau.Picture.LoadFromFile(pfaddesbildes.Text);
vorschauSch.Stretch:=true;
end;
THX für deine hilfe, sonst wär ich noch nicht so weit
