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

changes for fpc 1.1

Browse Source 
git-svn-id: trunk@3738 -
This commit is contained in:
mattias 2002-12-27 08:46:32 +00:00
parent 6167af23a2
commit 3bcd792d80
6 changed files with 87 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/codetools/fileprocs.pas
View File

@ -116,11 +116,17 @@ begin
begin
AText:='"'+AFilename+'"';
case LinuxError of
sys_eacces: AText:=Format(ctsExecuteAccessDeniedForFile,[AText]);
sys_enoent: AText:=Format(ctsDirComponentDoesNotExistsOrIsDanglingSymLink,[AText]);
sys_enotdir: AText:=Format(ctsDirComponentIsNotDir,[AText]);
sys_enomem: AText:=ctsInsufficientMemory;
sys_eloop: AText:=Format(ctsFileHasCircularSymLink,[AText]);
{$IFDEF Ver1_0}sys_eacces{$ELSE}ESysEAcces{$ENDIF}:
AText:='read access denied for '+AText;
{$IFDEF Ver1_0}sys_enoent{$ELSE}ESysENoEnt{$ENDIF}:
AText:='a directory component in '+AText
+' does not exist or is a dangling symlink';
{$IFDEF Ver1_0}sys_enotdir{$ELSE}ESysENotDir{$ENDIF}:
AText:='a directory component in '+Atext+' is not a directory';
{$IFDEF Ver1_0}sys_enomem{$ELSE}ESysENoMem{$ENDIF}:
AText:='insufficient memory';
{$IFDEF Ver1_0}sys_eloop{$ELSE}ESysELoop{$ENDIF}:
AText:=AText+' has a circular symbolic link';
else
AText:=Format(ctsFileIsNotExecutable,[AText]);
end;

21
lcl/include/customlistbox.inc
View File

@ -124,6 +124,27 @@ begin
CNSendMessage(LM_SETSELMODE, Self, @Msg);
end;
{------------------------------------------------------------------------------
function TCustomListBox.GetTopIndex: Integer;
------------------------------------------------------------------------------}
function TCustomListBox.GetTopIndex: Integer;
begin
if HandleAllocated then
FTopIndex:=SendMessage(Handle, LB_GETTOPINDEX, 0, 0);
Result := FTopIndex;
end;
{------------------------------------------------------------------------------
procedure TCustomListBox.SetTopIndex(const AValue: Integer);
------------------------------------------------------------------------------}
procedure TCustomListBox.SetTopIndex(const AValue: Integer);
begin
if FTopIndex=AValue then exit;
FTopIndex:=AValue;
if HandleAllocated then
SendMessage(Handle, LB_SETTOPINDEX, FTopIndex, 0);
end;
{------------------------------------------------------------------------------
procedure TCustomListBox.UpdateSorted;
------------------------------------------------------------------------------}

33
lcl/include/filectrl.inc
View File

