kleiner Web Designer

[Matze]

Zitat:

Zitat von mirage228

Benutzt Du denn eine System-Imagelist oder eine normale Imagelist, wo Du die einzelnen Datei-Icons reinspeicherst?

Eine normale.

Zitat:

Zitat von mirage228

Oder einfach im FormCreate:

Delphi-Quellcode:

  SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);

Danke, das teste ich gleich mal.
Nachtrag: Geht nicht. ;)

Zitat:

Zitat von Matze

Erstmal packst Du alle Highlighter in eine Liste ...

:shock: Das ist aber auch aufwändig. Danke, aber ob ich dieses Feature hinzufüge, weiß ich noch nicht. :roll:

[mirage228]

Zitat:

Zitat von Matze

Zitat:

Zitat von mirage228

Benutzt Du denn eine System-Imagelist oder eine normale Imagelist, wo Du die einzelnen Datei-Icons reinspeicherst?

Eine normale.

Dann könntest Du evtl. mal versuchen, eine ImageList mit dem SystemImages zu erstellen.
Wenn Du magst, kann ich Dir mal einen Beispiel-Code geben :)

Zitat:

Zitat von Matze

Zitat:

Zitat von mirage228

Oder einfach im FormCreate:

Delphi-Quellcode:

SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);

Danke, das teste ich gleich mal.
Nachtrag: Geht nicht.

Oh ja, ich seh's auch gerade :?

Zitat:

Zitat von Matze

Zitat:

Zitat von mirage228

Erstmal packst Du alle Highlighter in eine Liste ...

:shock: Das ist aber auch aufwändig. Danke, aber ob ich dieses Feature hinzufüge, weiß ich noch nicht. :roll:

Och, sooo kompliziert ist das nicht. Es ist imho nur etwas "Schreibarbeit". Das ganze sieht dann am Ende etwa so aus, wie im Anhang :)

mfG
mirage228

[Matze]

Über den Code mit den SystemImages wäre ich dankbar.

Ja, genausowas habe ich in anderen Webdesignern auch gesehen, aber da sitz ich ja Stunden dran. :lol:

[mirage228]

Zitat:

Zitat von Matze

Über den Code mit den SystemImages wäre ich dankbar.

Also hier die benötigten Code-Teile - bei meinen Projekten funktionierts ;)

Delphi-Quellcode:

uses Windows, Menus, ShellAPI, ImgList;

// Im OnCreate des Forms
// "GlobalImageList" ist hier eine Membervariable des Forms vom Typ "TImageList"
var
  SHFileInfo: TSHFileInfo;
  SysIcons  : THandle;
begin
  // Anderer Konstruktorcode
  // Korrektes anzeigen der Iconliste gewährleisten
  GlobalImageList := TImageList.Create(Self);
  GlobalImageList.Masked := False;
  try
    SysIcons := SHGetFileInfo(PChar(Copy(ParamStr(0), 1, 3)), 0, SHFileInfo,
      SizeOf(SHFileInfo), SHGFI_SYSICONINDEX or SHGFI_SMALLICON or
      SHGFI_ICON);
  finally
    DestroyIcon(SHFileInfo.hIcon);
  end;
  GlobalImageList.Handle := SysIcons;
  GlobalImageList.ShareImages := True;  
end;

// Funktion, um den Index einer Dateierweiterung zu bekommen
function GetAssociatedIconIndex(const AExtension: string;
  ASmall: Boolean): Integer;
var
  Info: TSHFileInfo;
  Flags: Cardinal;
begin
  if ASmall then
    Flags := SHGFI_ICON or SHGFI_SMALLICON or SHGFI_USEFILEATTRIBUTES
  else
    Flags := SHGFI_ICON or SHGFI_LARGEICON or SHGFI_USEFILEATTRIBUTES;

  if SHGetFileInfo(PChar(AExtension), FILE_ATTRIBUTE_NORMAL, Info,
    SizeOf(TSHFileInfo), Flags) <> 0 then
  begin
    // Das Handle auf das Icon wird nicht benötigt!!
    DestroyIcon(Info.hIcon);
    // --------------------------------------------
    Result := Info.iIcon;
  end else Result := -1;
end;

// Ein Menuitem mit Index hinzufügen
var
  NewMenu: TMenuItem;
begin
  // ParentMenu.SubMenuImages := GlobalImageList;
  // Menü hinzufügen, Caption setzen, ...
  NewMenu.ImageIndex := GetAssociatedIconIndex('.txt', True);  // z.B.
end;

Zitat:

Ja, genausowas habe ich in anderen Webdesignern auch gesehen, aber da sitz ich ja Stunden dran. :lol:

Nun gut, es ist Deine Entscheidung ;)

mfG
mirage228