Jump to content

yoshimi sakata

Members
  • Posts

    36
  • Joined

  • Last visited

Posts posted by yoshimi sakata

  1. Hi, Farshad

     

    Problem is with the attached Field which is a lookup field itself. Currently UniGUI doesn't properly handle editing fkLookup fields. I will try to fix this in next version.

    Thank you,

     

    It is another question

    Can you make the height of the UniDBGrid.Column.Editer component the same as high UniDBGrid.Column?

     

     UniDBGrid1.Font.Size=20
     UniDBGrid1.Columns[nn].Font.Size=20
     UniEdit1.Font.Size=20
     UniDBGrid1.Columns[nn].Editor = UniEdit1
    

    post-347-0-72563200-1329377060_thumb.png

  2. Hello,

     

    How do you change FontSize of InlineEditer of UniDBGrid?

     

     object UniDBGrid1: TUniDBGrid
       Font.Height = -48
       ParentFont = False
       TabOrder = 0
       Columns = <
         item
           FieldName = 'ID'
           Title.Caption = 'ID'
           Width = 264
           Visible = True
           Font.Height = -48
           Alignment = taRightJustify
           Expanded = False
         end
         item
           FieldName = 'NAME'
           Title.Caption = 'NAME'
           Width = 524
           Visible = True
           Font.Height = -48
           Expanded = False
         end>
     end
    

    post-347-0-52349100-1327322173_thumb.png

  3. Hi, Farshad

     

    Please paste the error code here.

     

    [DCC error] Unit1.pas(31): E2009 not compatible in a model: A method pointer and normal procedure

     

    The problem was settled

     

    Thanks

     

    Unit all Source code

    unit Unit1;
    
    interface
    
    uses
     Windows, Messages, SysUtils, Variants, Classes, Graphics,
     Controls, Forms, Dialogs, uniGUITypes, uniGUIAbstractClasses,
     uniGUIClasses, uniGUIFrame, uniGUIBaseClasses, UniGUIDialogs,
     uniButton, uniMemo;
    
    type
     TUniFrame1 = class(TUniFrame)
       UniButton1: TUniButton;
       UniMemo1: TUniMemo;
       procedure UniButton1Click(Sender: TObject);
     private
     public
     end;
    
    implementation
    
    {$R *.dfm}
    
    procedure TUniFrame1.UniButton1Click(Sender: TObject);
    begin
    //  MessageDlg('TUniFrame.MessageDlg',mtInformation, [mbOk],
     UniGUIDialogs.MessageDlg('TUniFrame.MessageDlg',mtInformation, [mbOk],
       procedure(Res: Integer)
       begin
         UniMemo1.Lines.Add(IntToStr(Res));
       end
     );
    end;
    
    end.

  4. Workaround:

    Add UniGUIDialogs to uses list.

    Hi, Farshad

     

    Thanks,

    I changed it, but the problem is not settled.

     

    interface
    
    uses
     Windows, Messages, SysUtils, Variants, Classes, Graphics,
     Controls, Forms, Dialogs, uniGUITypes, uniGUIAbstractClasses,
     uniGUIClasses, uniGUIFrame, uniGUIBaseClasses, UniGUIDialogs,
     uniButton, uniMemo;
    

  5. Hi,

     

    How do you use Callback of MessageDlg in TUniFrame?

     

    type
     TUniFrame1 = class(TUniFrame)
       UniButton1: TUniButton;
       UniMemo1: TUniMemo;
       procedure UniButton1Click(Sender: TObject);
     private
     public
     end;
    
    implementation
    
    {$R *.dfm}
    
    procedure TUniFrame1.UniButton1Click(Sender: TObject);
    begin
     MessageDlg('TUniFrame.MessageDlg',mtInformation, [mbOk],
       procedure(Res: Integer)
       begin
         UniMemo1.Lines.Add(IntToStr(Res));
       end
     );
    end;
    

     

    This source code becomes the compilation error

×
×
  • Create New...