erich.wanker

procedure TMainForm.UniFormCreate(Sender: TObject); var username_string:String; begin username_string :=UniApplication.Parameters.Values['user']; .. ?? is this what you search? HTH Erich

i think you mean this: uniDBGrid - properties: i use a grid with checkboxes ... multiselect .. to find the selected records: s:='-1'; with UniDBGrid1.DataSource.DataSet do for i:=0 to UniDBGrid1.SelectedRows.Count-1 do begin GotoBookmark(UniDBGrid1.SelectedRows.Items); s:=s+','+ UniDBGrid1.DataSource.DataSet.FieldByName('INR').asstring; end; unimainmodule.markierte_anteile:= 'SELECT * FROM ANTEILE WHERE INR IN ('+s+')'; hth erich

Hello .. Used Version: 1.50.0.1480 first of all a video ;-) of the ramdom Error "TUniCustomDBGrid.MoveToRow(): Unexpected Row number:" i dont find a reason or a solution ... ThanX for help or support unexpected_row_number.webm i have this problem which comes randomly ( i found no reason)... right unidbgrid = connected dataSource is "dliste" with dataset "liste" left unidbgrid = connected dataSource is "dstruktur1" with dataset "struktur1" procedure Tkunden_fakturieren.DSTRUKTUR1DataChange(Sender: TObject; Field: TField); var s:string; begin s:= STRUKTUR1.FieldByName('INR').asstring; if s='' then s:='-1'; liste.SQL.Clear; liste.SQL.Append('SELECT * FROM ANTEILE WHERE GUNST_INR = '+s+' AND MANDANT_INR = '+inttostr(unimainmodule.aktueller_mandant_nummer)+' AND FAKTURIERUNG_MONAT = '+#39+fakturierungsmonat+#39+' ORDER BY VERTRAG_NR desc '); liste.Open; the right uniDBGrid has following settings .. nothing special: object UniDBGrid1: TUniDBGrid AlignWithMargins = True Left = 11 Top = 128 Width = 458 Height = 407 Hint = '' Margins.Left = 10 Margins.Top = 10 Margins.Right = 10 Margins.Bottom = 10 ShowHint = True DataSource = Dliste Options = [dgTitles, dgRowSelect, dgCheckSelect, dgAlwaysShowSelection, dgConfirmDelete, dgMultiSelect, dgTabs, dgCancelOnExit] WebOptions.Paged = False WebOptions.PageSize = 50 Grouping.FieldName = 'BENUTZERGRUPPE' Grouping.FieldCaption = #220'bersicht' LoadMask.Enabled = False LoadMask.Message = 'Loading data...' BorderStyle = ubsNone StripeRows = False Align = alClient TabOrder = 4 Columns = < item FieldName = 'EINTRAG' Title.Caption = 'Entsch'#228'digung' Width = 150 Sortable = True end item FieldName = 'SUMME_NETTO' Title.Caption = 'Summe Netto' Width = 70 Sortable = True end item FieldName = 'VERTRAG_NAME' Title.Caption = 'Vertragsname' Width = 150 Sortable = True ImageOptions.Visible = True ImageOptions.Width = 16 ImageOptions.Height = 16 end item FieldName = 'INDEXNAME' Title.Caption = 'Index' Width = 150 Sortable = True end item FieldName = 'ZULETZT_FAKTURIERT' Title.Caption = 'Zuletzt fakturiert' Width = 100 Sortable = True end item FieldName = 'VERRECHNEN' Title.Caption = 'Verrechnen' Width = 100 Sortable = True end item FieldName = 'LEISTUNG_BEGINN' Title.Caption = 'Leistungsbeginn' Width = 100 Sortable = True end item FieldName = 'LEISTUNG_ENDE' Title.Caption = 'Leistungsende' Width = 150 Sortable = True end item FieldName = 'KATEGORIE' Title.Caption = 'Kategorie' Width = 64 Sortable = True end> end end end

PERFECT ! ThanX a lot :-)

Hi, i use 1.50.0.1480 .. i want that ALL checkboxes are checked (multiselect = true) in a unibdGrid after i make a "select * from table" actual i have this (with the posted code) but i want this:

after filtering a table - i want to select all records why does this not work? procedure Tkunden_fakturieren.DSTRUKTUR1DataChange(Sender: TObject; Field: TField); begin liste.SQL.Clear; liste.SQL.Append('SELECT * FROM ANTEILE WHERE GUNST_INR = '+STRUKTUR1.FieldByName('INR').asstring+' ORDER BY VERTRAG_NR desc '); liste.Open; UniDBGrid1.JSInterface.JSCall('getSelectionModel().selectAll', []); // i also tryed: UniSession.AddJS(UniDBGrid1.JSName + '.getSelectionModel().selectAll();'); end; .. just the focused record has a checked Checkbox Thanx for Help

PERFECT .. Thank you very much :-)

Hy... in a loop - i add Database values to a uniComboBox: while not ZQuery1.Eof do begin UniComboBox1.Items.Append(ZQuery1.FieldByName('customer_name').asstring); ZQuery1.Next; end; Can i save the "unique database Integer" to the item also ? .. i want to read the unique Integer AND the UniComboBox1.Text in procedure TuniForm.UniComboBox1Change(Sender: TObject); ThanX

how can i change the font-color of "emptyText in uniedit" to white ? thanks erich

Hi, how can i set uniDBGrid with text-overflow: ellipsis ThanX Erich

Perfect :-) ThanX

.. perfect .. thank you just another question: UniCalendarPanel in Month-view: the days have all white background .. how can i set the "today"-panel to gray? ThanX Erich

Hi .. i found out what CalendarEvent has 4 predefined CSS styles... if i create a CalendarEvent with CalendarId 1 - it uses the first css i want to change the colors of the 4 styles .. How can i do this? procedure TS_TOOL_KALENDER.termin_eintragen(wann:TDateTime;was:String;id:Integer;mein_status:integer); var E : TUniCalendarEvent; begin E:=UniCalendarPanel1.Events.Add; E.StartDate :=wann; E.EndDate :=wann; E.Title :=was; e.EventId :=id; if mein_status = 0 then e.CalendarId:=1; // open schedule if mein_status = 1 then e.CalendarId:=2; // closed schedule E.IsAllDay :=true; end;

hi following code doesnt work (i think since update from extjs 4 to extjs 6 ??) procedure TS_TOOL_KALENDER.termin_eintragen(wann:TDateTime;was:String;id:Integer); var E : TUniCalendarEvent; i : integer; begin E:=UniCalendarPanel1.Events.Add; E.CalendarId:=id; E.Title :='Termin:'+was; E.IsAllDay :=true; E.StartDate :=wann; E.EndDate :=wann; end; the code produce no error - but the calendarPanel (Month-view) shows no Events Any Idea ThanX Erich

ui_design.webm ok .. got it :-) but i think - i use a crazy way ;-) .. but it works