//******************************************************************************
//Global
//Status Button Beschreibung aus Sprach_Shell.dll
Procedure XP_Tweak_Status_Button_Beschreibung_Lesen_GU(menu_i : Integer);
var
lib_h : THandle;
res_s : TResourceStream;
button_beschreibung1_sl : TStringList;
i : Integer;
menu_index_plus_s : String;
menu_index_minus_s : String;
begin_i : Integer;
end_i : Integer;
buffer_ms : TMemoryStream;
begin
    lib_h := LoadLibrary(PChar(g_sprachen_path_s + g_programm_sprache_s + '_Shell.dll'));

    button_beschreibung1_sl := TStringList.Create;
    button_beschreibung1_sl.Clear;
    buffer_ms := TMemoryStream.Create;
    buffer_ms.Clear;

    res_s := NIL;

    //Element aus Shell laden
    if (lib_h <> 0) then
    begin
        try
            res_s := TResourceStream.Create(lib_h, 'XP_Tweak_Button_Beschreibung', RT_RCDATA);

            button_beschreibung1_sl.Clear;
            button_beschreibung1_sl.LoadFromStream(res_s);

            //Aus StringList in XP_Tweak_Menu_Beschreibung_RichEdit kopieren
            Haupt_Form.XP_Tweak_Button_Beschreibung_RichEdit.Clear;
            Haupt_Form.Temp_RichEdit.Clear;
            Haupt_Form.Temp_RichEdit.Text := button_beschreibung1_sl.Text;

            //Beschreibung filtern
            menu_index_plus_s := '[+' + IntToStr(menu_i) + ']';
            menu_index_minus_s := '[-' + IntToStr(menu_i) + ']';

            begin_i := Haupt_Form.Temp_RichEdit.Lines.IndexOf(menu_index_plus_s) + 2;

            for i := 0 to begin_i do
            begin
                Haupt_Form.Temp_RichEdit.Lines.Delete(0);
            end;

            end_i := Haupt_Form.Temp_RichEdit.Lines.IndexOf(menu_index_minus_s);

            for i := end_i to Haupt_Form.Temp_RichEdit.Lines.Count -1 do
            begin
                Haupt_Form.Temp_RichEdit.Lines.Delete(end_i);
            end;

            Haupt_Form.Temp_RichEdit.Lines.SaveToStream(buffer_ms);
            buffer_ms.Position := 0;
            Haupt_Form.XP_Tweak_Button_Beschreibung_RichEdit.Lines.LoadFromStream(buffer_ms);

        finally
            res_s.Free;
            button_beschreibung1_sl.Free;
            buffer_ms.Free;
        end;
    end;
    FreeLibrary(lib_h);
end;