OBS/Makros und Scripting/Developer/Listen: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
Böhrer (Diskussion | Beiträge) (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…“) |
Thiel (Diskussion | Beiträge) Keine Bearbeitungszusammenfassung |
||
(2 dazwischenliegende Versionen von 2 Benutzern werden nicht angezeigt) | |||
Zeile 1: | Zeile 1: | ||
{{Makros und Scripting}} | |||
<source lang=delphi> | |||
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; | |||
</source> |
Aktuelle Version vom 22. Juli 2022, 08: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;