erich.wanker

ok ... i made a own solution .. using HTML in uniDBGrid.. injecting HTML in procedure TVersatile_main_handle.dbuntenFieldImageURL( const Column: TUniDBGridColumn; const AField: TField; var OutImageURL: string); (the used blue images are not transparent .. just fast placeholders..) uniDBGrid.webm

if someone needs this .. just for playing around... :-) Memo1.text := StringReplace(Memo1.text, 'TLMDSimpleLabel', 'TUniLabel', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TLMDGroupBox','TUniGroupBox', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TAdvPageControl', 'TUniPageControl', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TAdvTabSheet', 'TUniTabSheet', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TLMDFormDisplay', 'TuniPanel', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TLMDCheckBox', 'TUniCheckBox', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TLDMComboBox', 'TUniComboBox', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TLMDSimplePanel', 'TuniPanel', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TLMDFill', 'TuniPanel', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TLMDStarter', 'TuniPanel', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TLMDSysInfo', 'TuniLabel', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TXPManifest', 'TuniPanel', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TLMDGroupBox', 'TUniGroupBox', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TOpenDialog', 'TuniPanel', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TOpenPictureDialog', 'TuniPanel', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TMenuItem', 'TUniMenuItems', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TSaveDialog', 'TuniPanel', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TZipMaste', 'TuniPanel', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TJvComputerInfoEx', 'TuniPanel', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TwwDBGrid', 'TuniDBGrid', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TWebBrowser', 'TUniURLFrame', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TJvBrowseForFolderDialog', 'TuniPanel', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TLMDBitmapList', 'TUniImageList', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TLMDSpeedButton', 'TUniBitBtn', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TLMDLabel', 'TuniLabel', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TJVLabel', 'TuniLabel', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TLMDDirDlg', '{manual_work}', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TPaintBox', 'TUniCanvas', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'class(TForm)', 'class(TUniForm)', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'class(TFrame)', 'class(TUniFrame)', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TBitBtn', 'TUniBitBtn', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TButton', 'TUniButton', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TCalendar', 'TUniCalendar', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TCalendarDialog', 'TUniCalendarDialog', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TCalendarPanel', 'TUniCalendarPanel', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TCanvas', 'TUniCanvas', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TChart', 'TUniChart', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TCheckBox', 'TUniCheckBox', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TComboBox', 'TUniComboBox', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TColorButton', 'TUniColorButton', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TColorPalette', 'TUniColorPalette', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TContainerPanel', 'TUniContainerPanel', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TDateTimePicker', 'TUniDateTimePicker', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TDBCheckBox', 'TUniDBCheckBox', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TDBComboBox', 'TUniDBComboBox', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TDBDateTimePicker', 'TUniDBDateTimePicker', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TDBEdit', 'TUniDBEdit', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TDBFormattedNumberEdit', 'TUniDBFormattedNumberEdit', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TDBGrid', 'TUniDBGrid', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TDBHTMLMemo', 'TUniDBHTMLMemo', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TDBImage', 'TUniDBImage', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TDBListBox', 'TUniDBListBox', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TDBLookupComboBox', 'TUniDBLookupComboBox', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TDBLookupListBox', 'TUniDBLookupListBox', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TDBMemo', 'TUniDBMemo', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TDBNavigator', 'TUniDBNavigator', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TDBNumberEdit', 'TUniDBNumberEdit', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TDBRadioGroup', 'TUniDBRadioGroup', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TDBText', 'TUniDBText', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TEdit', 'TUniEdit', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TFieldSet', 'TUniFieldSet', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TFileUpload', 'TUniFileUpload', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TFormattedNumberEdit', 'TUniFormattedNumberEdit', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TGenericControl', 'TUniGenericControl', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TGroupBox', 'TUniGroupBox', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'THiddenPanel', 'TUniHiddenPanel', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'THTMLFrame', 'TUniHTMLFrame', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'THTMLMemo', 'TUniHTMLMemo', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TImage', 'TUniImage', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TImageList', 'TUniImageList', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TLabel', 'TUniLabel', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TListBox', 'TUniListBox', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TMemo', 'TUniMemo', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TMenuButton', 'TUniMenuButton', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TNativeImageList', 'TUNINativeImageList', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TMainMenu', 'TUniMainMenu', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TNumberEdit', 'TUniNumberEdit', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TPageControl', 'TUniPageControl', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TPanel', 'TUniPanel', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TPopupMenu', 'TUniPopupMenu', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TProgressBar', 'TUniProgressBar', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TRadioButton', 'TUniRadioButton', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TRadioGroup', 'TUniRadioGroup', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TScreenMask', 'TUniScreenMask', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TScrollBox', 'TUniScrollBox', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TSimplePanel', 'TUniSimplePanel', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TSpeedButton', 'TUniSpeedButton', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TSpinEdit', 'TUniSpinEdit', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TSplitter', 'TUniSplitter', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TStatusBar', 'TUniStatusBar', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TStringGrid', 'TUniStringGrid', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TSyntaxEdit', 'TUniSyntaxEdit', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TTabControl', 'TUniTabControl', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TThreadTimer', 'TUniThreadTimer', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TTimer', 'TUniTimer', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TToolBar', 'TUniToolBar', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TTrackBar', 'TUniTrackBar', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TTreeView', 'TUniTreeView', [rfReplaceAll, rfIgnoreCase]); Memo1.text := StringReplace(Memo1.text, 'TURLFrame', 'TUniURLFrame', [rfReplaceAll, rfIgnoreCase]);