@ -308,12 +308,17 @@ begin
if {$IFDEF Ver1_0}Linux{$ELSE}Unix{$ENDIF}.ReadLink(AFilename)='' then begin
AText:='"'+AFilename+'"';
case LinuxError of
sys_eacces: AText:='read access denied for '+AText;
sys_enoent: AText:='a directory component in '+AText
{$IFDEF Ver1_0}sys_eacces{$ELSE}ESysEAcces{$ENDIF}:
AText:='read access denied for '+AText;
{$IFDEF Ver1_0}sys_enoent{$ELSE}ESysENoEnt{$ENDIF}:
AText:='a directory component in '+AText
+' does not exist or is a dangling symlink';
sys_enotdir: AText:='a directory component in '+Atext+' is not a directory';
sys_enomem: AText:='insufficient memory';
sys_eloop: AText:=AText+' has a circular symbolic link';
{$IFDEF Ver1_0}sys_enotdir{$ELSE}ESysENotDir{$ENDIF}:
AText:='a directory component in '+Atext+' is not a directory';
{$IFDEF Ver1_0}sys_enomem{$ELSE}ESysENoMem{$ENDIF}:
AText:='insufficient memory';
{$IFDEF Ver1_0}sys_eloop{$ELSE}ESysELoop{$ENDIF}:
AText:=AText+' has a circular symbolic link';
else
AText:=AText+' is not a symbolic link';
end;
@ -495,12 +500,17 @@ begin
begin
AText:='"'+AFilename+'"';
case LinuxError of
sys_eacces: AText:='execute access denied for '+AText;
sys_enoent: AText:='a directory component in '+AText
{$IFDEF Ver1_0}sys_eacces{$ELSE}ESysEAcces{$ENDIF}:
AText:='read access denied for '+AText;
{$IFDEF Ver1_0}sys_enoent{$ELSE}ESysENoEnt{$ENDIF}:
AText:='a directory component in '+AText
+' does not exist or is a dangling symlink';
sys_enotdir: AText:='a directory component in '+Atext+' is not a directory';
sys_enomem: AText:='insufficient memory';
sys_eloop: AText:=AText+' has a circular symbolic link';
{$IFDEF Ver1_0}sys_enotdir{$ELSE}ESysENotDir{$ENDIF}:
AText:='a directory component in '+Atext+' is not a directory';
{$IFDEF Ver1_0}sys_enomem{$ELSE}ESysENoMem{$ENDIF}:
AText:='insufficient memory';
{$IFDEF Ver1_0}sys_eloop{$ELSE}ESysELoop{$ENDIF}:
AText:=AText+' has a circular symbolic link';
else
AText:=AText+' is not executable';
end;
@ -700,6 +710,9 @@ end;
{
$Log$
Revision 1.9 2002/12/27 08:46:32 mattias
changes for fpc 1.1
Revision 1.8 2002/12/23 13:20:46 mattias
fixed backuping symlinks

13
lcl/include/region.inc
View File

@ -89,15 +89,20 @@ end;
Creates a region if needed
------------------------------------------------------------------------------}
function TRegion.GetHandle: HRGN;
var
FillMode: integer;
begin
If FRegiondata.Handle = 0 then
With FRegionData do
if (Polygon <> nil) or (((Rect.Right - Rect.Left) <> 0) or ((Rect.Bottom - Rect.Top) <> 0))
then
If Polygon <> nil then
FRegionData.Handle := CreatePolygonRgn(Polygon,
NumPoints, Winding)
else
If Polygon <> nil then begin
if Winding then
FillMode:=LCLType.Winding
else
FillMode:=Alternate;
FRegionData.Handle := CreatePolygonRgn(Polygon, NumPoints, FillMode);
end else
With Rect do
FRegionData.Handle := CreateRectRgn(Left, Top, Right, Bottom);

14
lcl/lmessages.pp
View File

@ -136,9 +136,16 @@ const
LM_CB_ADDTEXT = LM_CB_FIRST+3;
LM_CB_LAST = LM_CB_FIRST+9; // LM_COMUSER+99
// additional for TNoteBook
LM_NB_UpdateTab = LM_CB_LAST+1;
// TNoteBook
LM_NB_First = LM_CB_LAST+1;
LM_NB_UpdateTab = LM_NB_First+1;
LM_NB_Last = LM_NB_UpdateTab;
// TListBox
LB_First = LM_NB_Last +1;
LB_GETTOPINDEX = LB_First +1;
LB_SETTOPINDEX = LB_First +2;
LB_Last = LB_SETTOPINDEX;
//-------------
//end of messages that are sent to the interface
@ -892,6 +899,9 @@ end.
{
$Log$
Revision 1.43 2002/12/27 08:46:32 mattias
changes for fpc 1.1
Revision 1.42 2002/12/16 09:02:27 mattias
applied win32 notebook patch from Vincent

15
lcl/stdctrls.pp
View File

@ -329,15 +329,18 @@ type
TCustomListBox = class(TWinControl)
private
FBorderStyle : TBorderStyle;
FBorderStyle: TBorderStyle;
FCanvas: TCanvas;
FExtendedSelect, FMultiSelect : boolean;
FItems : TStrings;
FItems: TStrings;
FItemHeight: Integer;
FItemIndex: integer;
FOnDrawItem: TDrawItemEvent;
FSorted : boolean;
FStyle : TListBoxStyle;
FSorted: boolean;
FStyle: TListBoxStyle;
FTopIndex: integer;
function GetTopIndex: Integer;
procedure SetTopIndex(const AValue: Integer);
procedure UpdateSelectionMode;
procedure UpdateSorted;
procedure LMDrawListItem(var TheMessage : TLMDrawListItem); message LM_DrawListItem;
@ -377,6 +380,7 @@ type
property MultiSelect : boolean read FMultiSelect write SetMultiSelect;
property SelCount : integer read GetSelCount;
property Selected[Index : integer] : boolean read GetSelected write SetSelected;
property TopIndex: Integer read GetTopIndex write SetTopIndex;
end;
@ -1387,6 +1391,9 @@ end.
{ =============================================================================
$Log$
Revision 1.71 2002/12/27 08:46:32 mattias
changes for fpc 1.1
Revision 1.70 2002/12/22 23:25:34 mattias
fixed setting TEdit properties after creating handle