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

change TWin32... to TWinCE... in comments, asserts and other possible places

Browse Source 
git-svn-id: trunk@13712 -
This commit is contained in:
paul 2008-01-10 08:55:52 +00:00
parent 3ebf0dbd28
commit dfebf63be4
7 changed files with 31 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/wince/wincelistsl.inc
View File

@ -2,7 +2,7 @@
{****************************************************************************** {******************************************************************************
win32listsl.inc win32listsl.inc
TWin32ListStringList and TWin32CListStringList TWinCEListStringList and TWinCECListStringList
****************************************************************************** ******************************************************************************

2
lcl/interfaces/wince/wincelistslh.inc
View File

@ -2,7 +2,7 @@
{****************************************************************************** {******************************************************************************
win32listslh.inc win32listslh.inc
TWin32ListStringList and TWin32CListStringList TWinCEListStringList and TWinCECListStringList
****************************************************************************** ******************************************************************************

34
lcl/interfaces/wince/winceobject.inc
View File

@ -50,7 +50,7 @@ begin
WinCEWidgetSet := Self; WinCEWidgetSet := Self;
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Method: TWin32WidgetSet.Destroy Method: TWinCEWidgetSet.Destroy
Params: None Params: None
Returns: Nothing Returns: Nothing
@ -61,12 +61,12 @@ var
n: integer; n: integer;
TimerInfo : PWinCETimerInfo; TimerInfo : PWinCETimerInfo;
Begin Begin
Assert(False, 'Trace:TWin32WidgetSet is being destroyed'); Assert(False, 'Trace:TWinCEWidgetSet is being destroyed');
n := FTimerData.Count; n := FTimerData.Count;
if (n > 0) then if (n > 0) then
begin begin
DebugLn(Format('[TWin32WidgetSet.Destroy] WARNING: There are %d TimerInfo structures left, I''ll free them' ,[n])); DebugLn(Format('[TWinCEWidgetSet.Destroy] WARNING: There are %d TimerInfo structures left, I''ll free them' ,[n]));
while (n > 0) do while (n > 0) do
begin begin
dec(n); dec(n);
@ -103,7 +103,7 @@ Begin
End; End;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Method: TWin32WidgetSet.AppInit Method: TWinCEWidgetSet.AppInit
Params: None Params: None
Returns: Nothing Returns: Nothing
@ -204,7 +204,7 @@ end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Method: TWin32WidgetSet.AppBringToFront Method: TWinCEWidgetSet.AppBringToFront
Params: None Params: None
Returns: Nothing Returns: Nothing
@ -370,7 +370,7 @@ begin
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Method: TWin32WidgetSet.AppWaitMessage Method: TWinCEWidgetSet.AppWaitMessage
Params: None Params: None
Returns: Nothing Returns: Nothing
@ -382,7 +382,7 @@ var
timeout,retVal: dword; timeout,retVal: dword;
begin begin
RedrawMenus; RedrawMenus;
Assert(False, 'Trace:TWin32WidgetSet.WaitMessage - Start'); Assert(False, 'Trace:TWinCEWidgetSet.WaitMessage - Start');
if FWaitPipeHandlers <> nil then if FWaitPipeHandlers <> nil then
timeout := 100 timeout := 100
else else
@ -399,7 +399,7 @@ begin
End; End;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Method: TWin32WidgetSet.AppTerminate Method: TWinCEWidgetSet.AppTerminate
Params: None Params: None
Returns: Nothing Returns: Nothing
@ -408,7 +408,7 @@ End;
procedure TWinCEWidgetSet.AppTerminate; procedure TWinCEWidgetSet.AppTerminate;
begin begin
Assert(False, 'Trace:TWin32WidgetSet.AppTerminate - Start'); Assert(False, 'Trace:TWinCEWidgetSet.AppTerminate - Start');
// roozbeh // roozbeh
// not existed in win32 // not existed in win32
// AppTerminated := True; // AppTerminated := True;
@ -509,7 +509,7 @@ end;
{ Private methods (in no significant order) } { Private methods (in no significant order) }
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Method: TWin32WidgetSet.WinRegister Method: TWinCEWidgetSet.WinRegister
Params: None Params: None
Returns: If the window was successfully regitered Returns: If the window was successfully regitered
@ -563,7 +563,7 @@ Begin
// Handle := ParentPanel; // Handle := ParentPanel;
If TControl(Sender).HandleObjectShouldBeVisible Then If TControl(Sender).HandleObjectShouldBeVisible Then
Begin Begin
Assert(False, 'Trace: [TWin32WidgetSet.ShowHide] Showing the window'); Assert(False, 'Trace: [TWinCEWidgetSet.ShowHide] Showing the window');
if TControl(Sender).FCompStyle = csHintWindow then if TControl(Sender).FCompStyle = csHintWindow then
begin begin
Windows.SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW or SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE or SWP_NOOWNERZORDER); Windows.SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW or SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE or SWP_NOOWNERZORDER);
@ -585,13 +585,13 @@ Begin
End End
Else Else
Begin Begin
Assert(False, 'TRACE: [TWin32WidgetSet.ShowHide] Hiding the window'); Assert(False, 'TRACE: [TWinCEWidgetSet.ShowHide] Hiding the window');
ShowWindow(Handle, SW_HIDE); ShowWindow(Handle, SW_HIDE);
End; End;
End; End;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Method: TWin32WidgetSet.DCReDraw Method: TWinCEWidgetSet.DCReDraw
Params: CanvasHandle - HDC to redraw Params: CanvasHandle - HDC to redraw
Returns: Nothing Returns: Nothing
@ -600,14 +600,14 @@ End;
procedure TWinCEWidgetSet.DCRedraw(CanvasHandle: HDC); procedure TWinCEWidgetSet.DCRedraw(CanvasHandle: HDC);
begin begin
// TODO: implement me! // TODO: implement me!
Assert(False, 'TRACE:[TWin32WidgetSet.ReDraw] Redrawing...'); Assert(False, 'TRACE:[TWinCEWidgetSet.ReDraw] Redrawing...');
Assert(False, 'TRACE:Invalidating the window'); Assert(False, 'TRACE:Invalidating the window');
Assert(False, 'TRACE:Updating the window'); Assert(False, 'TRACE:Updating the window');
Assert(False, 'TRACE:[TWin32WidgetSet.ReDraw] Finished redrawing'); Assert(False, 'TRACE:[TWinCEWidgetSet.ReDraw] Finished redrawing');
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Method: TWin32WidgetSet.SetPixel Method: TWinCEWidgetSet.SetPixel
Params: Canvas - canvas to set color on Params: Canvas - canvas to set color on
X, Y - position X, Y - position
AColor - new color for specified position AColor - new color for specified position
@ -621,7 +621,7 @@ begin
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Method: TWin32WidgetSet.GetPixel Method: TWinCEWidgetSet.GetPixel
Params: Canvas - canvas to get color from Params: Canvas - canvas to get color from
X, Y - position X, Y - position
Returns: Color at specified point Returns: Color at specified point

6
lcl/interfaces/wince/wincewinapi.inc
View File

@ -757,9 +757,9 @@ End;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
Function TWinCEWidgetSet.DrawEdge(DC: HDC; Var ARect: TRect; Edge: Cardinal; GrfFlags: Cardinal): Boolean; Function TWinCEWidgetSet.DrawEdge(DC: HDC; Var ARect: TRect; Edge: Cardinal; GrfFlags: Cardinal): Boolean;
Begin Begin
Assert(False, Format('trace:> [TWin32WidgetSet.DrawEdge] DC:0x%x, Rect = %d,%d,%d,%d', [DC, ARect.Left, ARect.Top, ARect.Right, ARect.Bottom])); Assert(False, Format('trace:> [TWinCEWidgetSet.DrawEdge] DC:0x%x, Rect = %d,%d,%d,%d', [DC, ARect.Left, ARect.Top, ARect.Right, ARect.Bottom]));
Result := Boolean(Windows.DrawEdge(DC, @ARect, edge, grfFlags)); Result := Boolean(Windows.DrawEdge(DC, @ARect, edge, grfFlags));
Assert(False, Format('trace:< [TWin32WidgetSet.DrawEdge] DC:0x%x, Rect = %d,%d,%d,%d', [DC, ARect.Left, ARect.Top, ARect.Right, ARect.Bottom])); Assert(False, Format('trace:< [TWinCEWidgetSet.DrawEdge] DC:0x%x, Rect = %d,%d,%d,%d', [DC, ARect.Left, ARect.Top, ARect.Right, ARect.Bottom]));
End; End;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
@ -823,7 +823,7 @@ End;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
Function TWinCEWidgetSet.EnableWindow(hWnd: HWND; bEnable: Boolean): Boolean; Function TWinCEWidgetSet.EnableWindow(hWnd: HWND; bEnable: Boolean): Boolean;
Begin Begin
Assert(False, Format('Trace:[TWin32WidgetSet.EnableWindow] HWnd: 0x%x, BEnable: %s', [HWnd, BoolToStr(BEnable)])); Assert(False, Format('Trace:[TWinCEWidgetSet.EnableWindow] HWnd: 0x%x, BEnable: %s', [HWnd, BoolToStr(BEnable)]));
Result := Boolean(Windows.EnableWindow(HWnd, BEnable)); Result := Boolean(Windows.EnableWindow(HWnd, BEnable));
End; End;

2
lcl/interfaces/wince/wincewsextctrls.pp
View File

@ -624,6 +624,6 @@ initialization
// RegisterWSComponent(TLabeledEdit, TWinCEWSLabeledEdit); // RegisterWSComponent(TLabeledEdit, TWinCEWSLabeledEdit);
RegisterWSComponent(TCustomPanel, TWinCEWSCustomPanel); RegisterWSComponent(TCustomPanel, TWinCEWSCustomPanel);
// RegisterWSComponent(TPanel, TWinCEWSPanel); // RegisterWSComponent(TPanel, TWinCEWSPanel);
// RegisterWSComponent(TCustomTrayIcon, TWin32WSCustomTrayIcon); // RegisterWSComponent(TCustomTrayIcon, TWinCEWSCustomTrayIcon);
//////////////////////////////////////////////////// ////////////////////////////////////////////////////
end. end.

8
lcl/interfaces/wince/wincewsmenus.pp
View File

@ -54,7 +54,7 @@ type
class function SetRightJustify(const AMenuItem: TMenuItem; const Justified: boolean): boolean; override; class function SetRightJustify(const AMenuItem: TMenuItem; const Justified: boolean): boolean; override;
end; end;
{ TWin32WSMenu } { TWinCEWSMenu }
TWinCEWSMenu = class(TWSMenu) TWinCEWSMenu = class(TWSMenu)
private private
@ -63,7 +63,7 @@ type
class function CreateHandle(const AMenu: TMenu): HMENU; override; class function CreateHandle(const AMenu: TMenu): HMENU; override;
end; end;
{ TWin32WSMainMenu } { TWinCEWSMainMenu }
TWinCEWSMainMenu = class(TWSMainMenu) TWinCEWSMainMenu = class(TWSMainMenu)
private private
@ -71,7 +71,7 @@ type
public public
end; end;
{ TWin32WSPopupMenu } { TWinCEWSPopupMenu }
TWinCEWSPopupMenu = class(TWSPopupMenu) TWinCEWSPopupMenu = class(TWSPopupMenu)
private private
@ -813,7 +813,7 @@ initialization
//////////////////////////////////////////////////// ////////////////////////////////////////////////////
RegisterWSComponent(TMenuItem, TWinCEWSMenuItem); RegisterWSComponent(TMenuItem, TWinCEWSMenuItem);
RegisterWSComponent(TMenu, TWinCEWSMenu); RegisterWSComponent(TMenu, TWinCEWSMenu);
// RegisterWSComponent(TMainMenu, TWin32WSMainMenu); // RegisterWSComponent(TMainMenu, TWinCEWSMainMenu);
RegisterWSComponent(TPopupMenu, TWinCEWSPopupMenu); RegisterWSComponent(TPopupMenu, TWinCEWSPopupMenu);
//////////////////////////////////////////////////// ////////////////////////////////////////////////////
finalization finalization

7
lcl/interfaces/wince/wincewsstdctrls.pp
View File

@ -682,7 +682,7 @@ begin
Result := SendMessage(ACustomComboBox.Handle, CB_GETCURSEL, 0, 0); Result := SendMessage(ACustomComboBox.Handle, CB_GETCURSEL, 0, 0);
if Result = LB_ERR Then if Result = LB_ERR Then
Begin Begin
Assert(False, 'Trace:[TWin32WidgetSet.IntSendMessage3] Could not retrieve item index '+ Assert(False, 'Trace:[TWinCEWidgetSet.IntSendMessage3] Could not retrieve item index '+
'via LM_GETITEMINDEX; try selecting an item first'); 'via LM_GETITEMINDEX; try selecting an item first');
Result := -1; Result := -1;
End; End;
@ -748,7 +748,7 @@ var
Handle: HWND; Handle: HWND;
pwAText : pWideChar; pwAText : pWideChar;
begin begin
Assert(False, Format('Trace:TWin32WSCustomComboBox.SetText --> %S', [AText])); Assert(False, Format('Trace:TWinCEWSCustomComboBox.SetText --> %S', [AText]));
Handle := AWinControl.Handle; Handle := AWinControl.Handle;
pwAText := StringToPWideChar(AText); pwAText := StringToPWideChar(AText);
if TCustomComboBox(AWinControl).ReadOnly then if TCustomComboBox(AWinControl).ReadOnly then
@ -1011,7 +1011,8 @@ begin
// can not apply on the fly: needs window recreate // can not apply on the fly: needs window recreate
RecreateWnd(ACustomStaticText); RecreateWnd(ACustomStaticText);
end; end;
{ TWin32WSButtonControl }
{ TWinCEWSButtonControl }
class procedure TWinCEWSButtonControl.GetPreferredSize(const AWinControl: TWinControl; class procedure TWinCEWSButtonControl.GetPreferredSize(const AWinControl: TWinControl;
var PreferredWidth, PreferredHeight: integer; WithThemeSpace: Boolean); var PreferredWidth, PreferredHeight: integer; WithThemeSpace: Boolean);