paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-20 11:59:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: TQtWidget properties reorderd alphabeticaly, added StyleSheet property.

Browse Source 
git-svn-id: trunk@21979 -
This commit is contained in:
zeljko 2009-10-02 07:11:36 +00:00
parent c74e94a5cc
commit da3c455007
1 changed files with 25 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
lcl/interfaces/qt/qtwidgets.pas
View File

@ -98,12 +98,14 @@ type
function GetPalette: TQtWidgetPalette;
function GetProps(const AnIndex: String): pointer;
function GetStyleSheet: WideString;
function GetWidget: QWidgetH;
function LCLKeyToQtKey(AKey: Word): Integer;
function QtButtonsToLCLButtons(AButtons: QTMouseButton): PtrInt;
function QtKeyModifiersToKeyState(AModifiers: QtKeyboardModifiers): PtrInt;
function QtKeyToLCLKey(AKey: Integer; AText: WideString): Word;
procedure SetProps(const AnIndex: String; const AValue: pointer);
procedure SetStyleSheet(const AValue: WideString);
procedure SetWidget(const AValue: QWidgetH);
function ShiftStateToQtModifiers(Shift: TShiftState): QtModifier;
protected
@ -236,15 +238,16 @@ type
function windowModality: QtWindowModality;
property Context: HDC read GetContext;
property KeysToEat: TByteSet read FKeysToEat write FKeysToEat;
property Palette: TQtWidgetPalette read GetPalette;
property Props[AnIndex:String]:pointer read GetProps write SetProps;
property PaintData: TPaintData read FPaintData write FPaintData;
property Widget: QWidgetH read GetWidget write SetWidget;
property HasCaret: Boolean read FHasCaret write SetHasCaret;
property HasPaint: Boolean read FHasPaint write FHasPaint;
property WidgetColorRole: QPaletteColorRole read FWidgetColorRole write FWidgetColorRole;
property KeysToEat: TByteSet read FKeysToEat write FKeysToEat;
property StyleSheet: WideString read GetStyleSheet write SetStyleSheet;
property PaintData: TPaintData read FPaintData write FPaintData;
property Palette: TQtWidgetPalette read GetPalette;
property Props[AnIndex:String]:pointer read GetProps write SetProps;
property TextColorRole: QPaletteColorRole read FTextColorRole write FTextColorRole;
property Widget: QWidgetH read GetWidget write SetWidget;
property WidgetColorRole: QPaletteColorRole read FWidgetColorRole write FWidgetColorRole;
end;
{ TQtAbstractSlider , inherited by TQtScrollBar, TQtTrackBar }
@ -3788,6 +3791,14 @@ begin
result := nil;
end;
function TQtWidget.GetStyleSheet: WideString;
var
WStr: WideString;
begin
QWidget_styleSheet(Widget, @WStr);
Result := UTF16ToUTF8(WStr);
end;
{------------------------------------------------------------------------------
Function: TQtWidget.GetPalette
Params: Nothing
@ -3853,6 +3864,14 @@ begin
Fprops.Objects[i] := TObject(AValue);
end;
procedure TQtWidget.SetStyleSheet(const AValue: WideString);
var
WStr: WideString;
begin
WStr := GetUTF8String(AValue);
QWidget_setStyleSheet(Widget, @WStr);
end;
procedure TQtWidget.SetWidget(const AValue: QWidgetH);
begin
TheObject := AValue;