First release of my new download plugin for Inno Setup.
- Supports Unicode & ANSI Inno Setup
- FTP, HTTP and HTTPS protocols.
- Multiple languages (only English and Russian at now, more languages will be available later)
Website: http://mitrich.net23.net/?/inno-download-plugin.html
Download link #2: https://drive.google.com/folderview?id=0Bzw1xBVt0mokSXZrUEFIanV4azA&usp=sharing
Source code repository: https://code.google.com/p/inno-download-plugin/
Forum on Google Groups:
https://groups.google.com/forum/#!forum/inno-download-plugin
This update fixes bug with incorrect parsing of some HTTP URLs.
Also, German & French language files added (incomplete)
If you can create language file for your language, please post it here: https://groups.google.com/forum/#!forum/inno-download-plugin
Website: http://mitrich.net23.net/?/inno-download-plugin.html
Download link #2: https://drive.google.com/folderview?id=0Bzw1xBVt0mokSXZrUEFIanV4azA&usp=sharing
Source code repository: https://code.google.com/p/inno-download-plugin/
ну, тогда в самом деле не имеет смысла.Загрузку текстур из файла(lCreateTexture*)? Не имеет смысла их убирать. В сумме они занимают 7 строк кода в библиотеке. И если их убрать библиотека ничуть не "похудеет".
1. В общем... Если при использовании функции Win6TaskBarV1_2 изменить размер панели задач, та в рабочей области экрана появляется MainForm. Скрин: http://i7.pixs.ru/storage/0/8/8/1png_1104831_10032088.pngОбновлено: Wintb.dll 1.0.0.8
Найдете ошибки - пишите в ЛС.
Inno Download Plugin 1.1.0 released.
New features in this version:
- Support for mirrors
- ConnectTimeout, SendTimeout and ReceiveTimeout options
- German & Polish translations
Website: http://mitrich.net23.net/?/inno-download-plugin.html
Download link #2: https://drive.google.com/folderview?id=0Bzw1xBVt0mokSXZrUEFIanV4azA&usp=sharing#list
Source repo: https://code.google.com/p/inno-download-plugin/
const
TfontColor = $000000; // цвет лайбалов
var
WelcomLabel1: TLabel;
Font1, Font2: HWND;
ButtonFont: TFont;
function NewFont(Height:Integer;thickness,italic,underline,strikeout:DWORD;name:String):hWnd;external 'NewFont@files:IsMyFont.dll stdcall delayload';
procedure Deinitialize;external 'Deinitialize@files:IsMyFont.dll stdcall delayload';
function InitializeSetup:boolean;
begin
if not FileExists(ExpandConstant('{tmp}\IsMyFont.dll')) then ExtractTemporaryFile('IsMyFont.dll');
Result:=True;
end;
procedure IsMyFont;
begin
Font1:=NewFont(20,500,0,0,0,'Corbel'); // Фонт для лейбалов
Font2:=NewFont(17,500,0,0,0,'Franklin Gothic Medium'); // фонт для кнопок
WizardForm.Font.Handle:=Font1;
WizardForm.Font.Color:=TfontColor;
end;
procedure InitializeWizard();
begin
IsMyFont;
ButtonFont:=TFont.Create;
ButtonFont.Handle:=Font2;
WizardForm.NextButton.Font.Handle:=Font2;
WizardForm.CancelButton.Font.Handle:=Font2;
WizardForm.BackButton.Font.Handle:=Font2;
WizardForm.ClientWidth:=600;
WizardForm.ClientHeight:=400;
WizardForm.InnerNotebook.hide;
WizardForm.OuterNotebook.hide;
WizardForm.OuterNotebook.hide;
WizardForm.Bevel.Hide;
WizardForm.Position:=poScreenCenter;
WelcomLabel1:= TLabel.Create(WizardForm);
with WelcomLabel1 do begin
Left:= 30;
Top:= 219;
Width:= 550;
Height:= 58;
AutoSize:= false;
Transparent:= true;
WordWrap:= true;
ParentFont := True;
Parent:= WizardForm;
Caption:=ExpandConstant('{cm:Welcom1}');
end;
with WizardForm.CancelButton do
begin
Height := ScaleY(31);
end;
with WizardForm.NextButton do
begin
Height := ScaleY(31);
end;
with WizardForm.BackButton do
begin
Height := ScaleY(31);
end;
end;
procedure DeinitializeSetup;
begin
Deinitialize;
end;[/SOURCE][/SPOILER]