erich.wanker

Hi Gerhard, thanX for helping ... i changed uniGUI18, uIndy18, uniTools18; compiling does work without problems installing doesn´t work... and gives me error: any ideas? ThanX

Hello, i try to install the TUniGMap component from "Lema" on DelphiXE4 1. NEW / PACKAGE 2. PAGAGE / add Unit -> UniGMap.pas 3. Compile Unit -> now i get Error : [dcc32 Fataler Fehler] UniGMap.pas(156): F1026 Datei nicht gefunden: 'C:\Users\erich\Documents\RAD Studio\Projekte\Controls.dcu' also the same Error with: Graphics.dcu ...ExtCtrls.dcu ... and so on Any Ideas whats going wrong by me???? ThanX

OK .. sorry ... found it in "DEMO" var E : TUniCalendarEvent; begin UniCalendarPanel1.StartDate:=now; E:=UniCalendarPanel1.Events.Add; E.CalendarId:=1; E.Title:='Meeting'; E.StartDate:=Date; E.EndDate:=Date+0.1; end;

hello, how can i focuse cells of unicalendarpanel1 / month-view and how can i write in a cell of unicalendarpanel1/month-view ? i search somthing like: myStartDate:TDateTime; myEndDate:TDateTime; unibutton1.onclick begin unicalendarpanel1.selection_start = mystartDate unicalendarpanel1.selection_end = myEndDate unicalendarpanel1.select_the_thing ... and the cells should change the color and how can i write a text in a cell of unicalendarpanel1 / month-view? given is the date and the text ... i search somthing like: unicalendarpanel1.cellperdate('01/01/2015').text := ' 3 activities";

i use Apache Webserver 2.4

Hello, i try to secure a unigui.dll on a win2003 R2 Server .. a ReverseProxy is running between End-User and Webserver.. What must i allow in Firewall-profile to run the UniGui? (i found Port 8077 in UniServerModule .. ???..) Thanks for Informations

How can i show a ScreenMask since Frame is loaded ? For loading a Frame - i use: procedure InsertFrame1(Name: string); // NAVIGATION begin if FFrameName1 <> '' then FreeAndNil(FCurrentFrame1); FFrameName1:=Name; FCurrentFrame1:=TUniFrameClass(FindClass(Name)).Create(self); FCurrentFrame1.Align:=alClient; FCurrentFrame1.Parent:=framepanel; end; procedure UniContainerPanel14Click(Sender: TObject); begin InsertFrame1('TV_FRAME_VERTRAG_UEBERSICHT'); end; if i set Screenmask-property of UniContainerPanel14 to "true" .. the mask is not shown ThanX for help Erich

Hello Farshad, great :-) .... i am very thankfully :-) Thank you very much for your work, your help and your commitment. Nice greetings and all the best Erich

