Class TIconedit (unit Iconsorc)

Inherits from

TForm

Constructors



Functions

procedure Bmpsave2Click(Sender: TObject);


procedure Button2Click(Sender: TObject);


procedure Button3Click(Sender: TObject);

Label3.

procedure FormCreate(Sender: TObject);

Ds.

procedure FormDestroy(Sender: TObject);

Initialize vars for icon types

procedure HintsonClick(Sender: TObject);

default extension

function Iconlister( szName: PANSICHAR ): BOOLEAN;


procedure Icosave2Click(Sender: TObject);

Last bit of assistance

procedure ListBox1Click(Sender: TObject);


procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);


procedure ListBox2Click(Sender: TObject);


procedure ListBox2DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);

Label8.

procedure PicksourceClick(Sender: TObject);


procedure PicktargetClick(Sender: TObject);


procedure UpdateClick(Sender: TObject);


procedure Updateerr(Errindex:Byte);

Private declarations

file has no icons


Properties

Events

Variables

BalloonHint1 : TBalloonHint;


Bmpsave1 : TButton;


Bmpsave2 : TButton;


Button2 : TButton;


Button3 : TButton;


CopyOverride : TCheckBox;


GroupBox2 : TGroupBox;


Hintson : TCheckBox;


Iconind1 : TEdit;


Iconind2 : TEdit;


Icosave1 : TButton;


Icosave2 : TButton;


Image1 : TImage;


Label1 : TLabel;


Label10 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


List1Ind : TGroupBox;


ListBox1 : TListBox;


ListBox2 : TListBox;


ListBox3 : TListBox;


ListBox4 : TListBox;


Picksource : TButton;


Picktarget : TButton;


Sourcefile : TEdit;


Targetfile : TEdit;


Update : TButton;



Constructors


Functions


procedure Bmpsave2Click(Sender: TObject);


procedure Button2Click(Sender: TObject);


procedure Button3Click(Sender: TObject);

Label3.Caption:=IntToStr(Count)+' Icons in '+S;


procedure FormCreate(Sender: TObject);

Ds.Canvas.Fillrect(r1);


procedure FormDestroy(Sender: TObject);

Initialize vars for icon types


procedure HintsonClick(Sender: TObject);

default extension


function Iconlister( szName: PANSICHAR ): BOOLEAN;


procedure Icosave2Click(Sender: TObject);

Last bit of assistance


procedure ListBox1Click(Sender: TObject);


procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);


procedure ListBox2Click(Sender: TObject);


procedure ListBox2DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);

Label8.Caption:=IntToStr(Count)+' Icons in '+S;


procedure PicksourceClick(Sender: TObject);


procedure PicktargetClick(Sender: TObject);


procedure UpdateClick(Sender: TObject);


procedure Updateerr(Errindex:Byte);

Private declarations

file has no icons


Properties


Events


Variables


BalloonHint1 : TBalloonHint;


Bmpsave1 : TButton;


Bmpsave2 : TButton;


Button2 : TButton;


Button3 : TButton;


CopyOverride : TCheckBox;


GroupBox2 : TGroupBox;


Hintson : TCheckBox;


Iconind1 : TEdit;


Iconind2 : TEdit;


Icosave1 : TButton;


Icosave2 : TButton;


Image1 : TImage;


Label1 : TLabel;


Label10 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


List1Ind : TGroupBox;


ListBox1 : TListBox;


ListBox2 : TListBox;


ListBox3 : TListBox;


ListBox4 : TListBox;


Picksource : TButton;


Picktarget : TButton;


Sourcefile : TEdit;


Targetfile : TEdit;


Update : TButton;