trichedit

    0熱度

    1回答

    我的問題是將背景形狀設置爲圓角矩形。事實上,當您將背景顏色放在TRichedit上的文本上時,背景形狀將是一個矩形,而不是圓角。我想要提供一些示例圖片,但我不知道如何。

    1熱度

    1回答

    我通過網絡發現了這段代碼。這將背景色添加到Trichedit上的選定文本: uses RichEdit; procedure RE_SetSelBgColor(RichEdit: TRichEdit; AColor: TColor); var Format: CHARFORMAT2; begin FillChar(Format, SizeOf(Format), 0);

    2熱度

    1回答

    ans:= RichEdit1.Text for i:=1 to Length(ans) do begin RichEdit1.SelStart := i-1; RichEdit1.SelLength:= 1; if ans[i] = correct[i] then RichEdit1.SelAttributes.Color := clRed

    1熱度

    2回答

    下面的代碼工作以及對D2005: MyRichEdit1.Text := TMemoField(Query1.FieldByName('Msg')).asString; 但在D2010,該代碼輸出以純文本的文本而不是RTF。 爲了解決這個問題,我使用下面的代碼 MyRichEdit1.PlainText := False; MyRichEdit1.Text := TMemoField(Que

    1熱度

    2回答

    我有一個問題,複製一個備忘錄的內容到一個Richedit組件。 我認爲這將是 Richedit.text := memo.text; 但是,如果我使用時備忘錄文本換行到一個新的新線(未CR/LF),但只是這個包裹在RichEdit開始一個新行。當備忘錄開始一個新的行時,這個富有的行也會開始新行。 任何人有任何的想法是如何將文本從備忘錄複製到richeditbox沒有在RichEdit破線時備忘

    1熱度

    4回答

    我有一個Delphi 2007 TRichEdit,裏面有幾行代碼。我想垂直滾動RichEdit,以便特定行號(如果大致居中在RichEdit的可見/顯示區域中)。例如,我想要寫CenterLineInRichEdit代碼在這個例子中: procedure CenterLineInRichEdit(Edit: TRichEdit; LineNum: Integer); begin ..

    17熱度

    4回答

    我需要在運行時使用TRichEdit來執行rtf到文本的轉換,如討論here。我成功完成了這個任務,但是如果不是我無法填充TRichedit.Lines,我必須將父表單設置爲父表單。 (錯誤:父母缺失)。 我粘貼我的funciton下面,任何人都可以提出一種方法來避免定義父母?你還可以對此發表評論,並告訴我,如果你找到一個更高性能的想法? 注意:我需要一個字符串,而不是TStrings作爲輸出,這

    2熱度

    1回答

    我有一個TRichEdit。 當我選擇一些文本並單擊另一個元素時,所選文本的選擇將消失。 有沒有一種方法來保持這種選擇,當TRichEdit的失焦時呢? 謝謝!