Hello, i use a lot of UniContainerPanels in my project .. (as areas, as buttons, as moveable sliders and so on) to reduce the traffic and to speed up the application i have a question: a UniContainerPanel should be a "simple" DIV ... i made the color, borders and hovereffect with css (in this example the css-class is "navigationsgrundflaeche" ... uniGUI makes a UniContainerPanel in 3 steps: 1.) <div class="x-container x-abs-layout-item navigationsgrundflaeche x-container-default x-abs-layout-ct" style="left: 0px; top: 71px; width: 190px; height: 35px;" id="O5AB_id"> 2.) <span id="O5AB_id-outerCt" style="display: table; width: 100%; table-layout: fixed; height: 100%;" role="presentation"> 3.) <div id="O5AB_id-innerCt" style="display:table-cell;height:100%;vertical-align:top;" class="" role="presentation"> Step 1 is clear ... BUT for what is Step2 and 3 ? is it possible to delete step2 and 3 ? what will i lose if step2 and 3 are not existing? (does "onClick, ondoubleclick ore something else not work?) i think, a "smaler" UniContainerPanel will reduce the treffic about 30% .... and will speed up the application dramaticaly ;-) A small example: For a uniFrame with 2 UniDBGrid´s and some functions i use: ThanX and best regards Erich unit frame_vertrag; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, StdCtrls, Controls, Forms, Dialogs, uniGUITypes, uniGUIAbstractClasses, uniGUIClasses, uniGUIFrame, uniLabel, Vcl.Imaging.pngimage, uniImage, uniGUIBaseClasses, uniPanel, uniHTMLFrame, uniScrollBox, uniBasicGrid, uniDBGrid, uniEdit, uniImageList, Vcl.Menus, uniMainMenu, uniDBText, Data.DB, ZAbstractRODataset, ZAbstractDataset, ZDataset, uniDBEdit, uniTimer, uniListBox, uniMultiItem; type TV_FRAME_VERTRAG = class(TUniFrame) UniPanel1: TUniPanel; UniContainerPanel3: TUniContainerPanel; UniContainerPanel4: TUniContainerPanel; UniContainerPanel20: TUniContainerPanel; UniImage4: TUniImage; UniDBGrid3: TUniDBGrid; UniContainerPanel33: TUniContainerPanel; UniContainerPanel34: TUniContainerPanel; UniImage10: TUniImage; suchpanel: TUniContainerPanel; UniEdit1: TUniEdit; filterpanel: TUniContainerPanel; UniContainerPanel24: TUniContainerPanel; UniContainerPanel42: TUniContainerPanel; UniLabel23: TUniLabel; UniContainerPanel62: TUniContainerPanel; UniImage6: TUniImage; UniContainerPanel63: TUniContainerPanel; UniLabel24: TUniLabel; UniContainerPanel66: TUniContainerPanel; UniImage13: TUniImage; UniContainerPanel67: TUniContainerPanel; UniContainerPanel68: TUniContainerPanel; UniContainerPanel69: TUniContainerPanel; UniContainerPanel70: TUniContainerPanel; UniContainerPanel85: TUniContainerPanel; UniContainerPanel86: TUniContainerPanel; UniImage20: TUniImage; UniContainerPanel87: TUniContainerPanel; UniContainerPanel88: TUniContainerPanel; UniImage21: TUniImage; UniContainerPanel96: TUniContainerPanel; UniContainerPanel97: TUniContainerPanel; UniImage23: TUniImage; UniContainerPanel98: TUniContainerPanel; UniContainerPanel99: TUniContainerPanel; UniImage24: TUniImage; UniContainerPanel1: TUniContainerPanel; UniContainerPanel17: TUniContainerPanel; UniImage8: TUniImage; UniHTMLFrame1: TUniHTMLFrame; UniContainerPanel47: TUniContainerPanel; UniLabel5: TUniLabel; UniContainerPanel49: TUniContainerPanel; UniLabel6: TUniLabel; UniLabel8: TUniLabel; STRUKTUR: TZQuery; DSTRUKTUR: TDataSource; OVERVIEW: TZQuery; DOVERVIEW: TDataSource; UniPanel3: TUniPanel; UniDBGrid2: TUniDBGrid; UniContainerPanel82: TUniContainerPanel; headline3: TUniLabel; filtershow_2: TUniContainerPanel; UniLabel13: TUniLabel; filterlabel_2: TUniLabel; UniContainerPanel38: TUniContainerPanel; UniImage9: TUniImage; UniContainerPanel7: TUniContainerPanel; UniContainerPanel8: TUniContainerPanel; UniContainerPanel9: TUniContainerPanel; UniImage1: TUniImage; UniContainerPanel10: TUniContainerPanel; UniContainerPanel11: TUniContainerPanel; UniImage2: TUniImage; UniContainerPanel12: TUniContainerPanel; UniContainerPanel13: TUniContainerPanel; UniImage3: TUniImage; UniContainerPanel31: TUniContainerPanel; UniContainerPanel32: TUniContainerPanel; UniImage7: TUniImage; UniContainerPanel44: TUniContainerPanel; UniContainerPanel46: TUniContainerPanel; UniImage11: TUniImage; UniContainerPanel50: TUniContainerPanel; UniContainerPanel83: TUniContainerPanel; headline2: TUniLabel; UniContainerPanel2: TUniContainerPanel; UniLabel1: TUniLabel; UniLabel18: TUniLabel; UniLabel19: TUniLabel; UniLabel20: TUniLabel; UniDBText1: TUniDBText; UniDBText2: TUniDBText; UniDBText3: TUniDBText; UniDBText4: TUniDBText; filterpanel_2: TUniContainerPanel; UniContainerPanel73: TUniContainerPanel; UniContainerPanel76: TUniContainerPanel; UniLabel27: TUniLabel; UniContainerPanel77: TUniContainerPanel; UniImage17: TUniImage; UniContainerPanel78: TUniContainerPanel; UniLabel28: TUniLabel; UniContainerPanel79: TUniContainerPanel; UniImage18: TUniImage; UniContainerPanel80: TUniContainerPanel; UniContainerPanel81: TUniContainerPanel; UniContainerPanel52: TUniContainerPanel; UniLabel2: TUniLabel; inhaltpanel: TUniContainerPanel; UniContainerPanel22: TUniContainerPanel; UniContainerPanel56: TUniContainerPanel; UniLabel16: TUniLabel; UniContainerPanel57: TUniContainerPanel; UniImage15: TUniImage; UniContainerPanel58: TUniContainerPanel; UniLabel21: TUniLabel; UniContainerPanel59: TUniContainerPanel; UniImage16: TUniImage; UniContainerPanel60: TUniContainerPanel; UniContainerPanel71: TUniContainerPanel; UniContainerPanel53: TUniContainerPanel; UniLabel3: TUniLabel; UniContainerPanel15: TUniContainerPanel; UniContainerPanel23: TUniContainerPanel; UniImage25: TUniImage; UniContainerPanel28: TUniContainerPanel; UniContainerPanel30: TUniContainerPanel; headline1: TUniLabel; suchshow_1: TUniContainerPanel; UniLabel4: TUniLabel; suchlabel_1: TUniLabel; UniContainerPanel19: TUniContainerPanel; UniImage12: TUniImage; filtershow_1: TUniContainerPanel; UniLabel12: TUniLabel; filterlabel_1: TUniLabel; UniContainerPanel84: TUniContainerPanel; UniImage19: TUniImage; UniContainerPanel36: TUniContainerPanel; UniContainerPanel43: TUniContainerPanel; UniContainerPanel89: TUniContainerPanel; UniImage26: TUniImage; TEMP: TZQuery; INHALT: TZQuery; DINHALT: TDataSource; ordner: TUniContainerPanel; UniEdit2: TUniEdit; UniContainerPanel94: TUniContainerPanel; UniContainerPanel103: TUniContainerPanel; UniLabel7: TUniLabel; UniContainerPanel104: TUniContainerPanel; UniContainerPanel105: TUniContainerPanel; UniLabel9: TUniLabel; UniContainerPanel106: TUniContainerPanel; UniImage27: TUniImage; UniContainerPanel108: TUniContainerPanel; UniContainerPanel109: TUniContainerPanel; UniContainerPanel110: TUniContainerPanel; UniLabel10: TUniLabel; UniLabel11: TUniLabel; UniImage22: TUniImage; UniListBox1: TUniListBox; UniLabel14: TUniLabel; UniContainerPanel61: TUniContainerPanel; UniContainerPanel26: TUniContainerPanel; UniLabel25: TUniLabel; UniContainerPanel27: TUniContainerPanel; UniImage5: TUniImage; UniContainerPanel45: TUniContainerPanel; UniLabel33: TUniLabel; UniContainerPanel51: TUniContainerPanel; UniImage14: TUniImage; UniListBox2: TUniListBox; UniListBox3: TUniListBox; procedure UniFrameCreate(Sender: TObject); procedure UniContainerPanel2Click(Sender: TObject); procedure UniContainerPanel8Click(Sender: TObject); procedure UniContainerPanel31Click(Sender: TObject); procedure UniDBGrid2ColumnSort(Column: TUniDBGridColumn; Direction: Boolean); procedure UniContainerPanel50Click(Sender: TObject); procedure UniContainerPanel12Click(Sender: TObject); procedure UniContainerPanel33Click(Sender: TObject); procedure UniContainerPanel26Click(Sender: TObject); procedure UniContainerPanel45Click(Sender: TObject); procedure UniContainerPanel39Click(Sender: TObject); procedure UniContainerPanel4Click(Sender: TObject); procedure UniContainerPanel42Click(Sender: TObject); procedure UniContainerPanel56Click(Sender: TObject); procedure UniContainerPanel58Click(Sender: TObject); procedure UniContainerPanel76Click(Sender: TObject); procedure UniContainerPanel78Click(Sender: TObject); procedure UniDBGrid2FieldImageURL(const Column: TUniDBGridColumn; const AField: TField; var OutImageURL: string); procedure UniDBGrid3FieldImageURL(const Column: TUniDBGridColumn; const AField: TField; var OutImageURL: string); procedure UniContainerPanel63Click(Sender: TObject); procedure UniContainerPanel3MouseLeave(Sender: TObject); procedure UniImage10MouseEnter(Sender: TObject); procedure UniImage22MouseEnter(Sender: TObject); procedure UniImage7MouseEnter(Sender: TObject); procedure UniContainerPanel7MouseLeave(Sender: TObject); procedure UniContainerPanel96Click(Sender: TObject); procedure UniContainerPanel1Click(Sender: TObject); procedure UniContainerPanel87Click(Sender: TObject); procedure UniContainerPanel85Click(Sender: TObject); procedure UniDBGrid3DblClick(Sender: TObject); procedure DSTRUKTURDataChange(Sender: TObject; Field: TField); procedure UniEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure suchshow_1Click(Sender: TObject); procedure filtershow_1Click(Sender: TObject); procedure filtershow_2Click(Sender: TObject); procedure UniContainerPanel43Click(Sender: TObject); procedure UniContainerPanel15Click(Sender: TObject); procedure UniContainerPanel10Click(Sender: TObject); procedure UniDBGrid2DblClick(Sender: TObject); procedure UniEdit2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure UniContainerPanel103Click(Sender: TObject); procedure UniContainerPanel105Click(Sender: TObject); procedure UniContainerPanel36MouseLeave(Sender: TObject); private .....

push ;-)

