Changeset 243 for tools/Prepare DPI/UFormMain.pas
- Timestamp:
- May 19, 2020, 11:02:36 PM (4 years ago)
- Location:
- tools/Prepare DPI
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
tools/Prepare DPI
-
Property svn:ignore
set to
project1
project1.res
project1.lps
lib
-
Property svn:ignore
set to
-
tools/Prepare DPI/UFormMain.pas
r217 r243 60 60 if (SR.Name = '.') or (SR.Name = '..') then Continue; 61 61 FullName := Dir + SR.Name; 62 if FullName = '/home/chronos/Projekty/wowpreklad/trunk/tmp/user/' then begin63 FullName := FullName;64 end;65 62 if not Assigned(FilterMethod) or (Assigned(FilterMethod) and FilterMethod(FullName)) then begin; 66 63 if Assigned(FileNameMethod) then … … 91 88 if not Initialized then begin 92 89 Initialized := True; 93 ShowMessage(IntToStr(Screen.PixelsPerInch));94 90 end; 95 91 end;
Note:
See TracChangeset
for help on using the changeset viewer.