moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-28 12:02:15 -05:00
Code Issues Releases Wiki Activity

Small changes.

Browse Source
This commit is contained in:
Niels 2010-03-28 15:31:08 +02:00
parent 9237cdecef
commit 9e8b0fba13
3 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Projects/SAMufasaGUI/framescript.pas
View File

@ -292,6 +292,7 @@ begin
Synedit.MarkupByClass[TSynEditMarkupHighlightAllCaret].TempDisable;
end;}
mp := TCodeInsight.Create;
mp.FileName := ScriptFile;
{$IFDEF ciDEBUG}
mp.OnMessage := @Form1.OnCCMessage;
{$ENDIF}

6
Projects/SAMufasaGUI/testunit.pas
View File

@ -475,11 +475,7 @@ function TForm1.OnCCFindInclude(Sender: TObject; var FileName: string): Boolean;
var
Temp : string;
begin
Temp := ExtractFileDir(CurrTab.ScriptFrame.ScriptFile);
if (Temp <> '') then
Temp := Temp + DS;
Temp := FindFile(filename,[MainDir+DS,IncludePath, Temp]);
Temp := FindFile(filename,[MainDir+DS,IncludePath]);
if temp <> '' then
begin;
filename := temp;

5
Units/Misc/v_autocompleteform.pas
View File

@ -34,7 +34,7 @@ type
{$IFDEF ccFORMCAPTION}
procedure DoSelectionChange(User: Boolean); override;
{$ENDIF}
procedure DrawItem(Index: Integer; ARect: TRect; State: TOwnerDrawState); override;
procedure DrawItem(Control: TWinControl; Index: Integer; ARect: TRect; State: TOwnerDrawState);
{$IFDEF FPC}
procedure WMEraseBkgnd(var message: TLMEraseBkgnd); message LM_ERASEBKGND;
procedure WMVScroll(var message: TLMVScroll); message LM_VSCROLL;
@ -300,7 +300,7 @@ begin
end;
{$ENDIF}
procedure TAutoCompleteListBox.DrawItem(Index: Integer; ARect: TRect; State: TOwnerDrawState);
procedure TAutoCompleteListBox.DrawItem(Control: TWinControl; Index: Integer; ARect: TRect; State: TOwnerDrawState);
var
p1, p2, p3, tl, col: Integer;
s, c: string;
@ -398,6 +398,7 @@ begin
ControlStyle := ControlStyle + [csOpaque];
BorderStyle := bsNone;
Style := lbOwnerDrawFixed;
OnDrawItem := {$IFDEF FPC}@{$ENDIF}DrawItem;
IntegralHeight := True;
{$IFDEF FPC}