Manifest-Creator

[himitsu]

Eigentlich wollte ich erstmal fargen, ob dieses Doppelte auch links in dem TreeView der Fall ist/war,
aber ich vermute inzwischen mal JA.

Das Problem war wohl, daß du die ActiveX-Libs mit geladen hattest?

In diesem Fall wird der Konstructor nochmals aufgerufen und ich hatte dort die ListBox vor dem Befüllen nicht geleert.

Und warum nur die 1. Beiden Auswahlen was bewirkten ...
- die Abfrage, ob der Abschnitt rein soll lief über die ListBox und das was tatsächlich eingefügt wurde, war hart einprogrammiert.

PS: nja, dafür sollte sich langsam die Arbeit an diesem Programm erledigt haben
und für zukünfite Erweiterungen hab ich mir inzwischen viel Arbeit schon im Voraus gespart,
indem sich z.B. der Index aus der GUI selber aufbaut und vieles sich auch selber verwaltet.
> praktisch nur neue Eingabeelemente, TabSheets und die zugehörigen SprachStrings in die Arrays und fertig

[ChrisE]

Zitat von himitsu:

Eigentlich wollte ich erstmal fargen, ob dieses Doppelte auch links in dem TreeView der Fall ist/war,
aber ich vermute inzwischen mal JA.

War so

Zitat von himitsu:

Das Problem war wohl, daß du die ActiveX-Libs mit geladen hattest?

Hab ich tatsächlich gemacht

Alles klar, dann weiß ich ja jetzt was Sache war.

THX

[himitsu]

Zitat von ChrisE:

Hab ich tatsächlich gemacht

und ich hatte zufällig, nachdem ich diese mal geladen hatte, nicht in diese Liste geguckt

ach ja, die kleine "Index out of Range"-Exception der letzen 1/4 Stunde, falls die wer beim Programmstart bemerkt hatte, wurde grad mit behoben,
hatte beim Ändern für dieses Windows-Version-Dinges da was mit eingebaut
(mußte aber einfach nur die WindowsListe vor dem Laden der SprachString füllen)

[WebUpdate System]

Hallo Himitsu,

wenn man eine .Ini erneut läd, kommt es zu einer Exception, "List index out of bounds (xxx)"

Delphi-Quellcode:

Procedure TForm1.Button2Click(Sender: TObject);
    Var F:   TIniFile;
      i, i2: Integer;
      C:     TWinControl;

    Begin
      OpenDialog1.DefaultExt  := 'ini';
      OpenDialog1.FileName    := Edit3.Text;
      OpenDialog1.Filter      := SIniFile;
      OpenDialog1.FilterIndex := 1;
      If not Assigned(Sender) or OpenDialog1.Execute Then Begin
        F := TIniFile.Create(OpenDialog1.FileName);
        Try
          For i := 0 to ComponentCount - 1 do Begin
            C := TwinControl(Components[i]);
            If (GetShortHint(C.Hint) <> '') and (Copy(GetShortHint(C.Hint), 1, 1) <> '*') Then
              If C is TCustomComboBox Then Begin
                If TComboBox(C).Style = csDropDownList Then
                  TComboBox(C).ItemIndex := F.ReadInteger('ManifestCreator', GetShortHint(C.Hint), 0)
                Else TComboBox(C).Text := F.ReadString('ManifestCreator', GetShortHint(C.Hint), '');
              End Else If C is TCheckListBox Then Begin
                For i2 := 0 to TCheckListBox(C).Items.Count - 1 do
                  TCheckListBox(C).Checked[i2] := F.ReadBool('ManifestCreator', //<<< HIER kommt der ERROR
                    GetShortHint(C.Hint) + '_' + TCheckListBox(C).Items[i], False);
              End Else If C is TCustomCheckBox Then
                TCheckBox(C).Checked := F.ReadBool('ManifestCreator', GetShortHint(C.Hint), False)
              Else If C is TCustomEdit Then
                TEdit(C).Text := F.ReadString('ManifestCreator', GetShortHint(C.Hint), '');
          End;
        Finally
          F.Free;
        End;
      End;
    End;

Kannst Du dir das mal ansehen?

[Hawkeye219]

Hallo,

es ist nur eine Vermutung:

Delphi-Quellcode:

[...]
End Else If C is TCheckListBox Then Begin
  For i2 := 0 to TCheckListBox(C).Items.Count - 1 do
    TCheckListBox(C).Checked[i2] := F.ReadBool('ManifestCreator',
      GetShortHint(C.Hint) + '_' + TCheckListBox(C).Items[i], False); // <- sollte hier nicht "i2" stehen?
End Else If C is TCustomCheckBox Then
[...]

Gruß Hawkeye

[himitsu]

Zitat von Hawkeye219:

// <- sollte hier nicht "i2" stehen?

sollte es
(das Gleiche beim Speichern)

sowas passiert, wenn man was umbaut und dann nicht komplett testet ._.

[Update im Post #1]

[himitsu]

Es gab jetzt eigenentlich nur zwei winzigkleine Änderungen.

Man kann sich nun auch ein Resource-Compile-Script mit erstellen/speichern lassen,
welches dann aus der .RC eine .RES macht.
(siehe Edit und Memo unten rechts im Bild)

Und nach dem Speichern von Dateien wird der neue Name/Pfad auch in die zugehörigen Edits eingetragen.
(hatte ich irgendwie vergessen)

[Update im Post #1]

[taveuni]

Hallo,

Dieser Thread liegt zwar schon eine Weile brach - aber trotzdem:

Bevor ich dupliziere: Hat schon jemand (himitsu?) die Dateiversion
in den Manifest-Creator integriert? Falls nein - darf ich überhaupt die Sourcen
verwenden?
Oder gibt es mittlerweile andere Möglichkeiten einfach ein Win7 Manifest
inkl. Dateiversion und Anwendungsicon zu erzeugen (Auch kommerziell)?

Wenn man viele kleine Applikationen erstellt ist das schon sehr mühsam.

Danke

[turboPASCAL]

Zitat:

Dateiversion und Anwendungsicon zu erzeugen (Auch kommerziell)?

Die Dateiversion und das App.-Icon machst du über die IDE (im Falle der Verwendung der VCL).
Man könne diese auch über eine RC-Datei machen, aber die IDE wird dann ggf. rumzicken...

[himitsu]

Zitat von turboPASCAL:

Man könne diese auch über eine RC-Datei machen, aber die IDE wird dann ggf. rumzicken...

Also möglich wäre dieses ... das Icon würde sogar direkt in die RC reinpassen (nicht nur als includete Icon-Datei),

aber wie schon erwähnt dürfen diese Informationen dann nicht über Delphi in der Projekt-Resource-Datei (*.res) enthalten sein, da sich dann der Linker über doppelte Resourcen beschwert.

(PS: Die Dateiversion ist, als Beispielcode schon enthalten ... Dateiversion > Einschalten > und dann rechts die .RC manuell rauskopieren und bearbeiten)

Aber klar ... gib mir ein bissl Zeit ... möglich ist Vieles