Ein Paar fagen ?

[Michael Springwald]

Hallo,<br>
Ich habe da mal ein Paar fagen...<br>
1.Gibt es eine Komponente die alles das kann was Paint(von windows)kann<br>
2.Ich habe eine <b>Procedure</b> geschrieben die nur geht wenn ich eine<br> ShowMessage-Naricht einbaue ohne eine ShowMessage geht es nicht
wo es der Fehler....?<br>
3. Bei eine TabControll möcht ich gerne die TabSheet's-Caption wenn man mit der Maus drüben ist soll sie Blau eingefährbt werden<br>
Gruß <b>Michael</b>

[Bernhard Geyer]

zu 1; Paint selbst. Lege einen OleContainer in dein Formular (Reiter System, TOleContainer), und wähle im Kontextmenü des OleContainers "Objekt einfügen", Paintbrush-Bild.

zu 2: Dazu müsstest Du den Code mal hier posten

zu 3: Setze das Property HotTrack auf TRUE, schon geht

[Michael Springwald]

Hallo,<br>
Hier währe der Code<br>
procedure TForm1.Suche;
var
oldx,oldy:Integer;
rOptions,t: TSynSearchOptions;

begin
<i>
if Form1.PageControl1.ActivePageIndex <> -1 then begin<br>
with Form1.PageControl1.ActivePage do begin<br>
with TSynEdit( FindComponent(Components[0].Name) ) do begin<br>
rOptions := [ssoReplace,ssoEntireScope];<br>
t:=[ssoEntireScope];<br>
SearchReplace('|', '', t); <br>
oldy:=CaretY; <br>
oldx:=CaretX; <br>
SetF;//wenn ich hier ein ShowMessage-Box einbaue geht es<br>
SearchReplace('|', ' ', rOptions);<br>
CaretY:=OldY; <br>
CaretX:=OldX;<br>
end;<br>
end;<br>
end; <br>
end;<br></i&gt

[Michael Springwald]

Hallo,<br>
Ich habe mich bei 3 wersehen ich meinte <b>PageControl</b> und nicht
<i>TabControl</i><br>
<br&gt

[Michael Springwald]

Hallo,Bernhard Geyer danke zu 3
<br>
Gruß <b>Michael</b&gt

[Michael Springwald]

Zu 1 wollte ich eine Koponente haben <br>
Zu 2 Ist der Code den so wie ich in geschrieben habe denn richtig ?
Zu 3 Danke

[Hagen Reddmann]

zu 2. <i>TSynEdit( FindComponent(Components[0].Name) ) </i> ist sinnlos, Du hast ja schon die richtige Componente mit Components[0]. Also entweder <b>with Components[0] as TSynEdit do</b> oder eben <b>with FindComponent('SynEdit1') as TSynEdit do</b> oder so wie es normalerweise gehen sollte <b>with SynEdit1 do</b>

[Michael Springwald]

Hallo Hagen Reddmann <br>
Ich habe ein Editor erstellt der aus mehrern PageControll besteht
und auf jeden TabSheet ist eine TSynEdit komponent.<br>
Die werden sorlauf zeit erstellt eine Namen.<br>
Gruß <b>Michael</b&gt

[markus lemcke]

hi michael,

ich probiere gerade auch tsynedit aus! hast du folgender probleme gelöst:

1. wie programmiert man suchen ersetzen?

2. wie programmiert man eine syntaxüberprüfung?

3. wie realisiert man codevervollständigung?

wenn ja, wie?

gruß

marku