1. how can i set the color of Group-box-header-text ... if record is selected? (in my case "white") 2. how can i react on a "click" in the header-box? 3. The logic of "group box" is for me not correct (why is the 1st record in the Group-Header?) 4. The CLICK in the 1st Group-Box header Row (containing the 1st Record) does NOT work if you dont click prezisely in the bottom Area group_click.webm

Hy .. ANY IDEA HOW TO REALIZE FOLLOWING THING ?? thanX Erich I should make a "beautifull schedule"-Grid like this .. ;-) Base Tabels for this View should be: Object (Name, Number..) Schedules (Number of linked Object, Name of Schedule, Beginn-date, end-date,....) funktions Sortable Objekt column (asc desc) Schedules with incement startdate (asc desc) Flex-view (screen-width and heigh NOT fix) With Paged Grid (sometimes recordcount > 500) clicking on a blue timeline-panel should open the schedule with his informations...

hi Freeman35 .. ThanX for your help !! Just a litte explaning what and why the Error-Finding it´s so horrible ;-) My problem is - the original sourcecode is a Delphi 7 Application - 10 years old - 160 Forms - and a lot of 3rd part components (LMDTools , wollToWoll Grid..) i translatet all components with a small Programm ... :-) !!!!! (stringreplace .. search "TLabel" -> make TuniLabe ... and so on) the project works with 60% .. BUT sometimes (report printing stuff..) i become errors - what i dont find ... I will try to get the EurekaLog7 -Thing to work :-) Nice greetings Erich

Hi Freeman.. thanX for your help .. i use allso unisession.log . but this is not enouth ;-) the Log says there is a problem - but i dont find the reason or the position in code ... i think - EurekaLog7 is the right tool - but i can´t get it to work :-( ThanX erich

push :-) I use Delphi XE4 / Win10 / Apache Webserver 2.4 My Steps i installed: EurekaLog7-Trial.exe / Version 7.7.8.24 RC 24 i imported C:\Program Files\FMSoft\Framework\uniGUI\Utils\EurekaLog\uniGUI.eof i set path for Log file in Delphi - Projects / EurekaLOG / Options i set in Delphi - Project / Options: Delphi-Compiler /Compiler / use Debug-dcus (for all configurations) i put a EurekaLogEvents1 on my MainForm ( must i write something in the Events??) if i compile my project - and copy the dll in my "htdoc" folder of apache and start the apache service - my app starts ... but i become no Loggfile ore something else from EurekaLog.. If i compile my project - i become successful mesage: [EurekaLog] Versatile.dproj(1): EurekaLog post-processing (7.7.8.24 RC 24)... Versatile.dproj(1): Project compilation was successful. Versatile.dproj(1): Post-processing executable Versatile.dproj(1): Executing: "C:\Program Files\Neos Eureka S.r.l\EurekaLog 7\Packages\Studio18\ecc32speed.exe" "--el_alter_exe=I:\Win7_mountainoffice\englisch\_Versatile_test_1\Versatile.dproj;I:\Win7_mountainoffice\englisch\_Versatile_test_1\Versatile.dll" --el_gui_error=1315758 --el_nologo --el_mode=Delphi "--el_profile=Release" --el_starttime=43556.4163335995 "--el_outputfilename=I:\Win7_mountainoffice\englisch\_Versatile_test_1\Versatile.dll" --el_outputfilehandle=5452 --el_nostats --el_UnicodeOutput Versatile.dproj(1): Loading EurekaLog options... Versatile.dproj(1): EurekaLog postprocessor start... Versatile.dproj(1): EurekaLog's options were added Versatile.dproj(1): EurekaLog's data was added Versatile.dproj(1): EurekaLog postprocessor end Versatile.dproj(1): Post-processing was successful. Versatile.dproj(1): Deleting .map/.tds/.drc files... Versatile.dproj(1): EurekaLog's project post-processing completed. I have following SETUP file for EurekaLog [Exception Log] EurekaLog Version=8000 _CustomProfile="" Activate=1 atDLL=1 atISAPI=1 boSaveCompressedCopyInCaseOfError=0 boUseMainModuleOptions=0 CompatibilityMode=0 csoCaptureDelphiExceptions=1 DefaultThreadState=1 DeleteMapAfterCompile=1 Dialog Class="TMessageBoxDetailedDialog" dpDLLExports=0 Encrypt Password="" HTMLLayout="%U003Chtml%U003E\r\n %U003Chead%U003E\r\n %U003C%%content_type%%%U003E\r\n %U003Cmeta http-equiv=\qcontent-style-type\q content=\qtext/css\q /%U003E\r\n %U003Ctitle%U003E%U003C%%TITLE%%%U003E%U003C/title%U003E\r\n %U003C/head%U003E\r\n %U003Cbody%U003E\r\n %U003Ch1%U003EInternal Application Error%U003C/h1%U003E\r\n %U003Cp%U003E%U003C%%EXCEPTION_MESSAGE%%%U003E%U003C/p%U003E\r\n %U003Cp%U003E%U003Chr width=\q100%%\q%U003E\r\n %U003Cp%U003EThe exception details were saved to log file. Contact site administrator.%U003C/p%U003E\r\n %U003C/body%U003E\r\n%U003C/html%U003E" InjectInfo=1 InjectOptions=1 loAddComputerNameInLogFileName=1 loAddDateInLogFileName=1 loCatchLeaks=0 loCatchLeaksExceptions=0 loEmptyFreedMemory=1 Mandatory e-mail=0 Output Path="C:\\VersatileServer\\htdocs\\Bugging\\" ProjectID="{C4AD2BEA-0074-4DE3-AB95-7F038AD38C26}" SlowAndSafe=1 sndAddComputerNameInFileName=0 sndBugZillaAppendText=0 sndBugZillaLogin="your-account" sndBugZillaUseEMail=0 sndFogBugzAppendText=0 sndFogBugzLogin="your-account" sndFTPLogin="your-account" sndJIRAAppendText=0 sndJIRALogin="your-account" sndMantisAppendText=0 sndMantisLogin="your-account" sndMantisUseWSDL=1 sndMAPITarget="your-email@example.com" sndScreenshot=0 sndSendInSeparatedThread=0 sndShellRecepient="your-email@example.com" sndShowFailureMsg=0 sndShowSendDialog=0 sndShowSuccessMsg=0 sndSMAPITarget="your-email@example.com" sndSMTPClientFrom="your-email@example.com" sndSMTPClientLogin="your-account" sndSMTPClientTarget="your-email@example.com" sndSMTPServerFrom="your-email@example.com" sndSMTPServerTarget="your-email@example.com" sndTimeout=60000 soAppCompilationDate=0 soAppName=0 soAppParameters=0 soAppStartDate=0 soAppUpTime=0 soAppVersionNumber=0 soCustomData=0 soExcCount=0 soExcDate=0 soExcModuleName=0 soExcModuleVersion=0

