Jump to content
uniGUI Discussion Forums
Sign in to follow this  
Freeman35

easy add TUniEventStrings

Recommended Posts

When use inherited form, add this code to parent form and forget add css code or etc.

I couldn't find function's headers so wrote two headers in "case func_id of"

Would you wanna improve fill free, or gorget it.

uses uniGUIClientEvents, // for TUniEventStrings class don't forget
procedure UGS_ch_func(E: TUniEventStrings; Txt: string; func_id: Integer = 0);
var I: Integer;
    S, func, Head: string;
begin
  if(Txt='')or(func_id<0)then Exit;
  case func_id of
    0: begin func:='beforeInit'; Head:= 'function beforeInit(sender, config){'; end;
    1: begin func:='added'; Head:= 'function added(sender, container, pos, eOpts){'; end;
  end;
  S:= E.Values[func].TrimRight;
  I:= LastDelimiter('}', S.TrimRight);
  if I>0then Delete(S, I, 1);
  I:= Pos('{', S);
  if I>0then begin
    Head:= Copy(S, 1, I);
    Delete(S, 1, I);
    S:= S.TrimLeft;
  end;
  with TStringList.Create do begin
    Text:= Head +S.TrimRight;
    Add(Txt);
    E.Values[func]:= Text +'}';
    Free;
  end;
end;

how to use:

procedure TaFRM_.UniFormCreate(Sender: TObject);
var I: Integer;
begin
   for I:=0to Self.ComponentCount-1do begin
     if Self.Components[I]is TUniDBEdit then
       UGS_ch_func((Self.Components[I]as TUniDBEdit).ClientEvents.UniEvents, Format('sender.inputCls=%s;',[QuotedStr('EDT_css')]), 0);
     if Self.Components[I]is TUniLabel then
       UGS_ch_func((Self.Components[I]as TUniLabel).ClientEvents.ExtEvents, Format('sender.addCls(%s);',[QuotedStr('LBL_css')]), 1);
   end;
end;
procedure TFRM_Detay.UniFormCreate(Sender: TObject);
begin
  inherited;// here EDT_css added
  UGS_ch_func(EDT_Adi.ClientEvents.UniEvents, 'config.emptyText = ' +QuotedStr('Adı'));
  • Upvote 1

Share this post


Link to post
Share on other sites
Sign in to follow this  

×