kleiner Web Designer

[Matze]

zusammen!

Ja, hier gibt's viele, auch bessere, ich weiß.

Es handelt sich um einen Highlichter für html, xml, php, sql & Co.

Hier ein Screenshot


Könntet ihr euch bitte auf Fehlersuche begeben? *g*
Falls wichtige Funktionen fehlen, sagt dies auch bitte. En Code-Formatierer ist in Vorbereitung, klappt aber noch nicht wirklich.

[Matze]

Zitat von mirage228:

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

Eine normale.

Zitat von mirage228:

Oder einfach im FormCreate:
  SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);

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

Zitat von Matze:

Erstmal packst Du alle Highlighter in eine Liste ...

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

[mirage228]

Zitat von Matze:

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 von Matze:

Zitat von mirage228:

Oder einfach im FormCreate:
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 von Matze:

Zitat von mirage228:

Erstmal packst Du alle Highlighter in eine Liste ...

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

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.

[mirage228]

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.

Nun gut, es ist Deine Entscheidung

mfG
mirage228