Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
13. Mär 2008
OK, schau Dir mal dieses Beispiel an (hat jetzt nix mit der Vektorgrafik zu tun):procedure TForm1.ClearBox(); //Prozedur, die ein simples Koordinatensystemzeichnet
const Abst = 10; //10 Pixel Abstand zwischen den Markierungen
var x,y,i: integer;
begin
with FunctionBox do
begin
Canvas.Pen.Color:= clGray;
Canvas.Brush.Color:= clWhite;
Canvas.Rectangle(0,0,Width,Height);...
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
13. Mär 2008
Naja, mir fällt da noch eine "Schummellösung" ein: eine Vektorgrafik (wmf, als Klassen TMetaFile und TMetaFileCanvas) im Speicher erzeugen, dort alles maßstabgetreu drauf zeichnen und diese dann per StretchBlt auf die PaintBox klatschen, erspart eine Menge Arbeit beim Skalieren.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
12. Mär 2008
:cyclops: Ich bin ein Star, holt mich hier raus :mrgreen:
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
12. Mär 2008
Auha, das ist so ziemlich das gruseligste Delphi, das jemals herausgekommen ist. Funktioniert F1 denn bei anderen Komponenten wie z.B. TButton?
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
12. Mär 2008
Es wäre ja schon einmal hilfreich zu wissen, mit welcher Delphi-Version Du arbeitest.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
12. Mär 2008
Du meinst "Markierungsstriche"? Einfach in ClearBox ausrechnen und in 2 Schleifen zeichnen.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
12. Mär 2008
Ich habe mal eine private Variable eingefügt.unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
12. Mär 2008
procedure TForm1.FormPaint(Sender: TObject);
begin
// ClearBox();
end;
Versuch mal so :mrgreen:
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
12. Mär 2008
Wenn Du auf die Box zeichnest, wird sie immer wieder übermalt. Das kann ja nix werden ;)