Jump to content

ganzqgy

Members
  • Posts

    132
  • Joined

  • Last visited

  • Days Won

    4

Posts posted by ganzqgy

  1. Ext.create('Ext.button.Cycle', {
        showText: true,
        prependText: 'View as ',
        renderTo: 'abcd',//html: '<div id="abcd"><div>'
        menu: {
            id: 'view-type-menu',
            items: [{
                text: 'text only',
                iconCls: 'view-text',
                checked: true
            },{
                text: 'HTML',
                iconCls: 'view-html'
            }]
        },
        changeHandler: function(cycleBtn, activeItem) {
            Ext.Msg.alert('Change View', activeItem.text);
        }
    });

  2. // 设勾勾
    procedure TuTreeViewFrame.UniBitBtn1Click(Sender: TObject);
    var
      i: integer;
    begin
      for i := 0 to UniTreeView1.Items.Count - 1 do
      begin
        UniTreeView1.Items.Selected := True;
        UniSession.AddJS('if (' + UniTreeView1.JSName +
            '.getSelectionModel().hasSelection()) {' + UniTreeView1.JSName +
            '.getSelectionModel().getSelection()[0].set(''checked'', false);};');
      end;
    end;
    //全选全不选
    function checkchange(node, checked, eOpts){
    if (node.hasChildNodes()) {
    for (i = 0; i < node.childNodes.length; i++)
    {node.childNodes.set('checked', checked);}}}
    //取勾勾,无需树展开
    UniSession.AddJS('alert('+UniTreeView3.JSName +'.getChecked()[1].data.text)');
    //data.index:同一层的顺序号。Data.id:总的顺序号。Data.text:后面的文本。Data.checked是取值。
    //getChecked()[1].id:是自带的ID
    //设置新属性
    procedure TUniLoginForm1.UniBitBtn11Click(Sender: TObject);
    var
      i: integer;
    begin
      for i := 0 to UniTreeView3.Items.Count - 1 do
      begin
        UniTreeView3.Items.Selected := True;
    UniSession.AddJS('if (' + UniTreeView3.JSName +'.getSelectionModel().hasSelection()) {'
    + UniTreeView3.JSName +
    '.getSelectionModel().getSelection()[0].set(''ganzq'', "'+'aaa'+inttostr(i)+'");};');
      end;
    end;
    //取新属性值,勾的,选的
    UniSession.AddJS('alert('+UniTreeView3.JSName +'.getChecked()[0].data.ganzq)');
    UniSession.AddJS('alert('+UniTreeView3.JSName +'.getSelectionModel().getSelection()[0].data.ganzq)');
    function itemclick(sender, record, item, index, e, eOpts)
    {alert(record.data.ganzq);}

  3. function checkchange(node, checked, eOpts)

    {
              if (node.hasChildNodes()) {
                      for (i = 0; i < node.childNodes.length; i++) {
                           node.childNodes.getUI().checkbox.checked = checked;
                         }
                    }

    }

     

    node.childNodes.length-------- ok.

    getUI().checkbox.checked    ?NO

  4. //unitree,checkedbox

    procedure TMainForm.UniBitBtn2Click(Sender: TObject);
    var 
      i: integer;
    begin
      for i := 0 to UniTreeView1.Items.Count - 1 do
      begin
        UniTreeView1.Items.Selected := True;
        UniSession.AddJS('if (' + UniTreeView1.JSName +
            '.getSelectionModel().hasSelection()) {' + UniTreeView1.JSName +
            '.getSelectionModel().getSelection()[0].set(''checked'', false);};');
      end;
    end;

     

     

    procedure TMainForm.UniBitBtn4Click(Sender: TObject);
    begin
        UniSession.AddJS('alert('+UniTreeView1.JSName+'.getChecked());');
    end;

     

     

    checked------------node.id?node.text?...

     

     

     

    post-1247-0-74684500-1388101150_thumb.jpg

  5. //读取数据库图片数据
    procedure TuDBGridFrame.UniDBGrid1CellClick(Column: TUniDBGridColumn);// UniGUIAbstractClasses
    var
      jpegimage: tjpegimage;
      bmpimage: TBitMap;
      BlobStream: TStream;
      Buffer: WORD;
    begin
      with ADOTable1 do
      begin
        if (not fieldbyname('photo').IsNull) then // 字段无内容
        begin
          BlobStream := CreateBlobStream(fieldbyname('photo'), bmRead);
          BlobStream.Position := 0;
          BlobStream.ReadBuffer(Buffer, 2); // 读取文件前2个字节
          BlobStream.Position := 0;
          if Buffer = $4D42 then
    // $4D42'BMP'$D8FF'JPEG'$4947 'GIF'$050A'PCX'$5089 'PNG'$4238'PSD'$A659'RAS'$DA01'SGI'$4949'TIFF'
          begin
            bmpimage := TBitMap.Create;
            try
              bmpimage.LoadFromStream(BlobStream);
              UniImage1.Picture.bitmap.Assign(bmpimage);
              UniImage1.Visible := true;
            finally
              bmpimage.Free;
              BlobStream.Free;
            end;
          end;
          if Buffer = $D8FF then // 如果前两个字节是以D8FF[JPG]
          begin
            jpegimage := tjpegimage.Create;
            try
              jpegimage.LoadFromStream(BlobStream);
              UniImage1.Picture.Assign(jpegimage);
              UniImage1.Visible := true;
            finally
              jpegimage.Free;
              BlobStream.Free;
            end;
          end;
        end
        else
          UniImage1.Visible := False;
      end;
    end;

  6. UniURLFrame,unipanel,UniTabSheet,UniRadioGroup...:

    function afterrender(sender, eOpts)
    {                                                  
    sender.body.applyStyles('border-radius:5px;
    background-color:transparent;
    background-image:url(files/2.gif);

    background-repeat:repeat;border-style: solid;
    ');
    }

  7. function afterrender(sender, eOpts)
    {                                                   
    sender.body.applyStyles('border-radius:5px;
    background-color:transparent;
    background-image:url(files/2.gif);

    background-repeat:repeat;border-style: solid;
    ');
    }

×
×
  • Create New...