Jump to content

Sherzod

Moderators
  • Posts

    19832
  • Joined

  • Last visited

  • Days Won

    644

Posts posted by Sherzod

  1.  

    Hi All! 
     
    Does anyone know, how to set the width at the UniMainMenu, (with word-wrap...)?
     
    Sincerely...

     

     

    I think, to set the width UniMenuItem, easier to use caption with "<br>"
     
    Sincerely ...
  2. Hi Farshad.
     
    Why is the folder C: \ Program Files \ FMSoft \ Framework \ uniGUI \ ExtPascal \ greatly curtailed?
     
    1. I corrected the mistake UniDBGrid, using ExtData.
    2. How can I use the following code, without ExtData?
     
    uses ..., ExtData;
    type
      THackUniDBGrid = class (TUniDBGrid)
        procedure RemoveAll;
      end;
    
    procedure THackUniDBGrid.RemoveAll;
    Var
      ST: TExtDataStore;
    Begin
      ST: = TExtDataStore (Self.ExtGridPanel.Store);
      ST.RemoveAll (True);
    end;
    procedure TMainForm.UniBitBtn1Click (Sender: TObject);
    begin
      THackUniDBGrid(UniDBGrid1).RemoveAll;  
      ClientDataSet2.Close
    end;
     
     
    On the one hand does not take into account the versioning is bad, especially when the project is large!
     
    4. Or, we can simply replace the ExtData on the ExtPascalUtils??
     
    Please Farshad, give us the solution .... 

     

     
    Sincerely ...
  3. procedure TMainForm.CreateComponents(Grd: TUniDBGrid);

    var

      I,editcnt,datecnt,labelcnt,top,fldcnt: Integer;

    begin

      labelcnt:=0;

      datecnt:=0;

      editcnt:=0;

      top:=50;

      left:=16;

      fldcnt:=0;

      for I := 0 to Grd.Columns.Count - 1 do

      begin

        inc(labelcnt);

        SetLength(labels,labelcnt);

        labels:=TUniLabel.Create(self);

        labels.Parent:=FldsPanel;

        labels.Top:=top-19;

        labels.Left:=left;

        labels.Caption:=Grd.Columns.Title.Caption;

        if (Grd.Columns.Field.DataType=ftDate) or (Grd.Columns.Field.DataType=ftDateTime) then

        begin

          inc(datecnt);

          SetLength(datearray,datecnt);

          datearray[datecnt-1]:=TUniDateTimePicker.Create(self);

          datearray[datecnt-1].Parent:=FldsPanel;

          datearray[datecnt-1].Width:=150;

          datearray[datecnt-1].Left:=left;

          datearray[datecnt-1].Top:=top;

          datearray[datecnt-1].TabOrder:=I;

        end

        else

        begin

          inc(editcnt);

          SetLength(editarray,editcnt);

          editarray[editcnt-1]:=TUniEdit.Create(self);

          editarray[editcnt-1].Name:='UniEdit'+inttostr(editcnt);

          editarray[editcnt-1].Parent:=FldsPanel;

          editarray[editcnt-1].Width:=150;

          editarray[editcnt-1].Left:=left;

          editarray[editcnt-1].Top:=top;

          editarray[editcnt-1].TabOrder:=I;

        end;

        left:=left+156;

        inc(fldcnt);

        // УФБ 5 РЕДЙБ КБФЕВБЙНЩ ГСБММЗ

        if fldcnt = 5 then

        begin

          top:=top+56;

          fldcnt:=0;

          left:=16;

        end;

      end; // end of for I

    end;

  4. Hi skepsis.
     
     
    First try this:

     

    datearray:=TUniDateTimePicker.Create(self);

     

    specify nil
    instead self

    datearray[I] := TUniDateTimePicker.Create(NIL);
    or
    datearray[I] := TUniEdit.Create(NIL);
    ...
     
    Secondly: when (where) you destroy objects?
     
    Sincerely
×
×
  • Create New...