Forum: Object-Pascal / Delphi-Language
Delphi
by HolgerCW,
19. Mär 2008
Ich habe es jetzt hionbekommen, das nur ein PageControl davon beeinflusst wird, aber irgendwie zeichnet er nur misst. Hat vielleicht jemand noch eine alternative Lösung gegenüber den beiden anfänglichen Lösungen ?
Forum: Object-Pascal / Delphi-Language
Delphi
by HolgerCW,
19. Mär 2008
ICh denke das Problem liegt ncoh woanders.
Denn auch wenn ich mit:
If PageControl.TabPosition = tpRight then
begin
abfrage, das er nur bei PageControls mit Rechtsausrichtung die Drehung machen soll, wirken sich die Änderungen auch auf die anderen PageControls aus. Bei andere PageControls wiederrum funktioniert sogar die Drehung mit Verschiebung um +26. Das heisst das in der Zeile:
Forum: Object-Pascal / Delphi-Language
Delphi
by HolgerCW,
19. Mär 2008
auch wenn ich
with PageControl do
mache passiert das selbe. Die komplette Schrift auf dem PageControl wird Fett
...
Forum: Object-Pascal / Delphi-Language
Delphi
by HolgerCW,
19. Mär 2008
Ich nutze auch keine Paintbox sondern ein TPageControl. Vielleicht liegt es daran.
Ich mache es so:
procedure Berechtigung_Tab_zeichnen(PageControl: TPageControl; Bilder: Boolean;Control: TCustomTabControl; Der_TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
I, Y: Integer;
with Control as TPageControl do
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by HolgerCW,
19. Mär 2008
Mein Font ist "Tahoma" Ist der Truetype und wodran erkenne ich einen Truetype Font ?
Weil ohne den Owner-Draw hat Delphi ja auch Tahoma drehen können !
Forum: Object-Pascal / Delphi-Language
Delphi
by HolgerCW,
19. Mär 2008
Alles klar.
Das haut nun schon mal hin. Nur schreibt er die Buchstaben jetzt so:
T
e
s
t
Dann ist der Text für das Tab zu lang. Die Buchstaben müssen jetzt nochmal um 90° gedreht werden. Wie bekomme ich das hin ?
Forum: Object-Pascal / Delphi-Language
Delphi
by HolgerCW,
19. Mär 2008
Habe es so gemacht:
for I := 1 to Length(Pages.Caption) do
begin
Canvas.TextOut(rect.left+1, 0, Pages.Caption);
Inc(0, Canvas.TextHeight(Pages.Caption) + 1);
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by HolgerCW,
19. Mär 2008
Hallo nochmal,
also bei dem ersten Beispiel kommt ein Fehler bei:
Inc(Y, MyCanvas.TextHeight(Text) + 1);
Fehlermeldung: Der linken Seite kann ncihts zugewiesen werden !!!
Forum: Object-Pascal / Delphi-Language
Delphi
by HolgerCW,
18. Mär 2008
Vielen dank erstmal, werde es morgen ausprobieren ...und geben dann mein Feedback ...
Gruss
Holger
Forum: Object-Pascal / Delphi-Language
Delphi
by HolgerCW,
18. Mär 2008
Hallo zusammen,
wie kann ich den Text bei den Tabs hochkannt darstellen, wenn ich das PageControl selber zeichne.
Mach das so:
canvas.TextOut(rect.left,rect.top,Pages.Caption);