hello, current uniGui i use is 0.99.0.1156 .. now i downloaded 0.99.0.1169 .. where can i find changeLog ? ThanX for information

Basic Infos: i found a article about "cache-manifest" and store JS in browser App-cache... -> http://diveintohtml5.info/offline.html Question: A user who uses a UniGui-App could save the css and js-files in the browser-App-cache .. so the start of a UniGui App could be faster ? .. am i right with my thinking and is it a performance-winning step? Thanx for answers Detailed infos: Is it possible to create a manifest for uniGui like: and a .htaccess-file with and the unigui html header:

ThanX Farshad ..all right ... works.. :-) But a small additional question: UniTreeView1.FullExpand; -> doesn´t work ? AND How can i save a unique number to a child .. i am searchin something like: current_node:=UniTreeView1.Items.AddChild(mynode, 'Object1'); current_node.ImageIndex:=-1; current_node.tag := unique_db_recordnumber; also for reading the value: procedure TUniFrame7.UniTreeView1Click(Sender: TObject); begin SelectedNode:=UniTreeView1.Selected; if (SelectedNode <> nil) AND (SelectedNode.Level>0) then showmessage(SelectedNode.Text +' ... '+ SelectedNode.Parent.Text + 'RecordNr.:'+inttostr(SelectedNode.tag) ); end;

