-
Posts
53 -
Joined
-
Last visited
Posts posted by Pokaritel_VBR
-
-
А что в верхнем лого поставить?
Тихий ужас в плане дизайна.
А что заменить , помогите , пожалуйста, я не мастер фотошопа
-
-
Благодарю!
Я решил моды для корбаликов забацать!
-
-
вроде 65 стр
Спасибо!
Спасибо за понимание!
Очень Вас благодарен!
-
Ребзя , дико извиняюсь , дайте скрипт с фишкой , что можно из сети скачивать !Очень срочно !!!
-
Помогите сделать оповещение о новом выходе сборки
!
- 1
-
-
Дайте скин как у WOT FuN ПЛИЗ
-
@Pokaritel_VBR, кто сказал что я модпак дезу делаю?
ХЗ: " DeSeRtod ModPack ", но кнопка клавиатуры - это не лучший вариант , повторяю......
-
Можно ли сделать так, что бы после нажатия на клавишу(например "D") выполнялась определенная функция(например вывод сообщения)?
Не очень хорошая идея улучшить модпак дезика( Добавь лучше лого И сплеш:
-
Ребят , подскажите , почему когда выключаю службу питания , на максималках в wot 70-130 фпс , включаю фпс на макс 25-35, почему так) щас жертвую звуком , т.к выключил службу(
-
Не получается:
#define ISTask "ISTask.dll" [Files] Source: Files\{#ISTask}; Flags: dontcopy [code] //////////==== Проверка правилността на папката на играта - търси ехе файла на WoT ====\\ function NextButtonClick1(CurPageID: Integer): Boolean; begin Result := True; case CurPageID of wpSelectDir: if not FileExists(ExpandConstant('{app}\WorldOfTanks.exe')) then begin MsgBox('Неправилно указана папката на World of Tanks!', mbError, MB_OK); Result := False; end; end; end; //////////====| До тук са редовете за проверка правилността на папката на играта |====\\ //////====== запущенной игре function KillTask(ExeFileName: string): Integer; external 'KillTask@files:ISTaskU.dll stdcall'; function RunTask(FileName: string; bFullpath: Boolean): Boolean; external 'RunTask@files:ISTaskU.dll stdcall'; function InitializeSetup1(): Boolean; begin If RunTask('WorldOfTanks.exe', false) then begin if MsgBox('ВНИМАНИЕ!' #13 'НЕ рекомендуется устанавливать при запущенной игре.' #13 'Закрыть WorldOfTanks и продолжить установку?', mbError, mb_YesNo) = idYes then begin KillTask('WorldOfTanks.exe'); Result := True; end else Exit; end; Result := True; end; ////////////=== END запущенной игре Function InitializeSetup(): Boolean; begin InitializeSetup1(); InitializeWizard1(); Result := True; end;
2015-02-24_135519.png Добавь InitializeSetupДобавь InitializeSetup
А у меня вот в чём проблема , было всё ок
-
Держи
[setup]AppName=Моя программа
AppVersion=1.5
AppPublisher=YURSHAT
DefaultDirName={pf}\Моя программа
[Languages]
Name: "RU"; MessagesFile: "compiler:Languages\Russian.isl"
[CustomMessages]
RU.CompName1=Компонент 1
RU.CompName2=Компонент 2
RU.ComponentsInfo=Наведите курсор мыши на компонент, чтобы прочитать его описание.
RU.ComponentsImgInfo=Наведите курсор мыши на компонент, чтобы посмотреть его превью.
RU.CompDesc1=Описание первого компонента
RU.CompDesc2=Описание второго компонента
[Files]
Source: "compiler:WizModernImage.bmp"; DestName: "CompDescImg1.bmp"; Flags: dontcopy
Source: "compiler:WizModernImage-IS.bmp"; DestName: "CompDescImg2.bmp"; Flags: dontcopy
[Types]
Name: full; Description: Full installation; Flags: iscustom
[Components]
Name: comp1; Description: "{cm:CompName1}"; Types: full
Name: comp2; Description: "{cm:CompName2}"; Types: full
type
TComponentDesc = record
Description: String;
ImageName: String;
Index: Integer;
end;
var
CompDescs: array of TComponentDesc;
CompDescPanel, CompDescImgPanel: TPanel;
CompDescText: array[1..2] of TLabel;
CompIndex, LastIndex: Integer;
CompDescImg: TBitmapImage;
procedure ShowCompDescription(Sender: TObject; X, Y, Index: Integer; Area: TItemArea);
var
i: Integer;
begin
if Index = LastIndex then Exit;
CompIndex := -1;
for i := 0 to GetArrayLength(CompDescs) -1 do
begin
if (CompDescs[i].Index = Index) then
begin
CompIndex := i;
Break;
end;
end;
if (CompIndex >= 0) and (Area = iaItem) then
begin
if not FileExists(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName) then
ExtractTemporaryFile(CompDescs[CompIndex].ImageName);
CompDescImg.Bitmap.LoadFromFile(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName);
CompDescImg.Show;
CompDescText[2].Caption := CompDescs[CompIndex].Description;
CompDescText[2].Enabled := True;
end else
begin
CompDescText[2].Caption := CustomMessage('ComponentsInfo');
CompDescText[2].Enabled := False;
CompDescImg.Hide;
end;
LastIndex := Index;
end;
procedure CompListMouseLeave(Sender: TObject);
begin
CompDescImg.Hide;
CompDescText[2].Caption := CustomMessage('ComponentsInfo');
CompDescText[2].Enabled := False;
LastIndex := -1;
end;
procedure AddCompDescription(AIndex: Integer; ADescription: String; AImageName: String);
var
i: Integer;
begin
i := GetArrayLength(CompDescs);
SetArrayLength(CompDescs, i + 1);
CompDescs[i].Description := ADescription;
CompDescs[i].ImageName := AImageName;
CompDescs[i].Index := AIndex - 1
end;
procedure InitializeWizard();
begin
WizardForm.SelectComponentsLabel.Hide;
WizardForm.TypesCombo.Hide;
WizardForm.ComponentsList.SetBounds(ScaleX(0), ScaleY(0), ScaleX(184), ScaleY(205));
WizardForm.ComponentsList.OnItemMouseMove:= @ShowCompDescription;
WizardForm.ComponentsList.OnMouseLeave := @CompListMouseLeave;
CompDescImgPanel := TPanel.Create(WizardForm);
with CompDescImgPanel do
begin
Parent := WizardForm.SelectComponentsPage;
SetBounds(ScaleX(192), ScaleY(0), ScaleX(225), ScaleY(120));
BevelInner := bvLowered;
end;
CompDescText[1] := TLabel.Create(WizardForm);
with CompDescText[1] do
begin
Parent := CompDescImgPanel;
SetBounds(ScaleX(5), ScaleY(5), CompDescImgPanel.Width - ScaleX(10), CompDescImgPanel.Height - ScaleY(10));
AutoSize := False;
WordWrap := True;
Enabled := False;
Caption := CustomMessage('ComponentsImgInfo');
end;
CompDescImg := TBitmapImage.Create(WizardForm);
with CompDescImg do
begin
Parent := CompDescImgPanel;
SetBounds(ScaleX(5), ScaleY(5), CompDescImgPanel.Width - ScaleX(10), CompDescImgPanel.Height - ScaleY(10));
Stretch := True;
Hide;
end;
CompDescPanel := TPanel.Create(WizardForm);
with CompDescPanel do
begin
Parent := WizardForm.SelectComponentsPage;
SetBounds(ScaleX(192), ScaleY(125), ScaleX(225), ScaleY(80));
BevelInner := bvLowered;
end;
CompDescText[2] := TLabel.Create(WizardForm);
with CompDescText[2] do
begin
Parent := CompDescPanel;
SetBounds(ScaleX(5), ScaleY(5), CompDescPanel.Width - ScaleX(10), CompDescPanel.Height - ScaleY(10));
AutoSize := False;
WordWrap := True;
Enabled := False;
Caption := CustomMessage('ComponentsInfo');
end;
AddCompDescription(1, CustomMessage('CompDesc1'), 'CompDescImg1.bmp');
AddCompDescription(2, CustomMessage('CompDesc2'), 'CompDescImg2.bmp');
end;
Благодарю!
-
Киньте скин какой-нить классный
-
Если тебе именно протанковские картинки нужны, отскринь с мод пака. Неужели трудно...
я имел введу дайте скрипт , такой , чтобы картинка была в самом инстоляторе , а не возле курсора
-
Скринил с Гугла... Зачёт!!!
Рас удалил, тебе поможет R.saver или Recuva
не видет с recua ) уже пробовал
-
Фотошоп, скриншотер и Гугл тебе в помощь!
Я их уже скринил с гугла , но удалил папку с ними
-
парни , чёт посмотрел я так и понял , что картинка , которая появляется у мышки , слишком резкая и режет глаза , кто-нибудь пожертвует своими чертежами , дав мне скрипт с картинками ток , как у протанки и картинки к ним (
-
с какой проги открывать?skin? Через него не открывается
-
День добрый Уважаемые Форумчане!
Листая данный форум узнал много интересного и воплотил это в своей сборке. Огромная за инфу благодарность. Но у меня есть проблемма и я надеюсь Вы мне в этом поможете.
Прикрутив скин обнаружил что участок скрола пустой. Методом научного тыка добавил ScrollBar и он теперь отображается но от сюда и возникает проблеммаЭтот самый скрол не работает. То-есть лицензия прокручивается а ползунок скрола на это не риагирует. Стоит как сувенир. Подскажите как привязать его к прокрутке. Заранее благодарен!
Кините скин ? Пожалуйста)
-
Файлы твикера для 9.6:
cпасибо
-
А что мешает скачать сам твикер и воспользоваться им?
Лень. Но , что мешает , Вам, дать мне ,лень, алчность и злоба, за то , что вы вытаскивали из твикера папки , а мне отдаёте без малейшего труда.
Вы пытаетесь провоцировать меня ) А когда моя пердак греется , вы зовёте модераторов , мне бан , а вам наслаждение ,группа зачем созданна , чтобы помгать ) И заметьте , почему то именно ко мне , такая ненавистная симпатия(
- 1
-
дайте твикер ,ток в папочном состояние (по папкам)
Создание инсталляторов для модпаков на базе Inno Setup
in Modding General Discussion
Posted