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

fixed typo cant

Browse Source 
git-svn-id: trunk@27305 -
This commit is contained in:
mattias 2010-09-11 14:06:32 +00:00
parent 369aa3055c
commit dc78f11aef
13 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/printers/win32/winprinters.inc
View File

@ -6,7 +6,7 @@ Uses InterfaceBase, LCLIntf, WinVer, WinUtilPrn;
// todo: this ^ is a mess: mixed WinUtilPrn/Windows units clean...
// todo: this should be a method, cant be atm because mixed units ^
// todo: this should be a method, can not be atm because mixed units ^
function GetCurrentDevMode(out DM:PDeviceMode): boolean;
var
PDev: TPrinterDevice;

2
debugger/fpdebug/dbgclasses.pp
View File

@ -584,7 +584,7 @@ function TDbgProcess.HandleDebugEvent(const ADebugEvent: TDebugEvent): Boolean;
end;
end
else begin
// if we cant get the context, we probable weren't able to set it either
// if we can not get the context, we probable weren't able to set it either
Log('Thread %u: Unable to get context', [ADebugEvent.dwThreadId]);
end;

2
debugger/fpdebug/dbgdwarf.pas
View File

@ -1924,7 +1924,7 @@ begin
if Scope.Next <> nil
then begin
// scope.Childvalid is true, otherwise we cant have a next.
// scope.Childvalid is true, otherwise we can not have a next.
// So no need to check
if lefSearchSibling in AFlags
then begin

2
debugger/gdbmidebugger.pp
View File

@ -5798,7 +5798,7 @@ begin
else Result := SolveMath(ADebugger, Left, Left^.Next, Value, Info);
end;
eoDereference: begin
Result := (ARight = '') // right part cant have value
Result := (ARight = '') // right part can not have value
and SolveDeref(ADebugger, Left, Value, Info);
end;
eoAddress: begin

2
lcl/include/customlistbox.inc
View File

@ -51,7 +51,7 @@ var
begin
// Paul: This will happen only once if Style = lbStandard then CheckListBox is
// OwnerDrawFixed in real (under windows). Handle is not allocated and we
// cant use Canvas since it will cause recursion but we need correct font height
// can not use Canvas since it will cause recursion but we need correct font height
B := TBitmap.Create;
try
B.Canvas.Font := Font;

2
lcl/interfaces/gtk/gtklclintf.inc
View File

@ -373,7 +373,7 @@ begin
// create a GdkPixmap
if ImgData <> nil
then begin
{ The gdk_pixmap_create_from_data creates only a two-color pixmap so we cant use it }
{ The gdk_pixmap_create_from_data creates only a two-color pixmap so we can not use it }
GdkImage := gdk_image_new(GDK_IMAGE_FASTEST, Visual, ImgWidth, ImgHeight);

2
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -6343,7 +6343,7 @@ begin
Data := GetLCLObject(Pointer(Handle));
if Data is TControl
then Result := PtrInt(@(TControl(Data).WindowProc));
// TODO fix this, a method pointer (2 pointers) cant be casted to a longint
// TODO fix this, a method pointer (2 pointers) can not be casted to a longint
end;
}
{ GWL_HWNDPARENT :

2
lcl/interfaces/gtk/gtkwsdialogs.pp
View File

@ -374,7 +374,7 @@ var
// maybe user entered nonexistent dir
if ((AFileName<>'') and (IsPathDelimiter(AFileName, Length(AFileName)))) then
begin
// cant jump to nonexistent dir
// can not jump to nonexistent dir
if not (ofNoChangeDir in TOpenDialog(TheDialog).Options) then
MessageDlg(rsfdDirectoryMustExist, Format(rsfdDirectoryNotExist,[AFileName]),
mtError, [mbCancel], 0); // GTK2 shows "The folder contents could not be displayed"

2
lcl/interfaces/gtk2/gtk2lclintf.inc
View File

@ -390,7 +390,7 @@ begin
// create a GdkPixmap
if ImgData <> nil
then begin
{ The gdk_pixmap_create_from_data creates only a two-color pixmap so we cant use it }
{ The gdk_pixmap_create_from_data creates only a two-color pixmap so we can not use it }
GdkImage := gdk_image_new(GDK_IMAGE_FASTEST, Visual, ImgWidth, ImgHeight);

2
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -5631,7 +5631,7 @@ begin
Data := GetLCLObject(Pointer(Handle));
if Data is TControl
then Result := PtrInt(@(TControl(Data).WindowProc));
// TODO fix this, a method pointer (2 pointers) cant be casted to a longint
// TODO fix this, a method pointer (2 pointers) can not be casted to a longint
end;
}
{ GWL_HWNDPARENT :

2
lcl/interfaces/win32/win32wscustomlistview.inc
View File

@ -300,7 +300,7 @@ begin
if not WSCheckHandleAllocated(ALV, 'ColumnGetWidth')
then Exit;
// do not use ListView_GetColumnWidth since we cant detect errors
// do not use ListView_GetColumnWidth since we can not detect errors
lvc.Mask := LVCF_WIDTH;
if ListView_GetColumn(ALV.Handle, AIndex, lvc) <> 0
then Result := lvc.cx;

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

@ -100,7 +100,7 @@ begin
if not WSCheckHandleAllocated(ALV, 'ColumnGetWidth')
then Exit;
// do not use ListView_GetColumnWidth since we cant detect errors
// do not use ListView_GetColumnWidth since we can not detect errors
lvc.Mask := LVCF_WIDTH;
if LongInt(ListView_GetColumn(ALV.Handle, AIndex, lvc)) <> 0 then Result := lvc.cx;
end;

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

@ -302,7 +302,7 @@ begin
if LCLMenu.Items.Items[j].Checked then
tbbi.fsState:=tbbi.fsState or TBSTATE_CHECKED;
// Adds a top-level item (We cant really add it, so we find
// Adds a top-level item (We can not really add it, so we find
// and modify the existing top-level item)
if i = 2 then Break; // smartphones have maximum 2 top level menu items.