Permalink
Browse files

Added files

  • Loading branch information...
0 parents commit 238b7749629c219c25716a5f04a66fb9dfa5feb2 @martijnlaan martijnlaan committed Oct 6, 2011
Showing with 91,272 additions and 0 deletions.
  1. +2 −0 .gitignore
  2. +1 −0 Components/.gitignore
  3. +126 −0 Components/BidiCtrls.pas
  4. +88 −0 Components/BidiUtils.pas
  5. +231 −0 Components/BitmapImage.pas
  6. +119 −0 Components/DropListBox.pas
  7. +1,205 −0 Components/FolderTreeView.pas
  8. +2,130 −0 Components/NewCheckListBox.pas
  9. +332 −0 Components/NewNotebook.pas
  10. +127 −0 Components/NewNotebookReg.pas
  11. +171 −0 Components/NewProgressBar.pas
  12. +330 −0 Components/NewStaticText.pas
  13. +301 −0 Components/NewTabSet.pas
  14. +107 −0 Components/PasswordEdit.pas
  15. +587 −0 Components/PathFunc.pas
  16. +236 −0 Components/PathFuncTest.pas
  17. +310 −0 Components/RichEditViewer.pas
  18. +2,048 −0 Components/ScintEdit.pas
  19. +902 −0 Components/ScintInt.pas
  20. +1,179 −0 Components/ScintStylerInnoSetup.pas
  21. +1,629 −0 Components/TmSchemaISX.pas
  22. +1,193 −0 Components/UxThemeISX.pas
  23. +150 −0 Components/dwTaskbarList.pas
  24. +32 −0 Examples/64Bit.iss
  25. +48 −0 Examples/64BitThreeArch.iss
  26. +34 −0 Examples/64BitTwoArch.iss
  27. +310 −0 Examples/CodeAutomation.iss
  28. +298 −0 Examples/CodeAutomation2.iss
  29. +364 −0 Examples/CodeClasses.iss
  30. +204 −0 Examples/CodeDlg.iss
  31. +72 −0 Examples/CodeDll.iss
  32. +149 −0 Examples/CodeExample1.iss
  33. +117 −0 Examples/CodePrepareToInstall.iss
  34. +33 −0 Examples/Components.iss
  35. +22 −0 Examples/Example1.iss
  36. +24 −0 Examples/Example2.iss
  37. +35 −0 Examples/Example3.iss
  38. +44 −0 Examples/ISPPExample1.iss
  39. +4 −0 Examples/ISPPExample1License.txt
  40. +59 −0 Examples/Languages.iss
  41. +14 −0 Examples/MyDll/Delphi/MyDll.dpr
  42. BIN Examples/MyProg-IA64.exe
  43. BIN Examples/MyProg-x64.exe
  44. +5 −0 Examples/MyProg/Help/hh_contents.hhc
  45. +3 −0 Examples/MyProg/Help/hh_index.hhk
  46. +18 −0 Examples/MyProg/Help/hh_project.hhp
  47. +125 −0 Examples/MyProg/Help/styles.css
  48. +15 −0 Examples/MyProg/Help/topic_myprog.htm
  49. +28 −0 Examples/MyProg/MyProg.manifest.txt
  50. +563 −0 Examples/MyProg/MyProg.vcproj
  51. +16 −0 Examples/MyProg/resource.h
  52. +1 −0 Examples/Readme-Dutch.txt
  53. +1 −0 Examples/Readme-German.txt
  54. +1 −0 Examples/Readme.txt
  55. +45 −0 Examples/UninstallCodeExample1.iss
  56. +6 −0 Files/.gitignore
  57. +317 −0 Files/Default.isl
  58. BIN Files/ISPP.ico
  59. +345 −0 Files/ISPPBuiltins.iss
  60. +318 −0 Files/Languages/Basque.isl
  61. +341 −0 Files/Languages/BrazilianPortuguese.isl
  62. +302 −0 Files/Languages/Catalan.isl
  63. +318 −0 Files/Languages/Czech.isl
  64. +315 −0 Files/Languages/Danish.isl
  65. +297 −0 Files/Languages/Dutch.isl
  66. +296 −0 Files/Languages/Finnish.isl
  67. +322 −0 Files/Languages/French.isl
  68. +306 −0 Files/Languages/German.isl
  69. +314 −0 Files/Languages/Hebrew.isl
  70. +339 −0 Files/Languages/Hungarian.isl
  71. +323 −0 Files/Languages/Italian.isl
  72. +303 −0 Files/Languages/Japanese.isl
  73. +312 −0 Files/Languages/Norwegian.isl
  74. +309 −0 Files/Languages/Polish.isl
  75. +301 −0 Files/Languages/Portuguese.isl
  76. +307 −0 Files/Languages/Russian.isl
  77. +244 −0 Files/Languages/Slovak.isl
  78. +307 −0 Files/Languages/Slovenian.isl
  79. +316 −0 Files/Languages/Spanish.isl
  80. BIN Files/WizModernImage-IS.bmp
  81. BIN Files/WizModernImage.bmp
  82. BIN Files/WizModernSmallImage-IS.bmp
  83. BIN Files/WizModernSmallImage.bmp
  84. BIN Files/isbunzip.dll
  85. BIN Files/isbzip.dll
  86. BIN Files/islzma.dll
  87. BIN Files/islzma32.exe
  88. BIN Files/islzma64.exe
  89. BIN Files/isscint.dll
  90. BIN Files/isunzlib.dll
  91. BIN Files/iszlib.dll
  92. +5 −0 Projects/.gitignore
  93. +76 −0 Projects/ArcFour.pas
  94. +268 −0 Projects/BrowseFunc.pas
  95. +473 −0 Projects/CmnFunc.pas
  96. +1,672 −0 Projects/CmnFunc2.pas
  97. BIN Projects/CompDocIcon.res
  98. +158 −0 Projects/CompFileAssoc.pas
  99. BIN Projects/CompForm.dfm
  100. +1,124 −0 Projects/CompForm.dfm.txt
  101. +4,246 −0 Projects/CompForm.pas
  102. BIN Projects/CompImages.res
  103. +167 −0 Projects/CompInt.pas
  104. +379 −0 Projects/CompMsgs.pas
  105. BIN Projects/CompOptions.dfm
  106. +254 −0 Projects/CompOptions.dfm.txt
  107. +101 −0 Projects/CompOptions.pas
  108. +121 −0 Projects/CompPreprocInt.pas
  109. +375 −0 Projects/CompResUpdate.pas
  110. BIN Projects/CompSignTools.dfm
  111. +84 −0 Projects/CompSignTools.dfm.txt
  112. +165 −0 Projects/CompSignTools.pas
  113. BIN Projects/CompStartup.dfm
  114. +176 −0 Projects/CompStartup.dfm.txt
  115. +121 −0 Projects/CompStartup.pas
  116. BIN Projects/CompWizard.dfm
  117. +1,716 −0 Projects/CompWizard.dfm.txt
  118. +1,024 −0 Projects/CompWizard.pas
  119. BIN Projects/CompWizardFile.dfm
  120. +151 −0 Projects/CompWizardFile.dfm.txt
  121. +198 −0 Projects/CompWizardFile.pas
  122. +75 −0 Projects/Compil32.dof
  123. +161 −0 Projects/Compil32.dpr
  124. +1 −0 Projects/Compil32.manifest.rc
  125. BIN Projects/Compil32.manifest.res
  126. +34 −0 Projects/Compil32.manifest.txt
  127. BIN Projects/Compil32.res
  128. +9,057 −0 Projects/Compile.pas
  129. +514 −0 Projects/Compress.pas
  130. +302 −0 Projects/CompressZlib.pas
  131. +93 −0 Projects/D2009Win2kFix.pas
  132. +296 −0 Projects/DebugClient.pas
  133. +166 −0 Projects/DebugStruct.pas
  134. +380 −0 Projects/Extract.pas
  135. +693 −0 Projects/FileClass.pas
  136. +489 −0 Projects/Helper.pas
  137. +448 −0 Projects/Helper/Helper.c
  138. +28 −0 Projects/Helper/Helper.manifest.txt
  139. +1 −0 Projects/Helper/Helper.rc
  140. +32 −0 Projects/Helper/Helper.sln
  141. +544 −0 Projects/Helper/Helper.vcproj
  142. +5 −0 Projects/HelperEXEs.rc
  143. BIN Projects/HelperEXEs.res
  144. +114 −0 Projects/HtmlHelpFunc.pas
  145. +334 −0 Projects/ISCC.dpr
  146. +1 −0 Projects/ISCC.manifest.rc
  147. BIN Projects/ISCC.manifest.res
  148. +16 −0 Projects/ISCC.manifest.txt
  149. +160 −0 Projects/ISCmplr.dpr
  150. BIN Projects/Images.res
  151. +559 −0 Projects/InstFnc2.pas
  152. +1,473 −0 Projects/InstFunc.pas
  153. +3,016 −0 Projects/Install.pas
  154. +1,115 −0 Projects/LZMA.pas
  155. +304 −0 Projects/LZMADecomp.pas
  156. +213 −0 Projects/LZMADecompSmall.pas
  157. +170 −0 Projects/LibFusion.pas
  158. +186 −0 Projects/Logging.pas
  159. +113 −0 Projects/LzmaDecode/LzmaDecode.h
  160. +38 −0 Projects/LzmaDecode/LzmaDecodeInno.c
  161. BIN Projects/LzmaDecode/LzmaDecodeInno.obj
  162. +712 −0 Projects/LzmaDecode/LzmaDecodeSize.c
  163. +45 −0 Projects/LzmaDecode/LzmaTypes.h
  164. +10 −0 Projects/LzmaDecode/compiling.txt
  165. BIN Projects/Main.dfm
  166. +18 −0 Projects/Main.dfm.txt
  167. +4,219 −0 Projects/Main.pas
  168. +197 −0 Projects/Msgs.pas
  169. BIN Projects/NewDisk.dfm
  170. +79 −0 Projects/NewDisk.dfm.txt
  171. +127 −0 Projects/NewDisk.pas
  172. +597 −0 Projects/RedirFunc.pas
  173. +28 −0 Projects/RegDLL/RegDLL.manifest.txt
  174. +213 −0 Projects/RegDLL/RegDLL.vcproj
  175. +5 −0 Projects/RegDLLEXE.rc
  176. BIN Projects/RegDLLEXE.res
  177. +347 −0 Projects/ResUpdate.pas
  178. +275 −0 Projects/SHA1.pas
  179. +65 −0 Projects/SafeDLLPath.pas
  180. +632 −0 Projects/ScriptClasses_C.pas
  181. +687 −0 Projects/ScriptClasses_R.pas
  182. +457 −0 Projects/ScriptCompiler.pas
  183. +835 −0 Projects/ScriptDlg.pas
  184. +320 −0 Projects/ScriptFunc.pas
  185. +280 −0 Projects/ScriptFunc_C.pas
  186. +1,911 −0 Projects/ScriptFunc_R.pas
  187. +486 −0 Projects/ScriptRunner.pas
  188. +268 −0 Projects/SecurityFunc.pas
  189. BIN Projects/SelFolderForm.dfm
  190. +66 −0 Projects/SelFolderForm.dfm.txt
  191. +168 −0 Projects/SelFolderForm.pas
  192. BIN Projects/SelLangForm.dfm
  193. +63 −0 Projects/SelLangForm.dfm.txt
  194. +173 −0 Projects/SelLangForm.pas
  195. +45 −0 Projects/Setup.dof
  196. +326 −0 Projects/Setup.dpr
  197. BIN Projects/Setup.res
  198. +429 −0 Projects/SetupForm.pas
  199. +439 −0 Projects/SetupLdr.dpr
  200. BIN Projects/SetupLdrOffsetTable.res
  201. +37 −0 Projects/SetupLdrVersion.rc
  202. BIN Projects/SetupLdrVersion.res
  203. +56 −0 Projects/SetupTypes.pas
  204. +33 −0 Projects/SetupVersion.rc
  205. BIN Projects/SetupVersion.res
  206. +33 −0 Projects/SetupVersionUnicode.rc
  207. BIN Projects/SetupVersionUnicode.res
  208. +335 −0 Projects/SimpleExpression.pas
  209. +206 −0 Projects/SpawnClient.pas
  210. +54 −0 Projects/SpawnCommon.pas
  211. +556 −0 Projects/SpawnServer.pas
  212. +399 −0 Projects/Struct.pas
  213. +75 −0 Projects/TaskbarProgressFunc.pas
  214. +56 −0 Projects/UIStateForm.pas
  215. +1,397 −0 Projects/Undo.pas
  216. BIN Projects/UninstProgressForm.dfm
  217. +127 −0 Projects/UninstProgressForm.dfm.txt
  218. +146 −0 Projects/UninstProgressForm.pas
  219. BIN Projects/UninstSharedFileForm.dfm
  220. +98 −0 Projects/UninstSharedFileForm.dfm.txt
  221. +99 −0 Projects/UninstSharedFileForm.pas
  222. +845 −0 Projects/Uninstall.pas
  223. +76 −0 Projects/Version.inc
  224. BIN Projects/Wizard.dfm
  225. +683 −0 Projects/Wizard.dfm.txt
  226. +2,626 −0 Projects/Wizard.pas
  227. +39 −0 Projects/XPTheme.manifest
  228. +7 −0 Projects/_shfoldr.rc
  229. BIN Projects/_shfoldr.res
  230. +364 −0 Projects/bzlib.pas
  231. +127 −0 Projects/lzma2/C/Alloc.c
  232. +38 −0 Projects/lzma2/C/Alloc.h
  233. +761 −0 Projects/lzma2/C/LzFind.c
  234. +115 −0 Projects/lzma2/C/LzFind.h
  235. +793 −0 Projects/lzma2/C/LzFindMt.c
  236. +105 −0 Projects/lzma2/C/LzFindMt.h
  237. +54 −0 Projects/lzma2/C/LzHash.h
  238. +356 −0 Projects/lzma2/C/Lzma2Dec.c
  239. +84 −0 Projects/lzma2/C/Lzma2Dec.h
  240. +484 −0 Projects/lzma2/C/Lzma2Enc.c
  241. +66 −0 Projects/lzma2/C/Lzma2Enc.h
  242. +999 −0 Projects/lzma2/C/LzmaDec.c
  243. +231 −0 Projects/lzma2/C/LzmaDec.h
  244. +2,268 −0 Projects/lzma2/C/LzmaEnc.c
  245. +80 −0 Projects/lzma2/C/LzmaEnc.h
  246. +327 −0 Projects/lzma2/C/MtCoder.c
  247. +98 −0 Projects/lzma2/C/MtCoder.h
  248. +84 −0 Projects/lzma2/C/Threads.c
  249. +59 −0 Projects/lzma2/C/Threads.h
  250. +236 −0 Projects/lzma2/C/Types.h
  251. +33 −0 Projects/lzma2/Decoder/ISLzma2Dec.c
  252. BIN Projects/lzma2/Decoder/ISLzma2Dec.obj
  253. +26 −0 Projects/lzma2/Decoder/ISLzmaDec.c
  254. BIN Projects/lzma2/Decoder/ISLzmaDec.obj
  255. +9 −0 Projects/lzma2/Decoder/compiling.txt
  256. +137 −0 Projects/lzma2/Encoder/islzma.c
  257. +7 −0 Projects/lzma2/Encoder/islzma.def
  258. +23 −0 Projects/lzma2/Encoder/islzma.h
  259. +34 −0 Projects/lzma2/Encoder/islzma.sln
  260. +266 −0 Projects/lzma2/Encoder/islzma.vcproj
  261. +13 −0 Projects/lzma2/Encoder/islzma_dll.c
  262. +384 −0 Projects/lzma2/Encoder/islzma_exe.c
  263. +413 −0 Projects/lzma2/Encoder/islzma_exe.vcproj
  264. +139 −0 ROPS-1045-to-1045a-patch.txt
  265. +1 −0 ROPS-revision.txt
  266. +48 −0 VCL-Controls-D2D5-patch.txt
  267. +68 −0 VCL-Controls-D6-patch.txt
  268. +90 −0 compile-unicode.bat
  269. +97 −0 compile.bat
  270. +37 −0 license.txt
  271. +200 −0 readme.txt
  272. +215 −0 scintilla-2.22-patch.txt
  273. +215 −0 scintilla-patch.txt
  274. +295 −0 setup.iss
  275. +1,057 −0 whatsnew.htm
