Open Tools API - benutzte Unit laden

[stahli]

Mal eine Frage mal an die Profis:

Haltet Ihr die OTAPI-Struktur für nachvollziehbar?
Auf mich macht die einen sehr chaotischen Eindruck und ist schwer verständlich.

Ist das eher ein Problem von mir oder seht Ihr das ähnlich?


Das ist zwar jetzt keine lösungsorientierte Frage, würde mich aber dennoch mal interessieren.

[Uwe Raabe]

Zitat von stahli:

Haltet Ihr die OTAPI-Struktur für nachvollziehbar?
Auf mich macht die einen sehr chaotischen Eindruck und ist schwer verständlich.

Wenn man es einmal durchschaut hat, ist es nicht mehr so schwierig. Aber ja, am Anfang erschlägt es einen. Es fehlt halt eine Art Wegweiser.

[stahli]

Hallo zusammen,

hat jemand noch einen Tipp, wie man die Reihenfolge der Unit-Tabs in der IDE abfragen kann?

Ich ermittle alle offenen Units über die nachfolgende Funktion. Das funktioniert auch grundsätzlich.
Das Problem ist, dass die aktuelle Unit immer zuerst gescannt wird.
Bei einem Wechsel der offenen Unit wird die Reihenfolge der dargestellten Units unerwünscht geändert.

Ich hätte gern immer die gleiche Reihenfolge wie die Tabs der IDE.

Delphi-Quellcode:

  procedure GetCodeFromOpenUnits(SearchDataUnitList: ISearchDataUnitList);
  const
    BufferSize = 254; // Number of chars for Buffer...
  var
    Editor           : IOTAEditor;
    EditView         : IOTAEditView;
    M, I, J          : Integer;
    module           : IOTAModule;
    sourceEditor     : IOTASourceEditor;
    OTAModuleServices: IOTAModuleServices;
    Reader           : IOTAEditReader;
    Position         : Integer;
    Buffer           : AnsiString;
    ReadedChars      : Integer;
    SourceCode       : AnsiString;
    SearchDataUnit   : ISearchDataUnit;
  begin
    EditView     := nil;
    EditPos.Line := 0;
    EditPos.Col  := 0;

    SearchDataUnitList.Clear;

    BorlandIDEServices.GetService(IOTAModuleServices, OTAModuleServices);
    for M := 0 to OTAModuleServices.ModuleCount - 1 do
      begin
        module := OTAModuleServices.Modules[M];
        for I := 0 to module.ModuleFileCount - 1 do
          begin
            Editor := module.ModuleFileEditors[I];
            if Supports(Editor, IOTASourceEditor, sourceEditor) then
              begin
                for J := 0 to sourceEditor.EditViewCount - 1 do
                  begin
                    EditView := sourceEditor.EditViews[J];
                    RegisterViewPaintNotifier(EditView);
                    if Assigned(EditView) then
                      begin
                        SourceCode := '';
                        Reader     := EditView.Buffer.CreateReader;
                        if Assigned(Reader) then
                          begin
                            Position := 0;
                            SetLength(Buffer, BufferSize);

                            repeat
                              ReadedChars := Reader.GetText(Position, PAnsiChar(Buffer),
                                BufferSize);
                              Inc(Position, ReadedChars);
                              SourceCode := SourceCode + Copy(Buffer, 1, ReadedChars);
                            until ReadedChars < BufferSize;
                          end;

                        SearchDataUnit              := TSearchDataUnit.Create;
                        SearchDataUnit.UnitFileName := module.FileName;
                        SearchDataUnit.Code.Text    := String(SourceCode);
                        SearchDataUnitList.Add(SearchDataUnit);
                      end;
                  end;
              end;
          end;
      end;
  end;