moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-25 02:32:19 -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; Synedit.MarkupByClass[TSynEditMarkupHighlightAllCaret].TempDisable;
end;} end;}
mp := TCodeInsight.Create; mp := TCodeInsight.Create;
mp.FileName := ScriptFile;
{$IFDEF ciDEBUG} {$IFDEF ciDEBUG}
mp.OnMessage := @Form1.OnCCMessage; mp.OnMessage := @Form1.OnCCMessage;
{$ENDIF} {$ENDIF}

6
Projects/SAMufasaGUI/testunit.pas
View File

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

5
Units/Misc/v_autocompleteform.pas
View File

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