@@ -0,0 +1,2 @@
+c.bat
+compilesettings.bat
@@ -0,0 +1 @@
+*.dcu
@@ -0,0 +1,126 @@
+unit BidiCtrls;
+
+{
+ Inno Setup
+ Copyright (C) 1997-2007 Jordan Russell
+ Portions by Martijn Laan
+ For conditions of distribution and use, see LICENSE.TXT.
+
+ RTL-capable versions of standard controls
+
+ $jrsoftware: issrc/Components/BidiCtrls.pas,v 1.2 2007/11/27 04:52:53 jr Exp $
+}
+
+interface
+
+uses
+ Windows, SysUtils, Messages, Classes, Graphics, Controls, Forms, Dialogs,
+ StdCtrls;
+
+type
+ TNewEdit = class(TEdit)
+ protected
+ procedure CreateParams(var Params: TCreateParams); override;
+ end;
+
+ TNewMemo = class(TMemo)
+ protected
+ procedure CreateParams(var Params: TCreateParams); override;
+ end;
+
+ TNewComboBox = class(TComboBox)
+ protected
+ procedure CreateParams(var Params: TCreateParams); override;
+ end;
+
+ TNewListBox = class(TListBox)
+ protected
+ procedure CreateParams(var Params: TCreateParams); override;
+ end;
+
+ TNewButton = class(TButton)
+ protected
+ procedure CreateParams(var Params: TCreateParams); override;
+ end;
+
+ TNewCheckBox = class(TCheckBox)
+ protected
+ procedure CreateParams(var Params: TCreateParams); override;
+ end;
+
+ TNewRadioButton = class(TRadioButton)
+ protected
+ procedure CreateParams(var Params: TCreateParams); override;
+ end;
+
+procedure Register;
+
+implementation
+
+uses
+ BidiUtils;
+
+procedure Register;
+begin
+ RegisterComponents('JR', [TNewEdit, TNewMemo, TNewComboBox, TNewListBox,
+ TNewButton, TNewCheckBox, TNewRadioButton]);
+end;
+
+{ TNewEdit }
+
+procedure TNewEdit.CreateParams(var Params: TCreateParams);
+begin
+ inherited;
+ SetBiDiStyles(Self, Params);
+end;
+
+{ TNewMemo }
+
+procedure TNewMemo.CreateParams(var Params: TCreateParams);
+begin
+ inherited;
+ SetBiDiStyles(Self, Params);
+end;
+
+{ TNewComboBox }
+
+procedure TNewComboBox.CreateParams(var Params: TCreateParams);
+begin
+ inherited;
+ SetBiDiStyles(Self, Params);
+end;
+
+{ TNewListBox }
+
+procedure TNewListBox.CreateParams(var Params: TCreateParams);
+begin
+ inherited;
+ SetBiDiStyles(Self, Params);
+end;
+
+{ TNewButton }
+
+procedure TNewButton.CreateParams(var Params: TCreateParams);
+begin
+ inherited;
+ SetBiDiStyles(Self, Params);
+ Params.ExStyle := Params.ExStyle and not WS_EX_RIGHT;
+end;
+
+{ TNewCheckBox }
+
+procedure TNewCheckBox.CreateParams(var Params: TCreateParams);
+begin
+ inherited;
+ SetBiDiStyles(Self, Params);
+end;
+
+{ TNewRadioButton }
+
+procedure TNewRadioButton.CreateParams(var Params: TCreateParams);
+begin
+ inherited;
+ SetBiDiStyles(Self, Params);
+end;
+
+end.
@@ -0,0 +1,88 @@
+unit BidiUtils;
+
+{
+ Inno Setup
+ Copyright (C) 1997-2007 Jordan Russell
+ Portions by Martijn Laan
+ For conditions of distribution and use, see LICENSE.TXT.
+
+ Bidi utility functions
+
+ $jrsoftware: issrc/Components/BidiUtils.pas,v 1.2 2007/11/27 04:52:53 jr Exp $
+}
+
+interface
+
+uses
+ Windows, SysUtils, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
+
+procedure FlipControls(const AParentCtl: TWinControl);
+procedure FlipRect(var Rect: TRect; const ParentRect: TRect; const UseRightToLeft: Boolean);
+function IsParentFlipped(const AControl: TControl): Boolean;
+function IsParentRightToLeft(const AControl: TControl): Boolean;
+function SetBiDiStyles(const AControl: TControl; var AParams: TCreateParams): Boolean;
+
+var
+ { These are set by the SetupForm unit: }
+ IsParentFlippedFunc: function(AControl: TControl): Boolean;
+ IsParentRightToLeftFunc: function(AControl: TControl): Boolean;
+
+implementation
+
+procedure FlipRect(var Rect: TRect; const ParentRect: TRect; const UseRightToLeft: Boolean);
+var
+ W: Integer;
+begin
+ if UseRightToLeft then begin
+ W := Rect.Right - Rect.Left;
+ Rect.Left := ParentRect.Right - (Rect.Left - ParentRect.Left) - W;
+ Rect.Right := Rect.Left + W;
+ end;
+end;
+
+function IsParentFlipped(const AControl: TControl): Boolean;
+begin
+ if Assigned(IsParentFlippedFunc) then
+ Result := IsParentFlippedFunc(AControl)
+ else
+ Result := False;
+end;
+
+function IsParentRightToLeft(const AControl: TControl): Boolean;
+begin
+ if Assigned(IsParentRightToLeftFunc) then
+ Result := IsParentRightToLeftFunc(AControl)
+ else
+ Result := False;
+end;
+
+function SetBiDiStyles(const AControl: TControl; var AParams: TCreateParams): Boolean;
+begin
+ Result := IsParentRightToLeft(AControl);
+ if Result then
+ AParams.ExStyle := AParams.ExStyle or (WS_EX_RTLREADING or WS_EX_LEFTSCROLLBAR or WS_EX_RIGHT);
+end;
+
+procedure FlipControls(const AParentCtl: TWinControl);
+var
+ ParentWidth, I: Integer;
+ Ctl: TControl;
+begin
+ if AParentCtl.ControlCount = 0 then
+ Exit;
+ AParentCtl.DisableAlign;
+ try
+ ParentWidth := AParentCtl.ClientWidth;
+ for I := 0 to AParentCtl.ControlCount-1 do begin
+ Ctl := AParentCtl.Controls[I];
+ Ctl.Left := ParentWidth - Ctl.Width - Ctl.Left;
+ end;
+ finally
+ AParentCtl.EnableAlign;
+ end;
+ for I := 0 to AParentCtl.ControlCount-1 do
+ if AParentCtl.Controls[I] is TWinControl then
+ FlipControls(TWinControl(AParentCtl.Controls[I]));
+end;
+
+end.
Oops, something went wrong.

0 comments on commit 238b774

Please sign in to comment.