AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Ganz eigenartiger Fehler-Kommentar entscheidet ob kompiliert

Ganz eigenartiger Fehler-Kommentar entscheidet ob kompiliert

Ein Thema von simlei · begonnen am 26. Okt 2007 · letzter Beitrag vom 26. Okt 2007
Antwort Antwort
simlei

Registriert seit: 23. Nov 2005
119 Beiträge
 
Delphi 7 Professional
 
#1

Ganz eigenartiger Fehler-Kommentar entscheidet ob kompiliert

  Alt 26. Okt 2007, 01:46
So... also ich muss sagen sowas hab ich noch nicht erlebt:
Ich hab nen Quelltext, der lässt sich ganz ordentlich kompilierern. Ich kommentiere eine total unwichtige Zeile aus - und er will nicht mehr kompilieren. Das ist sher ärgerlich, weil er nun ohne auskommentierte Zeile (also kein Kommentar) nicht mehr in diese Prozedur springt!!
Ich hoffe es gibt hier jemanden der mir meinen Fehler zeugen kann. (Aber merkwürdig ist das schon oder?)

Delphi-Quellcode:
unit AnalyFormAnalyseMenu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Math;

type
  TFormAnalyseMenu = class(TForm)
    bgImage: TImage;
    procedure FormCreate(Sender: TObject);
    procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormAnalyseMenu: TFormAnalyseMenu;
  bg: array of TBitmap;
  farbeFormBG, imageBG, bildindex: integer;

implementation

{$R *.dfm}

procedure TFormAnalyseMenu.FormCreate(Sender: TObject);
var i: integer;
begin
  SetLength(bg, 6);
  // Wichtige Variablen festlegen
  for i := 0 To 5 do
  begin
   bg[i]:=TBitmap.Create;
   bg[i].LoadFromFile('images\AnalysewerkzeugeBMPS\menu' + IntToStr(i) + '.bmp');
  end;
  bgImage.Picture.Bitmap.Assign(bg[0]);
  
  FarbeFormBG := RGB(181, 205, 229);
  imageBG := RGB(191, 215, 239);
end;


procedure TFormAnalyseMenu.WMNCHitTest(var Message: TWMNCHitTest);
begin

with Message do
begin
  // Wenn der Mauszeiger in diesem Bereich das Form zu verschieben versucht funktioniert es; an anderen

  if PtInRect(Rect(0, 0, FormAnalyseMenu.Width-40, 30), Point((XPos - FormAnalyseMenu.Left), (YPos - FormAnalyseMenu.Top)))
  then
  begin
    Message.Result := htCaption;
  end
  else
  begin
    inherited;
  end;
end

end;

procedure TFormAnalyseMenu.FormMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  bildindex := 0;
  FormAnalyseMenu.Cursor := crDefault;
  if PtInRect(Rect(0, 0, FormAnalyseMenu.Width, 30), Point((Mouse.CursorPos.X - FormAnalyseMenu.Left), (Mouse.CursorPos.Y - FormAnalyseMenu.Top))) Then FormAnalyseMenu.Cursor := crHandPoint;
  if PtInRect(Rect(26, 47, 272, 247), Point((Mouse.CursorPos.X - FormAnalyseMenu.Left), (Mouse.CursorPos.Y - FormAnalyseMenu.Top))) Then
  begin
    bildindex := Floor((Y-47)/40)+1;
    FormAnalyseMenu.Cursor := crHandPoint;
    //bgImage.Picture.Bitmap.Assign(bg[bildindex]); // Wenn ich diese Zeile mit hineinnehme kompiliert es
                                                    // es scheint dann aber in die gesamte Prozedur "MouseMove" nicht mehr hineinzuspringen!
  end;
end;

procedure TFormAnalyseMenu.FormClick(Sender: TObject);
begin
  //Schließen bzw. Minimieren bei Klick auf die richtige Region
  if PtInRect(Rect(FormAnalyseMenu.Width-39, 0, FormAnalyseMenu.Width, 30), Point(Mouse.CursorPos.X-FormAnalyseMenu.Left, Mouse.CursorPos.Y-FormAnalyseMenu.Top)) Then FormAnalyseMenu.Close;
end;

end.
  Mit Zitat antworten Zitat
Benutzerbild von Tormentor32
Tormentor32

Registriert seit: 27. Okt 2005
Ort: Düsseldorf
369 Beiträge
 
Delphi XE5 Professional
 
#2

Re: Ganz eigenartiger Fehler-Kommentar entscheidet ob kompil

  Alt 26. Okt 2007, 07:55
Die Meldung, die beim Nicht-Kompilieren kommt wäre hilfreich
Richard Mahr
  Mit Zitat antworten Zitat
simlei

Registriert seit: 23. Nov 2005
119 Beiträge
 
Delphi 7 Professional
 
#3

Re: Ganz eigenartiger Fehler-Kommentar entscheidet ob kompil

  Alt 26. Okt 2007, 09:59
Nein, es hat sich geklärt.
Nach einem Neustart der IDE

not my fault!!
danke trotzdem
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:31 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz