Hilfe bei TLMDGraphicList und Imageausgabe......

[ApoCalyps0]

Hi,

danke für die schnelle hilfe. Hab versucht es einzubinden, funzt aber nicht........
Ich hab hier mal einen Teil meines Quelltextes.....

Delphi-Quellcode:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, jpeg, ExtCtrls, ImgList, LMDBaseControl,
  LMDBaseGraphicControl, LMDGraphicControl, LMDBaseImage, LMDCustomLImage,
  LMDLImage, LMDCustomImageList, LMDGraphicList, LMDThemedComboBox,
  LMDCustomComboBox, LMDComboBox, LMDControl, LMDCustomControl, LMDCustomPanel,
  LMDButtonControl, LMDCustomCheckBox, LMDCheckBox, LMDCustomListBox,
  LMDCustomImageListBox, LMDImageListBox, LMDFill;


type
  TForm3 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    combobox1: TComboBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    Label1: TLabel;
    LMDGraphicList1: TLMDGraphicList;
    LMDLImage1: TLMDLImage;
    procedure combobox1Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;

implementation

  Uses Unit2, Unit1;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
    Form3.close;
    Form2.Visible:=true;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
  Form2.close;
  Form1.close;
  close;
end;

procedure TForm3.combobox1Change (Sender: TObject);
begin
  If ComboBox1.Text = 'Great Beast' Then
 begin
   LMDGraphicList1.Graphics[0];    <-------- Hier soll das erste Bild aus der GraphicList1 geladen werden, und....
   LMDLImage1.Visible:=true;       <-------- hier in LMDLImage1 ausgegeben werden.
   CheckBox1.Checked:=true;
   CheckBox2.Checked:=false;
   CheckBox3.Checked:=false;
   CheckBox4.Checked:=true;
   CheckBox5.Checked:=true;
   CheckBox6.Checked:=false;
   CheckBox7.Checked:=false;
   CheckBox8.Checked:=true;
  end;
  If ComboBox1.Text = 'Hydra' Then
  LMDLImage1:=nil;                 <-------- Hier soll das erste Bild gelöscht werden, bzw. von LMDLImage1 entfernt.
  begin
   LMDGraphicList1.Graphics[2];    <-------- Hier soll das zweite Bild aus graphicList1 ins LMDLImage1 hereingeladen werden
   LMDLImage1.Visible:=true;       <-------- Machts aber nicht!!!! 
   CheckBox1.checked:=true;
   CheckBox2.Checked:=false;
   CheckBox3.Checked:=false;
   checkBox4.Checked:=true;
   CheckBox5.Checked:=true;
   CheckBox6.Checked:=false;
   CheckBox7.Checked:=false;
   CheckBox8.Checked:=true;
  end;
  If ComboBox1.Text = 'Werewolf' Then
  begin
   CheckBox1.checked:=true;
   CheckBox2.Checked:=true;
   CheckBox3.Checked:=false;
   CheckBox4.Checked:=false;
   CheckBox5.Checked:=true;
   CheckBox6.Checked:=true;
   CheckBox7.Checked:=false;
   CheckBox8.Checked:=false;
  end;
   If ComboBox1.Text = 'Behemoth' Then
  begin
   CheckBox1.checked:=false;
   CheckBox2.Checked:=true;
   CheckBox3.Checked:=false;
   CheckBox4.Checked:=true;
   CheckBox5.Checked:=false;
   CheckBox6.Checked:=true;
   CheckBox7.Checked:=false;
   CheckBox8.Checked:=true;

Allerdings funzt es halt nicht...????