paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-02-19 19:56:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

forgotten files + cleanup

Browse Source 
git-svn-id: trunk@11927 -
This commit is contained in:
paul 2007-09-03 08:04:01 +00:00
parent 0fbe24b1c2
commit d00181d3e6
4 changed files with 9 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/customform.inc
View File

@ -1272,7 +1272,7 @@ end;
{------------------------------------------------------------------------------
TCustomForm SetFormStyle
------------------------------------------------------------------------------}
Procedure TCustomForm.SetFormStyle(Value : TFormStyle);
procedure TCustomForm.SetFormStyle(Value : TFormStyle);
var
OldFormStyle: TFormStyle;
Begin
@ -1287,6 +1287,8 @@ Begin
else
if OldFormStyle = fsSplash then
BorderStyle := bsSizeable;
if HandleAllocated then
TWSCustomFormClass(WidgetSetClass).SetFormStyle(Self, Value);
end;
{------------------------------------------------------------------------------

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

@ -2638,21 +2638,6 @@ begin
except
Application.HandleException(nil);
end;
{ if (TLMessage(AMessage).Msg=LM_PAINT)
or (TLMessage(AMessage).Msg=LM_INTERNALPAINT)
or (TLMessage(AMessage).Msg=LM_GtkPaint) then
CurrentSentPaintMessageTarget:=TObject(Target);
try
if TObject(Target) is TControl
then TControl(Target).WindowProc(TLMessage(Msg))
else TObject(Target).Dispatch(TLMessage(Msg));
except
Application.HandleException(nil);
end;
CurrentSentPaintMessageTarget:=nil;}
end;
{ TQtMainWindow }

3
lcl/interfaces/qt/qtwinapi.inc
View File

@ -1885,9 +1885,6 @@ end;
function TQtWidgetSet.GetDesignerDC(WindowHandle: HWND): HDC;
begin
Result := GetDC(WindowHandle);
{$ifdef VerboseQtWinAPI_MISSING_IMPLEMENTATION}
WriteLn('***** [WinAPI TQtWidgetSet.GetDesignerDC] missing implementation ');
{$endif}
end;
{------------------------------------------------------------------------------
Function: GetDeviceCaps

6
lcl/widgetset/wsforms.pp
View File

@ -81,6 +81,7 @@ type
const ABorderIcons: TBorderIcons); virtual;
class procedure SetFormBorderStyle(const AForm: TCustomForm;
const AFormBorderStyle: TFormBorderStyle); virtual;
class procedure SetFormStyle(const AForm: TCustomform; const AFormStyle: TFormStyle); virtual;
class procedure SetIcon(const AForm: TCustomForm; const AIcon: HICON); virtual;
class procedure SetShowInTaskbar(const AForm: TCustomForm; const AValue: TShowInTaskbar); virtual;
class procedure SetZPosition(const AWinControl: TWinControl; const APosition: TWSZPosition); virtual;
@ -139,6 +140,11 @@ class procedure TWSCustomForm.SetFormBorderStyle(const AForm: TCustomForm;
begin
// will be done in interface override
end;
class procedure TWSCustomForm.SetFormStyle(const AForm: TCustomform;
const AFormStyle: TFormStyle);
begin
end;
class procedure TWSCustomForm.SetIcon(const AForm: TCustomForm; const AIcon: HICON);
begin