Changeset 403 for trunk

Timestamp:

May 22, 2016, 2:09:18 PM (9 years ago)

Author:

RBRi

Message:

use stuff from the libs

Location:

trunk/Components

Files:

• CanvasFontManager.pas (modified) (1 diff)
• Components.spr (modified) (10 diffs)
• CustomFileControls.pas (modified) (16 diffs)

trunk/Components/CanvasFontManager.pas

@@ -140 +140 @@
   PmDev,
   SysUtils,
+
   StringUtilsUnit;
 

trunk/Components/Components.spr

@@ -1 +1 @@
 [Application Options]
 
-ApplicationIcon=D:\Development\Sibyl\BIN\SIBYL.ICO
+ApplicationIcon=D:\progs\develop\SIBYL_FP3\BIN\SIBYL.ICO
 
 [Breakpoints]
@@ -106 +106 @@
 [Component Library OS/2]
 
-CompLibName=D:\Development\Sibyl\bin\CompLib.dll
+CompLibName=D:\progs\develop\SIBYL_FP3\bin\CompLib.dll
 
 [Debugger Options]
@@ -120 +120 @@
 LastDir=P:\NEWVIEW_DEV\COMPONENTS
 OutDir=P:\newview_dev\build\components
-LibDir=P:\newview_dev\build\sibyl\lib;P:\newview_dev\build\library;
+LibDir=P:\newview_dev\build\sibyl\lib;P:\newview_dev\build\library
 LibSrcDir=P:\newview_dev\Sibyl\RTL;P:\newview_dev\Sibyl\SPCC;P:\newview_dev\library
 IncSrcDir=
@@ -127 +127 @@
 [Find History]
 
-Find0=Br
-Find1=.exec
-Find2=OnThreadTerminate
-Find3=onterminate
-Find4=jobproc
-Find5=onterm
-Find6=doterminate
-Find7=ontermin
-Find8=onjob
-Find9=.upda
-Find10=.synch
-Find11=syncho
-Find12=execute
-Find13=tthread.exe
-Find14=tthread
-Find15=.GetOffsetFromX
+Find0=StringUtilsUnit
+Find1=Br
+Find2=.exec
+Find3=OnThreadTerminate
+Find4=onterminate
+Find5=jobproc
+Find6=onterm
+Find7=doterminate
+Find8=ontermin
+Find9=onjob
+Find10=.upda
+Find11=.synch
+Find12=syncho
+Find13=execute
+Find14=tthread.exe
+Find15=tthread
 
 [General]
 
 Version=Sibyl Project Ver2.02
-ProjectName=P:\NEWVIEW_DEV\Components\Components.spr
+ProjectName=P:\NEWVIEW_DEV\COMPONENTS\Components.spr
 ProjectType=Visual
-CompLibName=D:\Development\Sibyl\bin\CompLib.dll
-Win32CompLibName=D:\Development\Sibyl\bin\CompLib.dll
+CompLibName=D:\progs\develop\SIBYL_FP3\bin\CompLib.dll
+Win32CompLibName=D:\progs\develop\SIBYL_FP3\bin\CompLib.dll
 RunParameter=
 InActiveLanguages=
@@ -170 +170 @@
 File0.Left=-4
 File0.Bottom=-5
-File0.Width=1306
-File0.Height=548
+File0.Width=1388
+File0.Height=582
 File0.Column=1
 File0.Line=8
@@ -177 +177 @@
 File1.Left=-4
 File1.Bottom=-5
-File1.Width=1306
-File1.Height=548
+File1.Width=1388
+File1.Height=582
 File1.Column=56
 File1.Line=104
@@ -184 +184 @@
 File2.Left=-4
 File2.Bottom=-5
-File2.Width=1306
-File2.Height=548
+File2.Width=1388
+File2.Height=582
 File2.Column=21
 File2.Line=216
+File3=.\CanvasFontManager.pas
+File3.Left=-4
+File3.Bottom=-5
+File3.Width=1388
+File3.Height=582
+File3.Column=3
+File3.Line=143
 
 [Linker Options]
@@ -208 +215 @@
 MainFile0=.\Components.pas
 MainFile0.Ext=.EXE
-MainFile0.Checksum=20992
+MainFile0.Checksum=0
 MainFile0.Expanded=False
 MainFile0.File0=.\ACLDialogs.pas
