Unit7.pas

unit Unit7;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Spin, Unit1, Buttons, LevelEngine;

type
  TPictureForm = class(TForm)
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    SpinEdit1: TSpinEdit;
    Label5: TLabel;
    ComboBox4: TComboBox;
    Image1: TImage;
    ScrollBox1: TScrollBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);
    procedure SaveToPicture(var pic:TEPicture);
    procedure LoadFromPicture(pic:TEPicture);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormDeactivate(Sender: TObject);
    procedure ReloadLGR;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
//    LastLgr:string[16];
  public
    { Public declarations }
//    Pic: ^TEPicture;
  end;

var
  PictureForm: TPictureForm;

implementation

uses DXDraws, DIB;

{$R *.dfm}

procedure TPictureForm.ComboBox1Change(Sender: TObject);
var
  b:TBitmap;
begin
  if (ComboBox1.Text<>'') then begin
    b:=Level.PC[Level.SearchPic(ComboBox1.Text)].Image.Bmp;
    Image1.Picture.Bitmap.Width:=b.Width;
    Image1.Picture.Bitmap.Height:=b.Height;
    Image1.Canvas.Brush.Color:=clWhite;
    Image1.Canvas.FillRect(Image1.ClientRect);
    Image1.Canvas.Draw(0,0,b);
    Image1.Proportional:=true;
    Image1.Transparent:=true;
    Image1.Picture.Bitmap.TransparentColor:=b.Canvas.Pixels[0,0];
    if Sender<>nil then
    with Level.PC[Level.SearchPic(ComboBox1.Text)] do begin
     {Image1.Picture.Bitmap.Width:=Image.Bmp.Width;
     Image1.Picture.Bitmap.Height:=Image.Bmp.Height;
     Image1.Canvas.Draw(0,0,Image.Bmp);}
     SpinEdit1.Value:=Distance;
     ComboBox4.ItemIndex:=Clipping;
    end;
    ComboBox2.ItemIndex:=-1;
    ComboBox3.ItemIndex:=-1;
  end
end;

procedure TPictureForm.ComboBox2Change(Sender: TObject);
begin
  if (ComboBox2.Text<>'') then begin
    Image1.Transparent:=false;
    if ComboBox3.ItemIndex<0 then begin
      ComboBox3.ItemIndex:=0;
      ComboBox3Change(Sender);
      exit;
    end;
    if Sender<>nil then
    with Level.PC[Level.SearchPic(ComboBox2.Text)],Image do begin
     Image1.Canvas.Brush.Bitmap:=Bmp;
     SpinEdit1.Value:=Distance;
     ComboBox4.ItemIndex:=Clipping;
    end;
    Image1.Canvas.FillRect(Image1.Canvas.ClipRect);
    ComboBox1.ItemIndex:=-1;
  end
end;

procedure TPictureForm.ComboBox3Change(Sender: TObject);
var
  i:integer;
begin
  if (ComboBox3.Text<>'') then begin
    Image1.Proportional:=true;
    Image1.Transparent:=false;
    if ComboBox2.ItemIndex<0 then begin
      ComboBox2.ItemIndex:=0;
    end;
    ComboBox2Change(Sender);
    i:=Level.SearchPic(ComboBox3.Text);
    Image1.Picture.Bitmap.Width:=Level.PC[i].Width;
    Image1.Picture.Bitmap.Height:=Level.PC[i].Height;
    ComboBox1.ItemIndex:=-1;
  end
end;

procedure TPictureForm.LoadFromPicture(pic: TEPicture);
begin
//  if ComboBox1.Items.Count=0 then ReloadLGR;
  ComboBox1.ItemIndex:=ComboBox1.Items.IndexOf(pic.Name);
  ComboBox2.ItemIndex:=ComboBox2.Items.IndexOf(pic.Texture);
  ComboBox3.ItemIndex:=ComboBox3.Items.IndexOf(pic.Mask);
  ComboBox1Change(nil);
  ComboBox2Change(nil);
  ComboBox3Change(nil);
  SpinEdit1.Value:=pic.Distance;
  ComboBox4.ItemIndex:=pic.Clipping;
end;

procedure TPictureForm.SaveToPicture(var pic: TEPicture);
begin
  pic.Name:=ComboBox1.Text;
  pic.Texture:=ComboBox2.Text;
  pic.Mask:=ComboBox3.Text;
  pic.Distance:=SpinEdit1.Value;
  pic.Clipping:=ComboBox4.ItemIndex;
end;

procedure TPictureForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_ESCAPE then Close;
end;

procedure TPictureForm.FormDeactivate(Sender: TObject);
begin
  ModalResult:=mrCancel;
  Close;
end;

procedure TPictureForm.ReloadLGR;
var
  i:integer;
  c1,c2,c3:integer;
begin
  c1:=ComboBox1.ItemIndex;
  c2:=ComboBox2.ItemIndex;
  c3:=ComboBox3.ItemIndex;
  ComboBox1.Clear;
  ComboBox2.Clear;
  ComboBox3.Clear;
  for i:=0 to High(Level.PC) do with Level.PC[i] do
  case tip of
    ptPicture:ComboBox1.AddItem(Name,nil);
    ptTexture:ComboBox2.AddItem(Name,nil);
    ptMask:ComboBox3.AddItem(Name,nil);
  end;
  if (ComboBox1.ItemIndex<0) and (ComboBox2.ItemIndex<0) then begin
    Image1.Picture.Bitmap.Width:=0;
    Image1.Picture.Bitmap.Height:=0;
  end;
  ComboBox1.Sorted:=true;
  ComboBox2.Sorted:=true;
  ComboBox3.Sorted:=true;
  ComboBox1.ItemIndex:=c1;
  ComboBox2.ItemIndex:=c2;
  ComboBox3.ItemIndex:=c3;
  ComboBox1Change(nil);
  ComboBox3Change(nil);
end;

procedure TPictureForm.FormShow(Sender: TObject);
begin
  ReloadLGR;
  if (ComboBox4.ItemIndex<0) then ComboBox4.ItemIndex:=0;
  if (ComboBox1.ItemIndex<0) and (ComboBox2.ItemIndex<0) and (ComboBox3.ItemIndex<0) then begin
    ComboBox1.ItemIndex:=0;
    ComboBox1Change(Sender);
  end;
end;

end.