Hello in a Treeview - i have 3 Nodes with childs .. the Node-values are from 3 dbTables (node1,node2 and node3 are "captions" of the Table-names) the child-"objects" are db-records i allways get errors if i click a node.. How can i open the right table and record if a user clicks on a object? .. ( i have no TAG-Value to store the unique Integer of a record to a child objekt - just the string value ?) how can i update a Node - if a new record is stored - or should i clear all items and write everything new? ThanX for informations uses ..... uniTreeView, vcl.ComCtrls; private SelectedNode : TUniTreeNode; create Nodes:var mynode :TuniTreeNode; begin mynode := TUniTreeNode.Create; UniTreeView1.Items.Clear; mynode := UniTreeView1.Items.AddNode(nil,nil, 'Mainnode1', Pointer(0), naAddFirst); UniTreeView1.Items.AddChild(mynode, 'Object1'); UniTreeView1.Items.AddChild(mynode, 'Object2'); UniTreeView1.Items.AddChild(mynode, 'Object3'); mynode := UniTreeView1.Items.AddNode(nil,nil, 'Mainnode2', Pointer(0), naAddFirst); UniTreeView1.Items.AddChild(mynode, 'Object1'); UniTreeView1.Items.AddChild(mynode, 'Object2'); UniTreeView1.Items.AddChild(mynode, 'Object3'); mynode := UniTreeView1.Items.AddNode(nil,nil, 'Mainnode3', Pointer(0), naAddFirst); UniTreeView1.Items.AddChild(mynode, 'Object1'); UniTreeView1.Items.AddChild(mynode, 'Object2'); UniTreeView1.Items.AddChild(mynode, 'Object3'); end; procedure TUniFrame7.UniTreeView1Change(Sender: TObject; Node: TUniTreeNode); begin SelectedNode:=Node; end; procedure TUniFrame7.UniTreeView1Click(Sender: TObject); begin showmessage(SelectedNode.Text +' ... '+ SelectedNode.Parent.Text); ---> ERROR end;

Hello, a short question: tablefield: "AKTIV" CHAR(10) CHARACTER SET ISO8859_1 COLLATE DE_DE, possible Values: 'Yes' or 'No' the images are in subfiolder /files/images..." .. how can i display "activ.png" if value is "yes" / and "inactiv.png" if value is "no" in uniDBGrid/column "AKTIV"? Thanks

