Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Delphi Problem mit incompatiblen: Typen. TPicture und String (https://www.delphipraxis.net/157008-problem-mit-incompatiblen-typen-tpicture-und-string.html)

sun4623 24. Dez 2010 03:40

Problem mit incompatiblen: Typen. TPicture und String
 
Problem mit incompatiblen: Typen. TPicture und String


Ich habe ein Problem mit einer meiner Prozeduren. Wie benutzt man denn bitteschön ein TPicture in combination mit einem String? Ich benütze eine resource-dll und arbeite das erste damit. Nun möchte ich ein relativ großes Bild in mein Programm laden. Ich habe eine creditscrol komponente in der ich nun das image als background image laden möchte und diese danach aktivieren möchte, stehe aber vor einem kleinen Problem. ich habe jetzt einfach mal improvisiert und versucht

::Hier mal meine Prozedur::
Code:
Procedure TForm2.FormShow(Sender: TObject);
const
  resGIF = 'grandchan.gif';
var
  h : THandle;
  gif : TGifImage;
  r : TRect;
begin
load;
Panel1.DoubleBuffered := True;
Panel1.ParentBackground := False;
ScrolMod1.Scrolling :=true;
 h := LoadLibrary('Resource1.DLL');
  try
    if h <> 0 then
    begin
      gif := TGIFImage.Create;
      try
        gif.LoadFromResourceName(h,resGIF);
      //gif.Paint(Canvas,Form2.ClientRect,[goDirectDraw]);
gif.Paint(canvas,Form2.ScrolMod1.BackgroundImage:='grandchan.gif')ClientRect,[goDirectDraw]);
      finally
        gif.Free;
      end;
    end
    else
    begin
      //ShowMessage('Load Resource DLL FAILED!');
    end;
  finally
    FreeLibrary(h);
  end;
end;

Luckie 24. Dez 2010 04:10

AW: Problem mit incompatiblen: Typen. TPicture und String
 
Form2.ScrolMod1.BackgroundImage erwartet wohl ein TPicture und keinen Dateinamen. TPicture kennt die Methode LoadFromStream. Du musst also die Grafik aus der Ressource in einen Stream laden und diesen Stream kannst du dann Form2.ScrolMod1.BackgroundImage zuweisen. Mit TRessourceStream kannst du die Grafik aus der Ressource direkt in einen Stream laden.


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:06 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz