paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 13:19:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

customdrawnws: Adds support for TStaticText

Browse Source 
git-svn-id: trunk@34156 -
This commit is contained in:
sekelsenmat 2011-12-13 12:55:50 +00:00
parent aa6e4e422d
commit 49ce7da4b4
2 changed files with 35 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/customdrawn/customdrawnwsfactory.pas
View File

@ -321,8 +321,8 @@ end;
function RegisterCustomStaticText: Boolean; alias : 'WSRegisterCustomStaticText';
begin
// RegisterWSComponent(TCustomStaticText, TWinCEWSCustomStaticText);
Result := False;
RegisterWSComponent(TCustomStaticText, TCDWSCustomStaticText);
Result := True;
end;
function RegisterCustomLabel: Boolean; alias : 'WSRegisterCustomLabel';

47
lcl/interfaces/customdrawn/customdrawnwsstdctrls.pas
View File

@ -259,10 +259,14 @@ type
{ TCDWSCustomStaticText }
TCDWSCustomStaticText = class(TWSCustomStaticText)
public
class procedure CreateCDControl(const AWinControl: TWinControl; var ACDControlField: TCDControl);
published
{ class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle; override;
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): TLCLIntfHandle; override;
class procedure ShowHide(const AWinControl: TWinControl); override;
class procedure SetAlignment(const ACustomStaticText: TCustomStaticText; const NewAlignment: TAlignment); override;
{ class procedure SetAlignment(const ACustomStaticText: TCustomStaticText; const NewAlignment: TAlignment); override;
class procedure SetStaticBorderStyle(const ACustomStaticText: TCustomStaticText; const NewBorderStyle: TStaticBorderStyle); override;}
end;
@ -1033,10 +1037,20 @@ begin
Widget := TQtWidget(ACustomEdit.Handle);
if Supports(Widget, IQtEdit, QtEdit) then
QtEdit.Undo;
end;
end;*)
{ TCDWSStaticText }
class procedure TCDWSCustomStaticText.CreateCDControl(
const AWinControl: TWinControl; var ACDControlField: TCDControl);
begin
ACDControlField := TCDStaticText.Create(AWinControl);
// TCDIntfButton(lCDWinControl.CDControl).LCLButton := TButton(AWinControl);
ACDControlField.Parent := AWinControl;
ACDControlField.Caption := AWinControl.Caption;
ACDControlField.Align := alClient;
end;
{------------------------------------------------------------------------------
Method: TCDWSCustomStaticText.CreateHandle
Params: None
@ -1045,20 +1059,25 @@ end;
class function TCDWSCustomStaticText.CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): TLCLIntfHandle;
var
QtStaticText: TQtStaticText;
lCDWinControl: TCDWinControl;
begin
QtStaticText := TQtStaticText.Create(AWinControl, AParams);
QtStaticText.AttachEvents;
QtStaticText.setAlignment(AlignmentMap[TCustomStaticText(AWinControl).Alignment]);
QtStaticText.setFrameShape(StaticBorderFrameShapeMap[TCustomStaticText(AWinControl).BorderStyle]);
QtStaticText.setFrameShadow(StaticBorderFrameShadowMap[TCustomStaticText(AWinControl).BorderStyle]);
// Returns the Handle
Result := TLCLIntfHandle(QtStaticText);
Result := TCDWSWinControl.CreateHandle(AWinControl, AParams);
lCDWinControl := TCDWinControl(Result);
end;
{------------------------------------------------------------------------------
class procedure TCDWSCustomStaticText.ShowHide(const AWinControl: TWinControl);
var
lCDWinControl: TCDWinControl;
begin
lCDWinControl := TCDWinControl(AWinControl.Handle);
TCDWSWinControl.ShowHide(AWinControl);
if lCDWinControl.CDControl = nil then
CreateCDControl(AWinControl, lCDWinControl.CDControl);
end;
(*{------------------------------------------------------------------------------
Method: TCDWSCustomStaticText.SetAlignment
Params: None
Returns: Nothing