hi Farshad :-) if i add EMemLeaks, EResLeaks, ExceptionLog7, to my dll - project and click "compiling" .. delphi delets the 3 lines .. just "EAppDLL," exists .. "Please see unigui docs." -> the only information i found is: http://unigui.com/doc/online_help/index.html?eurekalog.htm

Hi .. thanX for your support .. 1 Question ...i installed Eurekalog ... imported the UniGui settings ..But nothing happens .. no informations or subfolder are created in htdocs-folder of Apach server - where the unigui is located i have in my dpr file this ( the manual of Unigui just talks about EXE Files - i need DLL) library Versatile; uses EAppDLL, uniGUIISAPI, Forms, ServerModule in 'ServerModule.pas' {UniServerModule: TUniGUIServerModule}, MainModule in 'MainModule.pas' {UniMainModule: TUniGUIMainModule}, ... .. {$R *.res} exports GetExtensionVersion, HttpExtensionProc, TerminateExtension; end.

Hi .. now - i am searching 2 days to find the errors... What is the best way to find a EAccessViolation ?? The 1st. error comes by starting my project .. the 2.nd error comes if i showmodal a simple UniForm 1.) Versatile.dll: 000036F0: 10:11:07 [Zugriffsverletzung bei Adresse 47CC2612 in Modul 'Versatile.dll'. Lesen von Adresse 00000648-::1]:EAccessViolation : Zugriffsverletzung bei Adresse 47CC2612 in Modul 'Versatile.dll'. Lesen von Adresse 00000648 : Addr: $47CC2612 2.) Versatile.dll: 00003148: 10:11:10 [::1]:EAccessViolation : Zugriffsverletzung bei Adresse 47CDFA61 in Modul 'Versatile.dll'. Schreiben von Adresse 00000000 : Addr: $47CDFA61 I user Win10 (32Bit) - Delphi XE4 .. Firebird sql Server 2.5 (zeos Lib) ThanX Erich

how can i replace the Mainform what is created and shown on app-start?? i want to have as 1st (paged Form) a form called "TStratpage" ... i didnt found a place where i can change something like: Application.Initialize; Application.CreateForm( TStratpage, Stratpage ); ... Application.Run; end.

all right :-)

Hi Sherzod Build: i use 1.50.0.1483 Purpose: i use a lot of animations and different combinations of uniForms, uniFrames and so on .. in one situation - the FileUpload-Dialog is behind the uniForm here a small vid of my UserInterface: ui.webm

Hi.. very important for me: how can i set the z-index of FileUpload-Dialog ..?

hello, for updating my unigui Application - i connect via Teamviewer to client-server stop the apach server service (some times it needs 1seconds - sometimes 30 seconds to stop ??) copy my dll to client server start apache service disconnect the teamviewer now i want to have a automatic update system ... :-) has someone a good idea or a solution out where? thanX Erich