Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
18. Feb 2020
Hi zusammen
Das obige Beispiel von p80286 hab ich fast identisch übernommen:
Node.Enabled := False; // Datefilter (Dateiendung) festgestellt. Wenn nein,
Lextension := ExtractFileExt(aRealName);
if SameText(FFileType,Lextension) then
Node.Enabled := True;
if (FFileType = 'alle Dateien') then
Node.Enabled := true;
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
16. Feb 2020
Hi hhcm
Das geschieht, wenn dem Treeview ein Knoten für die gefundene Datei hinzugefügt wird:
procedure TOpenFileFrame.AddNewNode(ParentNode: TTreeNode; const aCaption,
aRealName: string; aIsdirectory: Boolean);
var Node: TTreeNode; NameRec: PNameRec; Lextension: String;
begin
Node := TVFilesExplorer.Items.AddChild(ParentNode, aCaption);
if aIsdirectory then
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
15. Feb 2020
Hi zusammen
Um meinen OpenFileFrame nach bestimmten Dateiendungen zu filtern, habe ich folgenden Typ definiert:
Const
TExtendedArray : array of string =('alle Dateien', '.pdf', '.Docx', '.bmp', '.nef', '.jpg', '.png'); //
Bei Programmstart (z.B.) befülle ich damit eine Combobox:
function TFileSearchContainerFrame. FillCmbxFileType: String;
var i: integer;