xStartDesigner

[Alex]

ActionTree сейчас поправлю.

А вот формы из Runtime скриптов создавать нельзя. Можно только в DesignTime частях скриптов. Нужно для защищенной работы в потоковом режиме... И раньше таким образом еще экономил занимаемую программой память. Начиная с версии 1.80 экономии уже не будет.

[Romik©]

Я разобрался с xStartDesigner, всё ничего, плохо нет свободы действий, например тут навоял то что мне нужно в делфи, решил просто поэксперементировать, в xStartDesigner создал тестовый плагин, без форм и текста, ввёл левую переменную в TTask0Rec, далее Gen Form Script, Gen Run Script и в Run Script добавляю " WinExec ('c:\Program Files\Bred3\bred3_2k.exe', SW_RESTORE);". Всё вместе получилось так:

Код: Выделить всё

function RunTask0(Rec: TTask0Rec): TTask0Result;
begin
  WinExec ('c:\Program Files\Bred3\bred3_2k.exe', SW_RESTORE);
  Result.Success:=True;
end;

Далее на запуск, и "ok" и ту же обламываюсь ...

Значит получается так, если я в плагине захотел запустить программу то нужно использовать дополнительные функции xStarter, а именно function FileExecuteWait?
И можно Вас попросить, если это не затруднит, кратенько описать эти самые стандартные функций в wiki.

[Romik©]

И ещё вопросик, какой должен быть фон у иконки, для своего плагина, чтоб он был прозрачным?
------------------------------------------------------
В xStartDesigner добавляешь элемент радиогруппы и туда натаскиваешь чекбоксы и всё это потом пытаешься передвинуть, то и дело вылезает ошибка, иногда так надоедает...

[Romik©]

Мдаа, не получился у меня немого плагин, опять повторюсь, нет свободы действия, на Delphi всё посто и понятно, но тут...
Вобщем покажу примерно что надо как-то перенести в плагин. Это наброски быстрые. Плагин (пока что прога на дефи) архивирует данные в *.rar. Изучив какие можно передавать параметры, тут можно сделать полезную штуку. Накидываешь чекбоксы и в зависемости True или False добавляем определённый параметр...

Код: Выделить всё

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, AppEvnts, XPMan, ShellAPI, unit2;

type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    Edit1: TEdit;
    Button1: TButton;
    ApplicationEvents1: TApplicationEvents;
    Button2: TButton;
    Label1: TLabel;
    XPManifest1: TXPManifest;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure ApplicationEvents1ShowHint(var HintStr: String;
      var CanShow: Boolean; var HintInfo: THintInfo);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



var pName: array[0..79]of char;

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute
then begin
Edit1.Text:=OpenDialog1.FileName;
end;
end;
procedure TForm1.ApplicationEvents1ShowHint(var HintStr: String;
  var CanShow: Boolean; var HintInfo: THintInfo);
begin
if HintInfo.HintControl = Edit1
  then begin
    HintStr:=Edit1.Text;
    ApplicationEvents1.CancelDispatch;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var Param: string;
    Result: array[0..79]of char;
    pach: string;
    min: string;
begin
if Edit1.Text ='' then Application.MessageBox('Вы не ввели путь к WinRar.exe','Ошибка!', 0) else
begin
  StrPCopy(pName, Edit1.Text);
  if CheckBox1.Checked = true then pach:='-ep3' else pach:='';
  if CheckBox3.Checked = true then min:='-ibck' else min:='';
  Param:= 'a '+pach+' -u -rr8 -os '+min+' -y D:\BACKUP.RAR @backup.lst';
  StrPCopy (Result, Param);
  ShellExecute (Handle, nil, pName, Result, nil, sW_showminimized);
  label2.Caption:= Result;
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Form2.ShowModal();
end;

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  application.MessageBox('Поверка','Сообщение');
end;

end.

Воть!

[Romik©]

ау-ау, ответе плиз, стоит хоть продолжать свои начинания...

[Alex]

Да, сорри за долгий ответ. Думал.

По существу вопросы делятся на три категории:
1. Детали по работе с xStartDesigner. Внутренние функции.
2. Идеология программы.
3. Какие плагины нужны.

Пока разъясню пункт 3:
Есть список плагинов, которые нужны и будут полезными. Плагин для WinRAR туда входит, но его уже почти доделал iPasha. Там оказалось просто огромное количество ключей и заново эту работу делать уже не целесообразно.
А вообще список нужных плагинов опубликую завтра. Из тех, про которые вспоминали совсем недавно - регулировка громкости...

Пора бежать домой, завтра допишу остальные пункты.

[Romik©]

Alex, не подскажешь как сделать такое всплывающее сообщение, которое я в пожеланиях опубликовал . Хотя бы что за функция, или можно примерчик

[Alex]

На самом деле ничего сложного там нет, в библиотеке компонентов Jedi (JVCL, JCL) ищи компонент JvTrayIcon (кажется так называется). Или в паскалевских файлах можно искать по функции NotifyIcon.

[Dirk Diggler2]

мда, идея конечно, хорошая - возложить написание плагинов на пользователей, но ведь им надо для этого нужную инфу дать. А то лично я нифига не понял, как эти плагины делать, хоть когда-то и на дельфи программил....

[Mak1001]

Не возложить, а предоставить возможность. Это разные вещи мне кажется.

[Dirk Diggler2]

в моем сообщении не было никакого подтекста, и под "возложить" я не имел в виду ничего такого. Я действительно считаю, что для бесплатной программы это правильное решение. Просто хотелось бы действительно иметь возможность понять, как это делать - а то желание есть, а реализовать не получается.

[Alex]

Ну так в этой теме же вроде все описано, есть даже Flash demo. На каком этапе идет недопонимание?

[Dirk Diggler2]

Designer при установке не создает папку Plugins, из-за чего глючит при работе.

[Dirk Diggler2]

На каком этапе идет недопонимание?

На самом начальном. Не знаю, кому как, а я от просмотра готовых плагинов получаю на порядок больше инфы, чем от просмотра флешки. Я ее 2 раза посмотрел - не понял ничего...
ладно, продолжу копать плагины.

[Dirk Diggler2]

Вот, скажем смотрю я плагин internet. И неясно мне, откуда взяты типы TPingRec, TPingResult, функция PingHost?
Возможно, что это Pascal Script™ 3.0, но откуда мне знать?