@@ -356 +363 @@
 [Repository]
 
-Page0=Projects
+Page0=[Object Repository]
 Page0.Installed=True
-Page0.Object0=SpeedSoft.AppExpert
-Page0.Object0.NewProject=False
-Page0.Object0.NewForm=False
-Page0.Object0.MainForm=False
-Page0.Object0.InPage=True
-Page0.Object0.Title=AppExpert
-Page0.Object0.Description=(C) 1997 SpeedSoft.
-Page0.Object0.Author=SpeedSoft
-Page1=[Object Repository]
-Page1.Installed=True
-Page1.Object0=SpeedSoft.AppExpert
-Page1.Object0.NewProject=False
-Page1.Object0.NewForm=False
-Page1.Object0.MainForm=False
-Page1.Object0.InPage=True
-Page1.Object0.Title=AppExpert
-Page1.Object0.Description=(C) 1997 SpeedSoft.
-Page1.Object0.Author=SpeedSoft
 
 [SCU]
@@ -382 +371 @@
 MainForm=ComponentsTestForm
 
-[Watch]
-
-Watch0=+font.pfacename^
-Watch1=+font.fonttype
-Watch2=+achild.fname^
-Watch3=+afont.ffontinfo.fsselection
-Watch4=+afont.ffontinfo.usweightclass
-Watch5=+afont.ffontinfo
-
 [Win32 Application Options]
 
-ApplicationIcon=D:\Development\Sibyl\BIN\SIBYL.ICO
+ApplicationIcon=D:\progs\develop\SIBYL_FP3\BIN\SIBYL.ICO
 
 [Win32 Compiler Options]

trunk/Components/CustomFileControls.pas

@@ -7 +7 @@
 
 Uses
-  Dos, SysUtils, Classes, Forms, StdCtrls, CustomListBox, Graphics;
+  Dos,
+  SysUtils,
+  Classes,
+  Forms,
+  StdCtrls,
+  CustomListBox,
+  Graphics;
 
 
@@ -337 +343 @@
 
 Uses
-{$IFDEF OS2}
-  BseDos, OS2Def, DriveInfoUnit,
-  BseDev, BseErr,
-{$ENDIF}
-
-{$IFDEF Win95}
-  WinBase,
-{$ENDIF}
+  BseDos,
+  OS2Def,
+  BseDev,
+  BseErr,
+
   Dialogs,
-  ACLStringUtility, ACLUtility, ACLFileUtility, BitmapUtility;
+  FileUtilsUnit,
+  ACLUtility,
+  BitmapUtility,
+  StringUtilsUnit;
 
 var
@@ -459 +465 @@
      While S<>'' Do
      Begin
-          NextFilter:=Pos(';',S);
+          NextFilter:=Pos(PATH_SEPARATOR,S);
           If NextFilter<>0 Then
           Begin
@@ -471 +477 @@
           End;
 
