سؤال حول انشاء اضافة لدلفي

امين هل تقصد محرر لمكون انت تبرمجه .

بالمناسبة لقد نسيت تحرير :

t_Sections و t_Rows انظر من السطر 180 .

في الوحدة myIniFileUnit

شكرا اخي محمد..

لا . انا اقصد اضافة تشبه

http://www.gexperts.org/

او CnWizards

شكرا على الملاحظات بخصوص myIniFileUnit ... ساضيفها و اعيد رفع الكود بارك الله فيك

على العموم تتكرر في رأسي فكرة كتابة اضافة لدلفي 7 ليحاكي دلفي 2010 خاصة ال ide insight.. ما رأيك؟؟

اقراء هذا

http://www.drbob42.com/delphi/wizards.htm >>>> :thumb_up:

نعم فكرة جيدة ولكن حط في راسك فكرة Compatibility

روعة بارك الله فيك اخي محمد

-----

ساحاول و اعلمكم بالجديد اول بألول :thumb_up:

يمكن أن يساعدك هذا:

{
This unit can be compiled into a package and will then appear in the delphi
Help menu.
}
unit SDCSimpleExpert;

interface

uses ToolsApi;

type
  TSDCSimpleExpert = class(TNotifierObject, IOTAMenuWizard, IOTAWizard)
  public
	function GetIDString: string;
	function GetName: string;
	function GetState: TWizardState;
	procedure Execute;
	function GetMenuText: string;
  end;

procedure Register;

implementation

uses Dialogs;

procedure Register;
begin
  {register expert}
  RegisterPackageWizard(TSDCSimpleExpert.Create);
end;

{ TSDCSimpleExpert }

procedure TSDCSimpleExpert.Execute;
begin
  {code to execute when menu item is clicked}
  ShowMessage('Hello SwissDelphiCenter Simple Expert.');
end;

function TSDCSimpleExpert.GetIDString: string;
begin
  {unique expert identifier}
  Result := 'SwissDelphiCenter.SimpleExpert';
end;

function TSDCSimpleExpert.GetMenuText: string;
begin
  {caption of menu item in help menu}
  Result := 'SwissDelphiCenter Simple Expert';
end;

function TSDCSimpleExpert.GetName: string;
begin
  {name of the expert}
  Result := 'SwissDelphiCenter Simple Expert';
end;

function TSDCSimpleExpert.GetState: TWizardState;
begin
  Result := [wsEnabled];
end;

end.