Jump to content
uniGUI Discussion Forums


uniGUI Subscriber
  • Content Count

  • Joined

  • Last visited

  • Days Won


Everything posted by mierlp

  1. hi Lot's of us here on the form are using uniGui from the beginning. I was wondering how you're application GUI looks ..for seeing and inspirion what can be done with uniGui...some screenshot would be wonderfull. Regards Peter
  2. mierlp

    Change frame.cursor

    Hi For a form you can set the cursor like FormVendor.Cursor := crHourGlass When i try FrameVendor.Cursor := crHOurGlass i get the following message when compiling : fraVendor.pas(291) E2233 Property 'Cursor' inaccessible here Is this not possible with a frame ?
  3. Hi Farshad It is good to hear that something is going to happen to the critical comment in this post. I am one of them and therefore very curious how this will be filled in and how we will notice this. Of course, it goes beyond a new roadmap or extension of subscriptions. It would help to make it S.M.A.R.T. Regards Peter
  4. mierlp

    how check internet connection unigui

    I found a older topic but did not try it What is URL.DLL? The file named URL.DLL is developed by Microsoft Corporation. The file is used by the Internet Explorer and the shell extension module. IE is the basic internet browser on all Windows platforms. The DLL is safe and it receives prompt security updates. The threat level of the file is found to be 1. URL.DLL is located in C:\Windows\System32\url.dll.
  5. Even when starting Windows 10 in SAFE MODE with only the network connection i still got the same error over and over. What can i do more...
  6. Hi When i delete a pages from a uniPageControl i got this error, see attachment. THis only occurs using uniGui, not in vcl application I even created a new form, copied the uniPageControl to it, deleted page and again the same error I use : - Delphi RIO 10.3.3 (also appears in 10.3.3) - uniGui but also happends in Did compleet reinstall from uniGui, cleaned files/registry Any suggestions ?
  7. Hi Sherzod, I have just de-installed Delphi complete, inclusief deleted all registry entries, files etc. New clean installation of Delphi 10.3.3 + uniGui no other components. Took the example...same error again whatever i try also when creating a new project and put a uniPageControl on the form, add several pages, delete 1 pagen...error
  8. In design time delete a page form the uniPageControl, then the error occures (in my case) error only appears when using uniGui and can't figure out if there a conflict with other third part components I did a test with only the default installed Delphi components and deleted all other third part ...but still the error exists.
  9. Even in runtime...not funny programming this way
  10. New blank testcase, same result. Just delete a tab from the pagecontrol tescase2.zip
  11. Hi Sherzod,, That does NOT help. I deleted all third part components even FastReport, MyDac and additional components etc. Created a new project and still when deleting a page i get the error, see below
  12. Hi Sherzod, Testcase attached. Just open in design mode open frmTableVendorEdit Deleted UniageContrlol_VendorHomeBasic.uniTabSheet2 with the tekst 'AKKOORD'. in this testcase the error also appears Regards Peter testcase.zip
  13. mierlp

    How to remove this border ?

    Is there already a solution for it ?
  14. Hi Dominique certainly has a good point and describes what is currently happening and what he, -and I certainly think others here on the forum, experience. New functionalities is nice, but more important is a stable platform and where bug fixing should receive attention. Several signals have already been issued on the forum about the long stay-out of fixes, up-to-date documentation and a roadmap, - the last update is from February I think. In any case, I don't know what Farshad's ambition is with uniGui because he responds fairly rarely to this type of message. A shame because it is a signal that is being delivered by its users of the product and I think you should do something with it. I am uniGui user from the first hour and I still think it is a very nice product and a great achievement that Farshad has achieved, we all agree with that. We have all developed one or more applications in uniGui and maybe even sold them. That would not have been possible without uniGui. But it does not stop there and the developments in the market, the demand of the users continues. Today's applications must be multi-device if you like it or not. The application must have the same look and feel on both mobile and desktop / tablet ... responsive But just like Dominique I am increasingly worried about the future / continuity of uniGui .. why ... because there is insufficient communication, bug fixing is too slow, you have to use work-arounds to realize things that you do not like structural solution. Finally my biggest concern is that I think Farshad is still the only developer. Points that have already been mentioned in previous post but have not provided clarity. A framework such as uniGui has a lot of potential, but then more development capacity must become available, bug fixing must go faster and communication must be improved. It is not about which framework is better, that everyone must determine for themselves and another cannot do for you. Also not with examples of what the one framework can or cannot do. Every framework has its own specific characteristics and use, and also everyone uses it in its own way and for its own application. What you do see is that there are new frameworks that will certainly develop faster and meet the current needs of our customers, yes they are still in their infancy, but are quickly moving to a higher level with a growing number of users. Regards Peter
  15. mierlp

    Windows Server 2016 or 2012 R2

    Official the mainstream support for 2012 R2 is ended in 2018. The extended support is extended to 2023 so for that you can still use 2012 R2 So i would always take the latest version, there are also a lot of improvements in 2016 https://www.microsoft.com/en-us/cloud-platform/windows-server-comparison
  16. Hi, I used it on Win32 applications which was running on a vps server. We stored the report which are created with Fastreport in the database so everyone could use them. One of the issues is the grow of you're database. When the use images in a report and don't limit the size of the image than a report becomes large and also the database. When they use a image which is 4 MB, then you're database is also growin with 4 MB. And with lot's of records...it grows hard. Then you also have to load the database records...which also cost performanance. Now with uniGui i also save uploaded records on disk..it's cheap and fast..the same way Mohammed describes. But..if you would like to store files in a database...this is what i used. Store files in a database requires a blob field. When you use MySQL then use a LargeBlob field. The code below is used for the FastReport i used if dmDocument.Doc.State in [dsBrowse] then begin dmDocument.Doc.Edit; end; try MemStream := TMemoryStream.Create; Stream := dmDocument.Doc.CreateBlobStream(dmDocument.Doc.FieldByName('Report'), bmReadWrite); frxReport.SaveToStream(MemStream); MemStream.Position := 0; Stream.CopyFrom(MemStream, MemStream.Size); if dmDocument.Doc.State in [dsInsert,dsEdit] then begin dmDocument.Doc.Post; end; finally MemStream.Free; Stream.Free; end; A old example using a Win32 application with a DBISAM database. I save the file into a blob field and don;t forget to save the file+extension also in the database: procedure TFormMain.FileLoad; var fileInfo: _WIN32_FILE_ATTRIBUTE_DATA; TotalSize: int64; begin FormMain.OpenDialog.Title:='Select file'; if FormMain.OpenDialog.Execute then begin GetFileAttributesEx(PChar(FormMain.OpenDialog.FileName), GetFileExInfoStandard, @fileInfo); TotalSize := fileInfo.nFileSizeHigh shl 32 or fileInfo.nFileSizeLow; if TotalSize>6000000 then begin Application.MessageBox('This file can't be saved into the database it's larger then 6MB.', 'Warning', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL); Abort; end; if TotalSize<6000000 then begin if dmDocument.Doc.State in [dsBrowse] then begin dmDocument.Doc.Edit; end; Bstream := dmDocument.Doc.CreateBlobStream(dmTables.Document.FieldByName('FileContent'),bmWrite); try Bstream.Seek(0, soFromBeginning); Fstream := TFileStream.Create(FormMain.OpenDialog.FileName, fmOpenRead or fmShareDenyWrite); try Bstream.CopyFrom(Fstream, Fstream.Size) finally Fstream.Free end; finally Bstream.Free end; dmDocument.Doc.FieldByName('FileContent').Value:=ExtractFileName(FormMain.OpenDialog.FileName); end; end; Saving the file to disk if dmDocument.Doc.FieldByName('FileContent').Value='' then begin Application.MessageBox('There's no file available!.', 'Message', MB_OK+MB_ICONEXCLAMATION+MB_DEFBUTTON1+MB_APPLMODAL); Abort; end; if dmDocument.Doc.FieldByName('FileContent').Value<>'' then begin FormMain.SaveDialog.Title:='Save file'; sFile:=dmDocument.Doc.FieldByName('FileName').AsString; SaveDialog.FileName:=cBestand; if FormMain.SaveDialog.Execute then begin Bstream := dmDocument.Doc.CreateBlobStream(dmDocument.Doc.FieldByName('FileContent'), bmRead); try Bstream.Seek(0, soFromBeginning); with TFileStream.Create(SaveDialog.FileName,fmCreate) do try CopyFrom(Bstream,Bstream.Size) finally Free end; finally Bstream.Free; end; end; end;
  17. mierlp

    RAD Studio 10.3.3 (available)

  18. i Would be nice if this could be implemented as standard properties after 4 years: http://forums.unigui.com/index.php?/topic/6727-pagecontrol-properties/&tab=comments#comment-34202 additional properties : tabAlginment TabHeight TabMargin TabPosition (top, left, right, bottom) TabSpace (space between tabs) TabWidth (set width of tabs) Nice to have : Hottrack Hottrack Color HotTrackStyle (tab, tekst or current tab where the 'tab draws a nice colored line at the top of the tab)
  19. Hi When you put a unidbedit or uniedit on the form and use the FieldLabel option AND you put a uniSpeedbutton next to it you can't get them aligned or you have to put the button lower on the form. See example and you see the result. Nice the fieldlabels but you can't put a component next to it. Raize component has a ButtonEdit and DBbuttonEdit component which contains a button in the component. There is also a trigger OnButtonClick Would be a nice if we can have this functionality/components in uniGui Anyone suggestions how to solve the issue. Otherwise i have to use uniLabels above the fields like you can see in the example.
  20. mierlp

    printing self-adhesive labels in zebra tlp 2844

    Hi I don't think you can use my example because I save the designed reports in a database. When a label or wristband is printed, the report is looked up in the database and loaded and then printed. Printing is then done in the same way as you normally do when it is loaded from disk. The printer on which this report should be printed is also stored in the database because I often use 9 printers at the same time, each with its own color wristband. // Set options FormMain.frxReport.PrintOptions.ShowDialog: = False; FormMain.frxReport.PrintOptions.Copies: = 0; // Set correct printer FormMain.frxReport.PrintOptions.Printer: = dmMain.Scan.FieldByName ('showConfigIDPrinterName'). AsString; // Prepaire report FormMain.frxReport.PrepareReport; // Print report FormMain.frxReport.print;
  21. mierlp

    printing self-adhesive labels in zebra tlp 2844

    Hi, If you have installed the windows drivers for this printer you can just print like you normally do on a laserprinter with A4 paper. Just create you label design with fastreport (which i use) and you can print. I print on several therminal TSC label printers wristbands, labels or tickets. All based on a design with in fastreport. Regards Peter
  22. hi I have a table called 'Status' with the following rows: - StatusID (autoinc) - Name (var) - Color (var) The user has to select a color for a certain status. Let say the follow status : - In progress = yellow - Done = green The selected color is saved in the field 'Color' and contains the color colde like '$0000B9FF' Now i would like to show in a DBgrid, see attachment: - the name - a big dot with the corresponding color from the field 'Color' How can i do this ?
  23. mierlp

    show colored bullet in dbgrid [SOLVED]

    Hi I found a solution...what did i do : the field color contains the correct color for the bullet i created a calculated field called 'bullet' in the onCalcFields i added this code : dmStatus.StatusBooking.FieldByName('Bullet').value := '='; i added the field 'bullet' as a extra column to the uniDBgrid change the font.name for this column to 'webdings' <== important because now you got a nice big bullet change the font.size for this column to 20 <== then you got a nice big button uniDBgrid.OnDrawColumnCell i added this code : if ACol=1 then begin Attribs.Font.Color := uniDBgrid.Datasource.Dataset.FieldByName('Color').value; end;
  24. mierlp

    show colored bullet in dbgrid [SOLVED]

    Hi Sherzod Thank you for the examples but I prefer not to work with images. You should also always include this with the installation and you have to make translation for the selected color and which image it it. Is there no other way. I am thinking, for example, of the use of ALT codes. Every new record receives this ALT code, which then has a standard white color. In the dbgrid the font size and color are adjusted to the value in the 'Color' field But no idea if that's possible and i solution Or is there a solution to based on a separate table which contains colored images / color code from the bullets and showing them in a dblookupcombobox...which is not possible i think? Regards Peter
  25. mierlp

    My application freeze

    hi Did you use the file-based solutions or with the server.exe ? Make sure you have enought rights to create dbisam.lck files regards Peter