fobj.pas

传奇Map地图编辑源码 一个很不错的源码哦

unit FObj;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, StdCtrls, ExtCtrls, HUtil32;

type
  TFrmObj = class(TForm)
    ObjGrid: TDrawGrid;
    Panel1: TPanel;
    CbWilIndexList: TComboBox;
    procedure ObjGridDrawCell(Sender: TObject; Col, Row: Longint;
      Rect: TRect; State: TGridDrawState);
    procedure FormShow(Sender: TObject);
    procedure ObjGridClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure CbWilIndexListChange(Sender: TObject);
  private
  public
    ViewNormal: Boolean;
    WilIndex: integer;
    function GetCurrentIndex: integer;
  end;

var
  FrmObj: TFrmObj;

implementation

uses
   edmain;

{$R *.DFM}


procedure TFrmObj.FormCreate(Sender: TObject);
begin
   ViewNormal := FALSE;
   CbWilIndexList.ItemIndex := 0;
   WilIndex := 0;
end;

procedure TFrmObj.FormShow(Sender: TObject);
var
   n: integer;
begin
   if ViewNormal then ObjGrid.DefaultColWidth := 48
   else ObjGrid.DefaultColWidth := 24;
   n :=  _MIN(65535, FrmMain.ObjWil(WilIndex*65535).ImageCount);
   if n >= 1 then ObjGrid.ColCount := n
   else ObjGrid.ColCount := 1;
end;

procedure TFrmObj.CbWilIndexListChange(Sender: TObject);
var
   n: integer;
begin
   n := CbWilIndexList.ItemIndex;
   if n in [0..MAXWIL-1] then begin
      WilIndex := n;
      FormShow (self);
   end;
end;

procedure TFrmObj.ObjGridDrawCell(Sender: TObject; Col, Row: Longint;
  Rect: TRect; State: TGridDrawState);
var
   idx, max: integer;
begin
   idx := Col + Row * ObjGrid.ColCount;
   max := FrmMain.ObjWil(WilIndex*65535 + idx).ImageCount;
   if (idx >= 0) and (idx < max) then begin
      with FrmMain.ObjWil(WilIndex*65535 + idx) do
         if ViewNormal then
            DrawZoom (ObjGrid.Canvas, Rect.Left, Rect.Top, idx, 1)
         else
            DrawZoom (ObjGrid.Canvas, Rect.Left, Rect.Top, idx, 0.5);
   end;
end;

procedure TFrmObj.ObjGridClick(Sender: TObject);
begin
   FrmMain.DrawMode := mdObj;
end;

function TFrmObj.GetCurrentIndex: integer;
var
   max: integer;
begin
   max := FrmMain.ObjWil(WilIndex*65535).ImageCount;
   if max > ObjGrid.Col then Result := ObjGrid.Col + WilIndex * 65535
   else Result := -1;
end;

procedure TFrmObj.FormResize(Sender: TObject);
begin
   ObjGrid.DefaultRowHeight := ObjGrid.Height - 4;
end;

end.