mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-12-16 05:20:36 +01:00
LCL: removed dummy function SetTextAlign
git-svn-id: trunk@11669 -
This commit is contained in:
parent
cf47df5e91
commit
133cc207e9
@ -1366,11 +1366,6 @@ begin
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function TWidgetSet.SetTextAlign(DC: HDC; Flags: UINT): UINT;
|
||||
begin
|
||||
Result := 0;
|
||||
end;
|
||||
|
||||
function TWidgetSet.SetTextCharacterExtra(_hdc : hdc;
|
||||
nCharExtra : Integer):Integer;
|
||||
begin
|
||||
|
||||
@ -774,11 +774,6 @@ begin
|
||||
Result := WidgetSet.SetSysColors(cElements, lpaElements, lpaRgbValues);
|
||||
end;
|
||||
|
||||
function SetTextAlign(DC: HDC; Flags: UINT): UINT;
|
||||
begin
|
||||
Result := WidgetSet.SetTextAlign(DC,Flags);
|
||||
end;
|
||||
|
||||
Function SetTextCharacterExtra(_hdc : hdc; nCharExtra : Integer):Integer;
|
||||
begin
|
||||
Result := WidgetSet.SetTextCharacterExtra(_hdc, nCharExtra);
|
||||
|
||||
@ -217,7 +217,6 @@ function SetScrollInfo(Handle: HWND; SBStyle: Integer; ScrollInfo: TScrollInfo;
|
||||
//function SetScrollRange --> independent
|
||||
function SetStretchBltMode(DC: HDC; StretchMode: Integer): Integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
|
||||
function SetSysColors(cElements: Integer; const lpaElements; const lpaRgbValues): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
|
||||
function SetTextAlign(DC: HDC; Flags: UINT): UINT; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
|
||||
Function SetTextCharacterExtra(_hdc : hdc; nCharExtra : Integer):Integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
|
||||
function SetTextColor(DC: HDC; Color: TColorRef): TColorRef; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
|
||||
function SetWindowLong(Handle: HWND; Idx: Integer; NewLong : PtrInt): PtrInt;{$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
|
||||
|
||||
Loading…
Reference in New Issue
Block a user