Title / Description
Code procedure DreamFormEventsAfterLoad(Sender: TObject); begin if Self.GetFormParamCount < > 3 then ShowMessage('Dream Debug: Nepareizs parametru skaits!'+sLineBreak+ +Format('Gaidīts %d bet saņēmts %d',[3, Self.GetFormParamCount])) else begin datasource1.DataSet := self.GetFormParamByIndex(0); self.SC_RadioGroup1.ItemIndex := self.GetFormParamByIndex(1); self.SC_RadioGroup1.Caption := self.GetFormParamByIndex(2); end; end;
Author
Highlight as C C++ CSS Clojure Delphi ERb Groovy (beta) HAML HTML JSON Java JavaScript PHP Plain text Python Ruby SQL XML YAML diff code
1.1.2
1.1.2