-          Status := SysUtils.FindFirst(FDirectory + '\' + ThisFilter, Attr,Search);
+          Status := SysUtils.FindFirst(FDirectory + DIRECTORY_SEPARATOR + ThisFilter, Attr,Search);
           While Status = 0 Do
           Begin
@@ -484 +490 @@
      While S<>'' Do
      Begin
-          If Pos(';',S)<>0 Then
+          If Pos(PATH_SEPARATOR,S)<>0 Then
           Begin
                s1:=S;
-               Delete(s1,1,Pos(';',S));
-               SetLength(S,Pos(';',S)-1);
+               Delete(s1,1,Pos(PATH_SEPARATOR,S));
+               SetLength(S,Pos(PATH_SEPARATOR,S)-1);
           End
           Else s1:='';
 
-          Status := SysUtils.FindFirst(FDirectory + '\' + S, Attr,Search);
+          Status := SysUtils.FindFirst(FDirectory + DIRECTORY_SEPARATOR + S, Attr,Search);
           While Status = 0 Do
           Begin
@@ -554 +560 @@
           GetDir(Ord(UpCase(Drive))-Ord('A')+1,s);
           {$I+}
-          If (s[length(s)])='\' Then dec(s[0]);
-          If not (NewDir[1] In ['/','\']) Then s:=s+'\';
+          If (s[length(s)])=DIRECTORY_SEPARATOR Then dec(s[0]);
+          If not (NewDir[1] In ['/',DIRECTORY_SEPARATOR]) Then s:=s+DIRECTORY_SEPARATOR;
           NewDir:=s+NewDir;
      End;
 
-     If NewDir[Length(NewDir)] = '\' Then SetLength(NewDir,Length(NewDir)-1);
+     If NewDir[Length(NewDir)] = DIRECTORY_SEPARATOR Then SetLength(NewDir,Length(NewDir)-1);
      If FDirectory=NewDir Then exit;
      FDirectory := NewDir;
@@ -602 +608 @@
      Else Result := Items[ idx ];
      s:=Directory;
-     If s[Length(s)] In ['\','/'] Then dec(s[0]);
-     If s<>'' Then If Result<>'' Then Result:=s+'\'+Result;
+     If s[Length(s)] In [DIRECTORY_SEPARATOR,'/'] Then dec(s[0]);
+     If s<>'' Then If Result<>'' Then Result:=s+DIRECTORY_SEPARATOR+Result;
 End;
 
@@ -864 +870 @@
     Data:= longint( Items.Objects[ Index ] );
     if ( Data and dfSubDir ) = 0 then
-      FullPath:= AddSlash( S ) + FullPath;
+      FullPath:= AddDirectorySeparator( S ) + FullPath;
     dec( Index );
   end;
@@ -882 +888 @@
   IndentLevel: longint;
   PathSoFar: string;
+  tmpPathElements : TStringList;
+  i : integer;
 Begin
   Screen.Cursor := crHourGlass;
@@ -897 +905 @@
   Path := Copy( Directory, 4, 255 );
   PathSoFar := Copy( Directory, 1, 3 );
-  While Path <> '' Do
-  Begin
+
+  tmpPathElements := TStringList.Create;
+  StrExtractStrings(tmpPathElements, Path, [DIRECTORY_SEPARATOR], #0);
+
+  for i := 0 to tmpPathElements.Count - 1 do
+  begin
     inc( IndentLevel );
-    S:= ExtractNextValue( Path, '\' );
+    S := tmpPathElements[i];
 
     if not DirectoryExists( PathSoFar + S ) then
@@ -909 +921 @@
     end;
     Items.AddObject( S, pointer( IndentLevel ) );
-    PathSoFar := PathSoFar + S + '\';
+    PathSoFar := PathSoFar + S + DIRECTORY_SEPARATOR;
   End;
 
+  tmpPathElements.Destroy;
   ItemIndex:= Items.Count - 1;
 
@@ -918 +931 @@
   SubDirs:= TStringList.Create;
 
-  Status := SysUtils.FindFirst( AddSlash( Directory ) + '*.*', faDirectory, Search);
+  Status := SysUtils.FindFirst( AddDirectorySeparator( Directory ) + '*.*', faDirectory, Search);
   While Status = 0 Do
   Begin
@@ -967 +980 @@
     GetDir(Ord(UpCase(Drive))-Ord('A')+1,s);
     {$I+}
-    S:= RemoveSlash( S );
-    S:= AddSlash( S );
+    S:= RemoveRightDirectorySeparator( S );
+    S:= AddDirectorySeparator( S );
     NewDir:=s+NewDir;
   End;
 
-  NewDir:= RemoveSlash( NewDir );
+  NewDir:= RemoveRightDirectorySeparator( NewDir );
 
   FDirectory := NewDir;
@@ -1116 +1129 @@
       begin
         try
-          DriveLabel := GetVolumeLabel( DriveNumberToLetter( DriveNumber ) );
+          DriveLabel := GetVolumeLabel( DriveNumberToDriveLetter( DriveNumber ) );
           DriveString := DriveString + DriveLabel;
         except
@@ -1142 +1155 @@
     on EInOutError do
       // Current drive inaccessible
-      Drive := GetBootDrive;
+      Drive := GetBootDriveLetter;
   end;
 End;
@@ -1261 +1274 @@
                                 // and the user doesn't want to retry,
                                 // so go back to boot drive.
-                                SetDrive( GetBootDrive );
+                                SetDrive(GetBootDriveLetter);
                                 Screen.Cursor := crDefault;
                                 Exit;