Hello, i opend the mobile-demos Carousel ,Carousel-2, ..FishFact (Without DB Controls) but i get allways: An Exception has occured in application: Fatal Error: USession=nil Restart application ... when i start the isapi-dll on apache/win8,1/delphixe4 Any ideas what could be wrong? (all "normal" unigui-isapi-dll works fine ... just the "touch" demos don´t work)

To prevent user closing Unigui-isapi unintentionally... Would be nice if "BrowserClose" procedure has a "AskForClose - Boolean" procedure TUniMainModule.UniGUIMainModuleBrowserClose(AskForClose:Boolean; Sender: TObject); begin ... if x:=1 then AskForClose = True; //-> Browser asks User if he wants to leave the UniGui Isapiwith standard browser-dialog ... if x:=0 then AskForClose = False; //-> closes UniGui Isapi end; The Standard-Browser-Dialog of Chrome is:

Hello, i want to run the "function bunload" if variable "closechecker" is 1 i have in Mainform/Script: function bunload() { if (closechecker = 1) {dontleave="MountainOffice"; return dontleave;} }; onbeforeunload = bunload; on startup i set in Mainform the closechecker on 1 ... procedure TMainForm.UniFormCreate(Sender: TObject); begin UniSession.AddJS('var closechecker = 1;');... if user clicks a "Mail-Button" .. then i set closechecker = 0 ... start creating mail .. and set closechecker = 1 procedure TMainForm.Something to Click(Sender: TObject); begin UniSession.AddJS('closechecker = 0;'); UniSession.AddJS('window.location.href="mailto:wanker@domain.com"'); UniSession.AddJS('closechecker = 1;');... but the "function bunload" is allways "active" ... can someone finde my mistake ? thanX erich

i added in uni-xtheme-gray.css: .x-container { overflow-x:hidden !important; } works for me ;-) .. seems that no other control is involved for this setting

Hello DelphiDeveloper, ThanX for suggestions .. but your tip also didn´t work anymore ... It seems that uniScrollbox has a property less - since new update .. if i use UniSession.AddJS(uniscrollbox1.JSName + '.setBodyStyle("overflow-X:hidden !important");'); i got error: "undefined is not a function"

I use a Javascript in MainForm/Script: function bunload(){ dontleave="MountainOffice"; return dontleave; }; function ounload(){ ajaxRequest(MainForm.window, 'SessionClosed', [] ); }; onbeforeunload = bunload; onunload=ounload; to show user a message if he closes the App... worked fine .. but after updating to Version 0.98.0.1116 ... the message in Chrome-Browser is ENGLISH .. my OS Language is German, my browser language is germen and the message was allways german .. IE shows actualy a german message - just Chrome shows a english language? i dont know if its because i updated to 0.98.0.1116 or Chrome-browser makes a background-update ?? I use Chrome Browser Version 40.0.2214.28 beta-m The header of the UniGui-Site is: <!DOCTYPE html public> <html> <head> <title>Betriebsleitersoftware</title> <meta http-equiv="X-UA-Compatible" content="IE=edge"> <meta http-equiv="content-type" content="charset=utf-8" /> <meta http-equiv="cache-control" content="no-cache" /> <meta http-equiv="pragma" content="no-cache" /> <META http-equiv="Content-Language" content="de"> <META http-equiv="Language" content="de"> <META http-equiv="ROBOTS" content="NONE"> Has someone a idea whats wrong? - Chrome thinks my site is english ?...

Hello.. is where a better way ? .. i use variant 1 for opening the local mail-program: procedure TMainForm.something to Click(Sender: TObject); begin UniSession.AddJS('myWin=window.open("mailto:wanker@domain.com");setTimeout(function(){myWin.close()}, 1000);'); end; .. but the browser thinks - this is a popup - and normaly blocks it ... if i use variant 2: UniSession.AddJS('window.location="mailto:wanker@domain.com"'); .. then my script in Mainform/script will be activate: function bunload(){ dontleave="MountainOffice"; return dontleave; }; function ounload(){ ajaxRequest(MainForm.window, 'SessionClosed', [] ); }; onbeforeunload = bunload; onunload=ounload; .. and askes " will you stay on this site or will you leave it" is where a other way to start local mail-programm? thanX for suggestions :-) Erich

i want to hide the vertical scrollbar of UniScrollbox ...

ups .. sorry ... ok .. found it ... will take a look at it :-) ThanX

Hello Farshad, the previous version was "FMSoft_uniGUI_Plus_Pro_0.98.0.1109_Beta.exe"