Jump to content

lucksjb

Members
  • Posts

    21
  • Joined

  • Last visited

Recent Profile Visitors

626 profile views

lucksjb's Achievements

Newbie

Newbie (1/4)

0

Reputation

  1. Yes. I use phonegap to create a pk instalation. Good luck
  2. Hi guys, How can I put a button on a Unidbgrid ? I try do it puting on a hidepanel.. but don´t run. tnx advanced; Luciano
  3. This routine is with error a:= 1; b:= 1; // in this code if a=b then begin showmessage( 'A = B', // this message don´t showed procedure(Res: Integer) begin CLOSE end ); end; showmessage('Just this message is showed '); I know this using the follow workaround : a:= 1; b:= 1; // in this code if a=b then begin showmessage( 'A = B'); // this message is displayed end else begin showmessage('this message don´t showed '); end; How can I do it using callback ? tnx advanced Luciano
  4. would u like attach the source ? please tnx advanced Luciano
  5. tnx a lot. I update my uniGUI and now have CheckChangeDelay property and working
  6. how can I know my unigui version ? tnx advanced Luciano
  7. Hi Dionel do u know How can I navigate in a buttons with enter key ?
  8. Hi, I try to do a incremental search using onchange on a uniedit field. but if I typing fast, dont work. how can I solve this ? Tnx advanced. Luciano ///// FORM object MainForm: TMainForm Left = 0 Top = 0 Caption = 'MainForm' ClientHeight = 495 ClientWidth = 773 Color = clBtnFace OldCreateOrder = False OnCreate = UniFormCreate MonitoredKeys.Keys = <> PixelsPerInch = 96 TextHeight = 13 object UniDBGrid1: TUniDBGrid Left = 0 Top = 74 Width = 769 Height = 418 Hint = '' DataSource = DataSource1 Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] WebOptions.LoadMaskMsg = 'Please wait...' OnAjaxEvent = UniDBGrid1AjaxEvent StripeRows = False TabOrder = 0 end object UniEdit1: TUniEdit Left = 24 Top = 46 Width = 345 Height = 22 Hint = '' PasswordChar = #0 CharCase = ecNormal MaxLength = 0 CharEOL = #0 Text = '' TabOrder = 1 Color = clWindow OnChange = UniEdit1Change OnAjaxEvent = UniEdit1AjaxEvent end object ADOConnection1: TADOConnection Connected = True ConnectionString = 'Provider=SQLOLEDB.1;Password=xxxx;Persist Security Info=True' + ';User ID=sa;Initial Catalog=l_dep_brasil;Data Source=192.168.0.1' + '60' LoginPrompt = False Provider = 'SQLOLEDB.1' Left = 720 Top = 8 end object ADOQuery1: TADOQuery Connection = ADOConnection1 CursorType = ctStatic Parameters = <> SQL.Strings = ( 'Select Codigo_cli, Nome_cli from clientes_tb ') Left = 624 end object DataSource1: TDataSource DataSet = ADOQuery1 Left = 528 end end ///// UNIT unit Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, uniGUITypes, uniGUIAbstractClasses, uniGUIClasses, uniGUIForm, uniGUIBaseClasses, uniButton, uniEdit, Data.DB, uniBasicGrid, uniDBGrid, Data.Win.ADODB; type TMainForm = class(TUniForm) ADOConnection1: TADOConnection; ADOQuery1: TADOQuery; UniDBGrid1: TUniDBGrid; DataSource1: TDataSource; UniEdit1: TUniEdit; procedure UniEdit1Change(Sender: TObject); procedure UniFormCreate(Sender: TObject); procedure UniEdit1AjaxEvent(Sender: TComponent; EventName: string; Params: TStrings); procedure UniDBGrid1AjaxEvent(Sender: TComponent; EventName: string; Params: TStrings); private { Private declarations } public { Public declarations } end; function MainForm: TMainForm; implementation {$R *.dfm} uses uniGUIVars, MainModule, uniGUIApplication; function MainForm: TMainForm; begin Result := TMainForm(UniMainModule.GetFormInstance(TMainForm)); end; procedure TMainForm.UniDBGrid1AjaxEvent(Sender: TComponent; EventName: string; Params: TStrings); begin UniEdit1.SetFocus; end; procedure TMainForm.UniEdit1AjaxEvent(Sender: TComponent; EventName: string; Params: TStrings); begin UniEdit1.SetFocus; end; procedure TMainForm.UniEdit1Change(Sender: TObject); begin ADOQuery1.Locate('Nome_cli',UniEdit1.Text,[loPartialKey]); end; procedure TMainForm.UniFormCreate(Sender: TObject); begin ADOQuery1.Open; end; initialization RegisterMainFormClass(TMainForm); end.
  9. tnx Farshad, with uniform1.activecontrol = uniedit1 is running tnx again
  10. Hi guys, when I run a showmodal in a form, the first edit don´t focused. how can I solve this ? tnx advanced Luciano *** I´m attached the sample with error. erro modal.rar
  11. tnx so much ... this salve my life
  12. Hi, anybody know how can I close form with ESC key ? tnx advanced Luciano
  13. How can I adjust size of column with this image ? tnx advanced Luciano
×
×
  • Create New...