小编tor*_*rno的帖子

将tinyint映射为布尔值hibernate

我在MySQL表(TINYINT(1))中有一个BOOLEAN类型,我试图在实体中映射布尔字段,但这会产生异常:

org.hibernate.HibernateException: Wrong column type in maegul.users for column admin. Found: bit, expected: boolean
Run Code Online (Sandbox Code Playgroud)

我将我的实体中的字段更改为byte并进行相应的更改,因此它作为布尔值,我得到:

org.hibernate.HibernateException: Wrong column type in maegul.users for column admin. Found: bit, expected: tinyint
Run Code Online (Sandbox Code Playgroud)

我尝试@Type在字段上使用注释:

@Type(type = "org.hibernate.type.NumericBooleanType")
Run Code Online (Sandbox Code Playgroud)

但我得到:

org.hibernate.HibernateException: Wrong column type in maegul.users for column admin. Found: bit, expected: integer
Run Code Online (Sandbox Code Playgroud)

java mysql types hibernate

30
推荐指数
3
解决办法
5万
查看次数

TListView:如果添加列,VCL将丢失列的顺序

我正在尝试在TListView中的现有列之间添加一列.因此,我在最后添加新列,并通过将其索引设置为指定值来移动它.这有效,直到添加另一个新列.

我做了什么:在最后位置添加列(Columns.Add)并在最后位置(Subitems.Add)添加子项.然后我通过将列的索引设置为正确的位置来移动列.只要只添加一列,这样就可以正常工作.添加第二个新列时,子项目会被搞砸.第一列的新子项移动到最后一个位置,例如:

0        |  1          |  new A       |  new B      | 3
Caption  |  old sub 1  |  old sub 3   |  new Sub B  | new sub A
Run Code Online (Sandbox Code Playgroud)

如果有人可以提供帮助,我会很高兴!

例如,是否可能有一个命令或消息我可以发送到ListView,所以它刷新或保存它的Column - > Subitem映射,我可以在添加第一个新列及其子项后使用,以便我可以处理第二个新列和第一个一样.

或者这只是TListViews列的一个错误 - >子项处理或TListColumns ......?

vcl表单应用程序的示例代码(指定Form1.OnCreate事件):

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    listview: TListView;
    initButton: TButton;
    addColumn: TButton;
    editColumn: TEdit;
    subItemCount: Integer;
    procedure OnInitClick(Sender: TObject);
    procedure OnAddClick(Sender: TObject);
  public …
Run Code Online (Sandbox Code Playgroud)

delphi dynamic tlistview subitem

6
推荐指数
1
解决办法
5376
查看次数

获取主题TListView的Backgroundcolor

从XE2开始,有几个主题可以用于您的应用程序。例如Carbon,除了其他功能外,还将TListView的背景色更改为灰色

有什么办法得到这种颜色吗?
TListView.Color返回的全部是白色,而背景是某种灰色的

我尝试将StyleServices.GetElementDetails与如下代码段一起使用:

     var   lColor: TColor;
           lDetails: TThemedElementDetails;

     if StyleServices.Enabled then
     begin
        lDetails := StyleServices.GetElementDetails(tlListviewRoot);
        StyleServices.GetElementColor(lDetails, ecFillColor, lColor);
     end;
Run Code Online (Sandbox Code Playgroud)

但是GetElementColor失败并返回false。我使用了错误的参数吗?还是我的方法是错误的。

可能的参数可以在这里找到:
TThemedListView
TElementColor

谢谢。

PS:我也读了这篇文章,但到目前为止,答案对我没有帮助。

delphi listview themes background-color

5
推荐指数
1
解决办法
877
查看次数

带有VCL样式的TComboBoxEx:边框闪烁

我正在使用Delphi XE3.使用自Delphi XE2以来可用的自定义样式(例如Carbon)时,将鼠标移动到TComboBoxEx控件(MouseExit/Enter)的边框上时会出现可见的白色闪烁.

重现的步骤:创建一个新的VCL Forms应用程序,在表单上删除TComboBoxEx,选择例如项目选项中的Carbon - > Application\Appearance并启动应用程序

这是一个已知的问题/错误,是否已知任何解决方案?

谢谢

delphi combobox vcl-styles

3
推荐指数
1
解决办法
1013
查看次数