OBS/Makros und Scripting/Developer/Listen: Unterschied zwischen den Versionen

Aus OBS Wiki
Wechseln zu: Navigation, Suche
(Die Seite wurde neu angelegt: „Hello, I'm Ernestina, a 23 year old from Norre Asmindrup, Denmark.<br>My hobbies include (but are not limited to) Audiophilia, Gaming and watching Psych.<br><b…“)
 
(Die Seite wurde neu angelegt: „<pre> type TEventHandler = class procedure EventF4Handler(Sender: TObject); procedure ShowStable(Sender: TObject); procedure Inser…“)
 
Zeile 1: Zeile 1:
Hello, I'm Ernestina, a 23 year old from Norre Asmindrup, Denmark.<br>My hobbies include (but are not limited to) Audiophilia, Gaming and watching Psych.<br><br>Here is my homepage: [http://litecoinforum.org/off-topic/titanium-backup-pro-key-apk/msg21983/ msg21983]
+
<pre>
 +
 
 +
type
 +
    TEventHandler = class
 +
        procedure EventF4Handler(Sender: TObject);
 +
        procedure ShowStable(Sender: TObject);
 +
        procedure InsertClick(Sender: TObject);
 +
        procedure ReturnClick(Sender: TObject);
 +
    end;
 +
 
 +
var oEventHandler : TEventHandler;
 +
    oRich : TTextRichEdit;
 +
 
 +
procedure Idx2();
 +
begin
 +
 
 +
    With FrmListe do begin
 +
 
 +
        ListNew();
 +
 
 +
        ListOrder        := 'ut_nr';
 +
        aTabel[0]        := 'user_tische';
 +
 
 +
        InitColumn('Name'  , 'ut_nr' , 20, nil);
 +
        AddColumn ('Nr'    , 'ut_name' , 5);
 +
        AddColumn ('SB'    , 'ut_sachbearbeiter' , 5);
 +
 
 +
        ListShow('5288350197', FrmListe.Query, FrmListe.DBGrid);
 +
 
 +
    end;
 +
 
 +
end;
 +
 
 +
procedure InitScripter();
 +
begin
 +
 
 +
    oEventHandler := TEventHandler.Create();
 +
    frmListe.OnInsertClick := oEventHandler.InsertClick;
 +
    frmListe.OnReturnClick := oEventHandler.ReturnClick;
 +
    frmListe.OnShowStable := oEventHandler.ShowStable;
 +
 
 +
    oRich := TTextRichEdit(frmListe.FindComponent('riced1'));
 +
    frmListe.PanShow.Visible := true;
 +
 
 +
    frmListe.InitButtons(nil);
 +
    frmListe.EnableButtons(nil);
 +
    frmListe.PaintButtons(nil);
 +
 
 +
    Idx2();
 +
 
 +
end;
 +
 
 +
procedure TEventHandler.InsertClick(Sender: TObject);
 +
begin
 +
    StartScripterEdit(oDB, 'UE_Tische', true, frmListe);
 +
end;
 +
 
 +
procedure TEventHandler.ReturnClick(Sender: TObject);
 +
begin
 +
    StartScripterEdit(oDB, 'UE_Tische', false, frmListe);
 +
end;
 +
 
 +
procedure TEventHandler.ShowStable(Sender: TObject);
 +
begin
 +
    oRich.Caption := frmListe.Query.A2C('ut_beschreibung');
 +
end;
 +
 
 +
procedure TEventhandler.EventF4Handler(Sender: TObject);
 +
begin
 +
    //Meldung('Hi');
 +
end;
 +
 
 +
</pre>

Aktuelle Version vom 13. September 2019, 11:01 Uhr


type
    TEventHandler = class
        procedure EventF4Handler(Sender: TObject);
        procedure ShowStable(Sender: TObject);
        procedure InsertClick(Sender: TObject);
        procedure ReturnClick(Sender: TObject);
    end;

var oEventHandler : TEventHandler;
    oRich : TTextRichEdit;

procedure Idx2();
begin

    With FrmListe do begin

        ListNew();

        ListOrder         := 'ut_nr';
        aTabel[0]         := 'user_tische';

        InitColumn('Name'  , 'ut_nr' , 20, nil);
        AddColumn ('Nr'    , 'ut_name' , 5);
        AddColumn ('SB'    , 'ut_sachbearbeiter' , 5);

        ListShow('5288350197', FrmListe.Query, FrmListe.DBGrid);

    end;

end;

procedure InitScripter();
begin

    oEventHandler := TEventHandler.Create();
    frmListe.OnInsertClick := oEventHandler.InsertClick;
    frmListe.OnReturnClick := oEventHandler.ReturnClick;
    frmListe.OnShowStable := oEventHandler.ShowStable;

    oRich := TTextRichEdit(frmListe.FindComponent('riced1'));
    frmListe.PanShow.Visible := true;

    frmListe.InitButtons(nil);
    frmListe.EnableButtons(nil);
    frmListe.PaintButtons(nil);

    Idx2();

end;

procedure TEventHandler.InsertClick(Sender: TObject);
begin
    StartScripterEdit(oDB, 'UE_Tische', true, frmListe);
end;

procedure TEventHandler.ReturnClick(Sender: TObject);
begin
    StartScripterEdit(oDB, 'UE_Tische', false, frmListe);
end;

procedure TEventHandler.ShowStable(Sender: TObject);
begin
    oRich.Caption := frmListe.Query.A2C('ut_beschreibung');
end;

procedure TEventhandler.EventF4Handler(Sender: TObject);
begin
    //Meldung('Hi');
end;